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000000 



.TITLE BASieii V0»1« EBIT «61 (»EF) e3/?l/73 

SOU«rE FILE •! 
,ASECT 



8ASIC CONSISTS Of THREE MoOutESI 

13 8ASICI, • IRTEPPPETEP I'lTH SYSTEM 1/0 

23 FPMP.ll > MATH PACKAOF COf'OtTlONALliEO FOR USr IN BASIC 

33 BASICH • UliER AREA ANO CNrE-ONLT COUE 



ORIGINAL PAPER TApE VERSIqN 

MOOIFICATION AND COMMENTS 

COMPLETION AND FURTHER 
COMMENTS 



Pyi LEN ELEKMAN 

■>y| "o* Folk 

on AN^' STANKARO 
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GLgSALsl issr', pAnAH$,i 
DESCRIPTION* LOU rO»tl 
CENERiU TiatESi 
CONSTANTS, STORAGE 



1 

1 GUOBALS 




1 ,.FpHP*lt 




.CLoaU 


SPOLSH 


,CI.0BL 


JIR 


,SLOBL 


SMLR 


iCLOBL 


leyR 


.OtOBL 


SAORitSBR 


.SLOBL 


S|N,COS|SaRT,ALOS|ATAN,EXP 


,euosk 


lERVEt 


1 •<eASlC2 




.SLOSt 


TPfl, TKS 


.GLOBt 


START 


.GLOSL 


USRAREA 


iCkOBU 


riLLCP 


iGLOBL 


LIMIT, POL, ARRAYS, POSUE 


.Gl,08k 


ERRPOI,, ERRMIX, rRRSVN, ERRAIG 


.GLOBL 


TABLES, TBL5EN 


,GLOBU 


EVAL, GETVaR, STriVAH, HSC 


,Gl.OBU 


COLUMN, TAOl, fACJ, ,I1»A«, iL'AH 


.CLOBU 


|NT, MAKEST, OPRATO) SOPXAT 


, GLOBL 


.COMMA, Tl, T2, TJ, .EOL 


, GLOBL 


NyMOUT, uUhSGN, IRCB, ^TPRO 


, GLOBL 


SAVCMAH,VAL>NORM 


1 GLOBL 


RNOl, RNOZ 


■GLOBL 


tSTKS*, ERRFPU 
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S4 
SS 
86 

87 
88 
89 

9; 

92 
93 
94 
9» 

94 
97 
98 

99 
IBB 
101 
122 
IB3 
1B4 
1B9 
1B6 
IB7 
1B8 
109 
110 
111 
112 
113 
114 
119 
116 
117 
lit 
119 
120 
121 
122 



I ASSEhBlT parahs, 

I 

iITNOr SSTKS< ISUE oF STACK 
SStKSJ •200 ISYTES 

iCNOC 
I 

ilTNOF IPRORG IPROG, o'lOl" AFTEH wECTOR SPACE 
tPRORG '400 

lENOC 
I 

,|FNOF SPPBSi IPP RUFF, SI!E 
SPPaS! '30 

,ENDC 
I 

.IFNOF JPRBS< IPAPER.T«Pf pE»0ER BuFF, SIZE 
SPRBSi 130 

,ENOC 
I 

, IFNOF SLPBS< ILINE'PRINTEb Buff, s1«E 
SLPBS2 140 

,ENOC 
I 

I SNOPTP • No P*PtR TApBI OEFINF To ELI"tNATE CqDE Fqr "IGM spEEO 
I PAPER TAPE 
1 

I SNotPT • No LINE phINTErI DEFINE TQ ELIf-IlATE LINE prINtEb CqOE 
I 

I ILONGER • LONG ERROR MESSAGESi ntFl'iE TO GET LO«G. 
I EXPLANATORY EHHOR MESSAGES', 
I 

I SNqSTR • No STRlNGsl DEFINE T" ELIMINATE STRING v»RlAPLE CqOE 
I 

I SNOPOM • "0 PO"Eh FAILI OEFINF Tq ASSEMBLE uITHnuT 
I POWER FAIL/RESTART ROUTI>'E', 
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123 
12< 

Ui 

12> 
127 

u» 

12» 
131 
131 
132 
133 
13« 
13» 
136 
137 
13* 
13» 
l«B 
l«l 
14! 
143 
1«« 
l«5 
1«« 
147 
14» 
149 
19* 
151 
192 
193 
194 
199 
196 
19> 

19a 

19» 
160 
161 
162 
163 
164 
169 
166 
16? 
169 



HOT POOPII 

— USER *«E* "Ap 

HIGH »00«ESSES*»^«— "'i— r-* 

I eosys POINTERS! <"LIHIT(S»I NEEDED 

I 26 PN POINTEPS! 

1 PE»g POINTfR I <"P"LIR>) NEEDED 



I PIJSH 
I OOHN 



I ARKtVS 



P1SliE("9l NEEDED • 
(P0L(>I9)-««R»TS(R9))/S«SI«CK(INTERPUPT) 

<..«PR<yS(ii!>) MEEOCD 



I /!\ 

1 ! 

t SYXSoLS ! 



I r.\ 

I INTtHP, 1 
1 eOOE ! 



I USER 
I LlNE 
I BUFFER 

t gsEH 1/0 BuFP, 

t AND BUFF', HOP, 

I SPACE (TTY) 

I US^R *REA 

I STOKAGE CELLS 
R9 POINTS«.> I 



<"C0DE(n9l NEEDED 



<"LtNE(P9) NEEDED 
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169 

170 
171 
172 
173 
174 
179 
176 
177 
178 
179 
180 
191 
182 
183 
184 
189 
186 
187 
188 
189 
190 
191 
192 
193 
194 
199 
196 
197 
198 



CoOE AREA CONTAINS STRlNO oF C'^OE "YTES UHICH CoNpSlsE 
THE COMPILED CODE 10 BE INTERPETEO, THE SYNTAX SCAN OF TuESE 
COOE BYTES IS FACUITATCO BY THF JUDICIOUS PLACEMENT 
OF CERTAIN OF THESE CODE BYTES TO BE CALLED 'TOKENS', 
IF THE HIGH B|f OF A TOKEN IS ON 

IT IS A SYSTEn'SYMBOL (S.SYM), (SEE TABLE. SELOH,) 
HIGH BIT OFF SIGNALS TOKEN AS THE HIGH ORnER BYTE OF A UOPD 
(LOW ORDER BYTE FOLLOWS TOKEN) USFD AS AN ADDRESS OFFSET INTO 
THE USER SYMBOL TABLE (USPTR), 

••SYMBOL TABLE ENTRIES 

ARE MADE For LINE NI^MBEHS, SCALAPS. "U^ERlC ARflAYSi «Nn 
STRINSSi AS SHOUN |IN ORDER) I 

LINENo 177779 177776 J77777 
ADDRESS VALUE ADDRESS AOOHESS 

VALUE MAXSSl -AYS^l 

3 MAXSS2 "AXSS2 

VARNAME VAPNAME ST'l'iGNAXE 

••GENERAL REGISTER ySAGE 

Rl Is BASIC EXEt^UTlgN PC 

R4 IS THE EXECUTION STACK 1EPTH 

RS IS THE POINTER TO THE USER «REA 



HASICU Huexll Vajl 22fH»H.73 



199 








ZB» 








201 








202 




000000 




293 


000080 


300167 


001030 


2^4 




[100004 




2B5 


300004 


.100006 


300000 


226 




300010 




8B7 


001101.0 


300012 


000000 


288 




f00014 




2a9 


000014 


000016 


000000 


210 




000020 




211 


000020 


B07742 


000000 


212 








213 




000024 




214 








2t» 








216 


000024 


007330 


00000* 


217 








218 








219 








220 








221 








222 








223 




0(003) 




224 


000030 


000032 


000000 


22> 




000034 




226 


000034 


000036 


000000 


227 








228 








229 








230 




000040 




231 


000040 


001 


101 


232 


000042 


000000 


000000 




000090 


000000 


000000 




000056 


300000 




233 








234 








235 








236 




000060 




237 


000060 


006470 


000200 


238 




000064 




239 


000064 


006642 


000200 


241 




'•0070 




241 








242 


000070 


007104 


000200 


243 




010074 




244 


000074 


007204 


000200 


249 








246 








247 








248 








249 




000200 




290 








251 


000200 


007296 


000200 



16105 
I 
I 



PACE 

tNTERU''T VECTORS »Np UOntST COoE 



• •> 




JHP 


ST«RT 


1 ■* 




* 


,*2,0 


, 'l" 




* 


,♦2.0 


1 'i* 




* 


.42,0 


, •20 




* 


9OM8i0 


I '24 




.iFNOr 


INOPO" 


* 


RgyowN,0 


,ENoe 




ilfDf 


smorom 


* 


,♦2,0 IMALT 


,ENDC 




, '32 




* 


.*2|0 


• 34 




* 


,*2,0 


1 ••'SYSTEM' 


AREA 


1 

1 '40 




VErNuMI .BYTE 


091, "A 


• 


010,0,0,0,0,0 



irEstart at uoc, »a 
ITI«E iut. Suss EhrOr 

IREsCRVEO INsTRgCTtON 
lOrUnC, TRAP VEC, 
I IOt TRAP vEC, 

iPOKER FAII,/»ESTART 



lEHT TRAP 
|(TK4P' TRAP 



IVrH5lON NuMSEr 



I .-intErupt vectors 
I 



• 60 








K8INTiPr4 


|KFt90»bO 


•64 








TPtNT|PR4 


ITELFPRINTEH 


• 70 






ilFNOF 


INOPTP 






PTRIHT,PR4 


IH5P, PT, READER 


•74 








PRINT, PR4 


IHSP, PTi punch 


,ENOC 






ilFOF 


JNOPTP 






0,0,0,0 




,ENDC 






• 200 






iIFNOF 


INOUPJ 






LP1NT,PR4 
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292 






293 






254 






299 






256 




000240 


257 


000240 


000242 000000 


258 




300244 


259 


000244 


13000001! 000000 


260 






261 




000400 


262 






263 
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.ENOC 




.IFOF 


JNPtP! 


* 


0,0 


,ENOC 




• 240 




* 


1*2,0 


• 244 




• 


EHRFPy,0 


• SPRORI! 





ipIhi 

ifloatinc point trap 



ISTABT 0* CoOE (i»AY HAVE To rHA[gGt, 
I OfPENDINC UPON ATTACHEO OCVS,) 
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2>4 




2«9 




8»j 




267 




2«a 




it* 




271 


gBM00 


271 


000001 


272 


000002 


273 


000003 


274 


000004 


275 


00000» 


276 


000006 


277 


000007 


276 




27» 




281 




2at 


i7r»6( 


212 


177962 


269 


177S64 


2a« 


177S46 


2as 


177550 


2a6 


177552 


2a7 


177554 


2aa 


177556 


zav 


177514 


2>« 


177516 


291 
292 






293 




294 


1100011 


29S 


000012 


296 


000014 


297 


000015 


29a 


000040 


299 


177776 


308 


000140 


3B1 


000200 


392 


000340 


393 


177775 


3B4 


177776 


ili 


177777 


306 





I 



1 •'RCalSTER ASSI(!NhCnTS 


1 

R0 




Rt 




r2 




r3 




R4 




r5 




SP 




PC 




1 ••DEVICE REGISTER CqNS 


TKS 




TK8 




TPS 




TPa 




PRS 




PRB 




PPS 




PPB 




UPS 




UPS 




1 "CENerau Constants 


TAB 


"11 


Lf" 


ai2 


rr 


•14 


cr> 


019 


8L> 


040 


PS 


■177776 


PR3 


■ 140 


PR4 


• 200 


PR7 


• 340 


.SCALAR 


■177775 


,NVAR 


■177776 


,SVAR 


■177777 



IPRIORIT* LEVEL 3 



I^SER SY", T«eLE FLAO FOR SCALAR 
IFLAS FOP UUMEBIC ARRAY VARIABLE 
IFLAG FOP ST»ING VAR, 
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307 




308 




309 




310 


000000 


311 


000002 


312 


000004 


913 


000006 


314 


Z00010 


3liS 


000012 


316 


000014 


317 


000016 


Jie 


000020 


319 


000022 


320 


000024 


321 


000026 


322 


000030 


323 


000032 


324 


000034 


329 


000096 


326 


000040 


327 


S00042 


328 


300044 


329 


300046 


330 


00009) 


331 


000092 


332 


000094 


333 


000096 


334 


000060 


935 


090062 


936 


000064 


337 


000066 


398 


000070 


939 


100072 


940 


2100074 


941 




942 




949 


J00076 


944 


300077 


345 


390100 


946 


200132 


347 


300134 


348 


309136 


349 


390137 


990 


390119 


951 


300111 


992 


000112 


393 


000113 


354 




395 




396 




997 


390090 


99a 


300002 


999 


300004 


360 


300006 


961 


?00010 



( 

I .-USER AREA STORAGE CELL OFFSETS 
I 



SYMBOLS 







LIMIT 




SYMBOLS*? 


POL 




LIMIT»2 


PBS I IE 




P0L»2 


ARRAYS 




P0SIZt*2 


NIPREE 




ARRAYS*: 


LOrSEE 




HIFREt*2 


CODE 




lofree;*2 


LINE 




C00E4Z 


VARSAV 




L1NE*Z 


SSiSAVE 




VARSAV*! 


SS2SAVE 




SStSAVE*2 


LINENO 




SS2SAVE*2 


GSBCTR 




LiNEN0*2 


COLUMN 




GSBCTH*J 


CLMNTTY 




CgLUMN*2 


FACt 




CLMNTTY*! 


rA«2 




FAC1*2 


R0SAVE 




FAe2*2 


RISAVE 




RBSAV6*2 


R29AVE 




R1SAVE*2 


R3SAVE 




R2SAVi*2 


R4SAVE 




R3SAVt»2 


rt 




R4SAVt*2 


T2 




Ti;*2 


T3 




T2*2 


RNOl 




T9*2 


RND2 




RND1*2 


RNOCT 




RN02*2 


LOSTR 




RN0CT*2 


HISTR 




L0STR*2 


1 .-THESE NEXT 


TWO MUST BE LO 


1 OF 


SAME WORD 


ooev 




HISTR*2 


IDEV 




00EV*1 


TPHD 




ooev*2 


K8HD 




TPHO*? 


ECHDSP 




kBH0*2 


CNCFLS 




ECH09P*2 


CNOFLG 




CNCPLO*! 


FILLCO 




CNOFLG*! 


FILLNO 




FILLCO*! 


FILLCH 




FILLNO*! 


SPARE 




F1LLCM*1 


1 "I/O 


BUFFER 


HEADER OFFSETS 


BSTRT 




MRU START 


SEND 




ISENOtRl) " 


BGETt 




IBOETIIRII 


8GETJ 




IBGET2IR1) 


BPUT 


■19 


ISPUTIRI) 



(Contains aoor of the first symbol 

[contains aoor of highest vo of user are« 

icontains aoor of empty 5tack 

(contains l0» limit of stark 

ICDNTAINS AOOR OF HIGHEST UOPD OF ARRAYS 

ICONTAINS AOOR OF HIGHEST FHCE WORD 

(CONTAINS AOOR OF LOWEST FREE "ORO 

ICONTAINS AOOR OF INTERPRETIVE CODE 

(CONTAINS AOOR OF USER LINE "UFFER 

(VAR SAVE FOR ASSIGNMENT 

(SSI SAVE FOH ASSIGNMENT 

(SS2 SAVE FOM ASSIGNMENT 

(CONTAINS THE LINE NUMBE" 

(CONTAINS 33*DEPTH OF ACTIVE COSUBS 

(HAS AOOM OF COL CT FOR rURHENT OEV 

(LAST TTY COLUMN TYPED 

(HIGH 9R0ER FLOATING VALUE 

(LOW ORDER FLOATING VALUF 

(PLACE FOR RH WHILE IN FPMPll 

(DITTO Rl 

(DITTO R2 

(DITTO R9 

(DITTO R« 

(SHORT TERM TEMPORARY 

(DITTO 

(DITTO 

(HISTORY OF RNO 

(DITTO 

(RANOOMIiER 

(LOW LIMIT Of STRING STORAGE 

(HIG" LIMIT OF STRING STORAGE 



(OUTPUT OEV CODE (TTY»0,PT.2,LP«4) 

(INPUT DtV CODE (TTY.0,PR«J) 

IHOLIS START OF TELEPRT RUFF HDR 

(HDLOS START OF KBO BUFF HOH 

(AOOR OF NEXT ECHO CHAR (IF >'ON.H) 

(itC FLAOi NON.0 IF PENOING 

|l»0> FLAGi OITTO 

(FILL«e0UNT 

(NO or FILL CHARS , 

(CHAP BEFORE FILL 

1 t5»ARE BYTE] 



FNO PF BUFFER 
rjRST GET POINTER 
SECOND GET PTR-, 
f»UT OTS, 



N 



HCl, 


mexii 


vgsi 


22«H«Ha73 






IMdU 






























90B4ee 


Hdttlt 






iimz 


asg0eg 
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BfSPEC 

I 

1 »-5»sTfM y*RiAei,ej 
I 

CtnNppl ,HOR0 
CLMNLPI iHO'O fl 



iBrsPicmti 



SPECIAL "O'O • USt P«HT|c, I" DE'i 



IptpFR TAPE PU*'CH CoLU"N POSlTIO'l 
ILtNC PRI.MTE" roUUNN POSITION 



iSlCU «ACxll 


V02t 


369 




97( 




37t 




372 




373 


8)0281 


37« 


800282 


37S 


800283 


376 


888204 


377 


808289 


37a 


800286 


379 


800287 


388 


880210 


381 


il80211 


382 


800212 


389 


000213 


364 


300214 


389 


880219 


386 


080216 


367 


800217 


386 


808220 


389 


800221 


398 


il88222 


391 


e88223 


392 


Z80224 


393 


800229 


394 


088226 


39! 


888227 


396 


888230 


397 


i100i31 


396 


808232 


399 


300233 


488 


it08234 


481 


;!00239 


482 


808236 


483 


388237 


484 


800240 


409 


800241 


486 


800242 


487 


300243 


486 


880244 


489 


308245 


418 


800246 


411 


000247 


412 


800290 


413 


800291 


414 


?08292 


419 


808293 


416 


800294 


417 


800299 


418 


300296 


419 


800297 


428 


308260 


421 


308261 


422 


808262 


423 


388263 
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SYSTEM TOKEN OEFlNlTjBNS 



iSEGINNIMli Qf SEnJfNCE IJsEO 9Y 'KEVMOS' »N0 'T«BLtl' 



I 

I 

I 

I 

.EgL* 201 

,ENO« ,E0L*1 

,FOR* ,EN0*1 

,G0SU8> iFOR*! 

iGOTOi ,G0SU9*1 

,IF» ,00T0*1 

, INPUT" ,IF*1 

,LET» ,INPUT*1 

,NEXT» ,UET*1 

,PR|NT» ,NEXT»l 

,RETUPNt,pRINT*l 

,StOP» ,RETUR»l«l 

,0|M» ,ST0P*1 

, RANDOM", OtN*l 

,RCSTOR>, RANDOM*! 

,REM» ,REST0R»1 

,OEF« |REH4t 

iRCAO* iDEF'l 

,OATA> ,REA0*1 

,CALH ,DAT«»l 

,EOF« ,CALL*t lENO OF SEQUENCE USE" "Y 'TAHLEl' 

,AMPERS»,EOF»l 

.UPARRO'.AMPERStllBECINNING OF SCOUE'XE USED BY < 

,STAR» ,UPARRO*l 

,S|.ASHa ,STAR*1 

,PLUS» |StASH«l 

,UNARY» ,PUUS*t 

, MINUS! ,UNA"Y«l 

,TERH« ,MINUS»l|ENO OF SEOUENCE JSt" tY 'TAHLEZ' 



TA8LE2' AMU OPR PflEC, 



iSEMlP 


,TERM«1 


,RPAR> 


,SEMI»1 


,T8» 


,RPAR*1 


,STEPi 


,T0*1 


,TUEN« 


,STEP*l 


,CDMHA« 


,TMEN»l 


,tE» 


,C0MHA»1 


.EL« 


,LE*1 


.GE' 


,EI.»1 


.EG* 


,GE*1 


,NE. 


,EG*t 


,EN> 


,NE*1 


,l.t« 


,EN»t 


.GT« 


.I.T«1 


,E9. 


i5T»l lEND OF SEQUENCE U«E" BY O'EHATOR PRECE 


,LPAR» 


,E94t 


,D9UDT« 


,|,PAR»1 


,SOUOT* 


,O0UOT»l 


.OOLON 


•,S0U0T*1 


, POUND" 


,COLON»l 


,FN« 


,POUNO*l 


,RNOL« 


,FN*l IBEGINNINO OF SE-SUENrE USED aY I1A9LE5I 
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424 
429 

• 2« 

427 

4Z« 

4!9 
43S 
431 
432 
433 
434 
439 
43» 
437 
43) 
439 

44e 

441 

442 
443 
444 
449 
44» 
447 
44* 
449 
45B 
491 
49! 
493 
494 
499 
49» 
497 

49a 

499 

46B 



380264 
I!ee269 

Win 

SB027« 
300271 
300272 
000273 
300274 
300279 
e0027» 



000277 



300300 
300301 
300302 
00030] 
000304 
300374 

00037; 

00037« 
000377 



iRNOa 


.RNOL*l 


.SiN* 


.RNB*l 


,C05i 


.SIN»1 


.safti 


.C(1S*1 


,AtN« 


.SBR*1 


.EXP" 


.ATN.l 


.LOG* 


,EXP*1 


.ABSa 


,L0S»1 


,IXT. 


.ABS*1 


,SSN. 


.I»T»1 


,TAB> 


.SON.l 




.TAB*1 


iLEN. 


,ASC« 


.LtN*l 


,CHRS> 


.AJC»t 


■ POS. 


.CHRJ*t 


.see* 


.P0S*1 


.VAU« 


.StG*l 


,srR« 


.VAL*1 


.LIST. 


.STR*1 




.ENBC 




,iror 


lUIST. 


,TAB»1 




.ENDC 


,RUN« 


.LIST»t 


.SAVE4 


.RUN*1 


.BCD' 


.SAVE*! 


.SCR. 


.0L0*1 


, CLEAR. 


.SCR*1 


.rLIT. 


374 


.inn. 


379 


.aiT2» 


37« 


.TEXT 


•377 



lENO or SEQUENCE USEO <<Y (TASLE9' 
IBEBINNINO OF SEOUFNCE USED 9y 'TA9LE4( 



l(NO or SEQUENCE USE" RY (TASLE4' AND (KEYUOSI 



BASlCL HACxll y021 22.NAR.73 t6|09 PAGE 12 



46l 






462 






463 






464 






469 






466 






467 


000404 


093 


466 


000409 


232 


469 


000406 


099 


470 


000407 


234 


471 


000410 


0'! 


472 


000411 


230 


473 


300412 


097 


474 


300413 


231 


475 


303414 


136 


476 


303415 


227 


477 


333416 


050 


478 


333417 


259 


479 


000420 


091 


480 


300421 


237 


481 


303422 


134 


482 


000423 


231 


483 


000424 


046 


484 


000429 


226 


489 


303426 


073 


486 


330427 


23» 


487 


303430 


094 


488 


303431 


243 


489 


300432 


036474 


490 


300434 


244 


491 


300439 


0'; 


492 


300437 


244 


493 


300440 


036476 


494 


000442 


246 


499 


000443 


079 


496 


000449 


246 


497 


303446 


337074 


498 


303450 


290 


499 


300451 


076 


ie» 


000493 


29t 


901 


000494 


074 


902 


000499 


292 


503 


300496 


076 


S34 


330497 


29} 


505 


300460 


079 


906 


300461 


294 


507 


300462 


042 


908 


000463 


29« 


509 


300464 


047 


510 


000469 


297 


511 


000466 


072 


912 


300467 


260 


913 


000470 


043 


514 


300471 


261 


515 


300472 


133 



.•KEVHORD TABLE 



ENTRIES ARE OROEpEO ST T"ElH FpEouENCY qE 
OCCURRENCE'. ALPHA KEYUOPOS START AT IKEYA/, 



074 



KEVWOSI .ASCII 


1*1 


.BTTE 


.PLUS 


.ASCII 


'•< 


.BYTE 


.niNUS 


.ASCII 


'•« 


.BYTE 


.STAR 


.ASCII 


'/> 


.BYTE 


.?LASM 


.ASCII 


I'l 


.BYTE 


.QPARKO 


.ASCII 


M< 


.BYTE 


.LPAR 


.ASCII 


'!» 


.BYTE 


.RPAR 


.ASCII 


'V 


.BYTE 


,EOL 


.ASCII 


'«* 


.BYTE 


.AMPEHS 


.ASCII 


'H 


.BYTE 


,SCHI 


.ASCII 


'l' 


.BYTE 


.COMNA 


.ASCII 


'<•< 


.BYTE 


.le 


.ASCII 


'«<' 


.BYTE 


.ue 


.ASCII 


'>•< 


.BYTE 


,n 


.ASCII 


i»i 


.BYTE 


.;e 


.ASCII 


'<>' 


.BYTE 


.NS 


.ASCII 


>><' 


.BYTE 


.« 


.ASCII 


'<( 


.BYTE 


.liT 


.ASCII 


■>* 


.BYTE 


.5T 


.ASCII 


'4( 


.BYTE 


.CO 


.ASCII 


I'l 


.BYTE 


iSOUOT 


.ASCII 


.o 


.BYTE 


.50U0T 


.ASCII 


'I' 


.BTTE 


.;oLON 


.ASCII 


i»i 


.BYTE 


.POUND 


.ASCII 


•i' 



BAStCW HACXll V02t 22aM*R<73 16109 PtCC 12>1 



916 


000473 


299 






.S7TE 


.U'A» 


917 


000474 


139 






.ASCII 


'J» 


919 


200475 


237 






.evTe 


.RfAfl 


919 


000476 


042514 


020124 


KEVAI (tSCII 


'UtT > 


920 














521 


000902 


210 






.BTTt 


•tr • 


922 


000903 


111 


020106 




.ASCII 


923 


000906 


206 






,B7TE 


,ir 


924 


000907 
000914 


107 
040 


020117 


047924 


.ASCII 


>00 TO ' 


929 


000919 


205 






.9YTE 


.SOTO 


926 


000916 


047906 


020122 




.ASCII 


• FOR < 


927 


000922 


203 






,B»TE 


.fOR 


920 


000923 


040 


047924 


040 


.ASCII 


1 TO ' 


92» 


000927 


240 






.BYTt 


.10 ■ 


930 


000930 


042916 


092130 


040 


.ASCII 


'NEXT ' 


931 


000939 


211 






.orTE 


.NEXT 


932 


000936 


092040 


042910 


02B116 


.ASCII 


' THEN ' 


933 


000944 


242 






,8»TE 


.THEN 


93« 


000945 
000992 


040 
040 


052123 


090109 


.ASCII 


• sTcr ' 


939 


000993 


241 






.BYTE 


,|TEP 


936 


000994 


047S0T 


092923 


020102 


.ASCII 


'SOSUB ' 


937 


000962 


204 






,8YTE 


.EOSUB 


93S 


000963 

000970 


122 

116 


092109 


091129 


.ASCII 


'RETUHN< 


939 


000971 


213 






.BYTE 


.RETUNN 


940 


000972 


047111 


092920 


020124 


.ASCII 


'JNPUi ' 


941 


000600 


207 






.BYTE 


.INPUT 


942 


000601 
000606 


120 
040 


044922 


092116 


.ASCII 


IPRINf 1 


943 


000607 


212 






.BYTE 


.PRINT 


944 


000610 


042922 


119 




.ASCII 


'REM' 


949 


000613 


220 






.BYTE 


,RtH 


946 


000614 


042904 


020106 




.ASCII 


'OEr ' 


947 


000620 


221 






.BYTE 


.per ' 


946 


000621 


122 


040909 


020104 


.ASCII 


'RtAO ' 


949 


000626 


222 






.BYTE 


.HEAD 


950 


000627 


104 


092101 


020101 


.ASCII 


'PAT4 1 


991 


000634 


223 






.BYTE 


.DATA 


992 


000639 


103 


046101 


020114 


.ASCII 


'CALL ' 


993 


000642 


224 






.BYTE 


.C4LL 


994 


000643 


106 


11« 




.ASCII 


TN' 


999 


000649 


262 






.BYTE 


.PN 


996 


000646 


047122 


024104 




.ASCII 


'HHOC 


597 


000652 


263 






.BYTE 


,RNOL 


990 


000653 


122 


042116 




.ASCII 


• RNO' 


999 


000696 


264 






.BYTE 


,RNO 


960 


000697 


123 


047111 


090 


.ASCII 


'SIN(< 


961 


000663 


269 






.BYTE 


.SIN 


962 


000664 


047903 


024123 




.ASCII 


'COSC 


963 


000670 


266 






.BYTE 


,505 ■ 


564 


000671 


123 


091121 


090 


.ASCII 


'SORC 


569 


000675 


267 






.BYTE 


.SOR ■ 


566 


300676 


392101 


024;i6 




.ASCII 


'ATNC 



ISTaPT of alpha KEYWORDS 



ICU 


HACXll 


V021 


22<nAR. 


73 16109 


PACE 12>2 






300702 


270 






.BYTE 


iATN 




000703 


105 


090130 


090 


,A9CII 


'EXPC 




000707 


271 






.BYTE 


.EXP 




000710 


047914 


024107 




.ASCII 


'l,OGI' 




000714 


272 






.BYTE 


.LOG 




000715 


101 


051902 


090 


.ASCII 


'ABSC 




000721 


273 






.BYTE 


,ABS 




000722 


»l471tl 


024124 




.ASCII 


'INTC 




000726 


274 






.BYTE 


.INT 




000727 


123 


047107 


090 


.ASCII 


'SGNC 




000733 


279 






.BYTE 


.SON 




000734 


040924 


024102 




.ASCII 


'T»B(' 




000740 


276 






.BYTE 


.TAB ■ 


























.IFNOr 


INOSTH 












.ASCII 


'UENI> 












.BYTE 


.UEN 












.ASCII 


'ASCC 












.BYTE 


,ASC 












.ASCII 


'CHRtC 












.BYTE 


.CHRS 












.ASCII 


'POSC 












.BYTE 


.pos ■ 












.ASCII 


'SECtI' 












.BYTE 


.SCG 












.ASCII 


'VA(.(' 












.BYTE 


,1H 












.ASCII 


'STRIC 












.BYTE 


,STR 












,ENOC 




















000741 


104 


046911 


040 


.ASCII 


'OlH ' 




000749 


219 






,8YTE 


.OIH 


600 


000746 
000754 


040922 

055111 


042116 
109 


046917 


.ASCII 


'HANDOMIHEI 


601 


000797 


216 






.BYTE 


.HAnOOH 


602 


000760 
000766 


J42922 

109 


092123 


091117 


.ASCII 


'RESTORE' 


603 


000767 


217 






.BYTE 


.KESTpRE 


604 


000770 


?92123 


050117 




.ASCII 


'STOP' 


609 


000774 


214 






,8YTE 


.STOP 


606 


000779 


109 


042116 




.ASCII 


'END' 


607 


001000 


232 






iSYTE 


.ENO 


606 


301001 


114 


091511 


124 


.ASCII 


'UlST' 


609 


001009 


277 






.BYTE 


.LIST 




001006 


052922 


116 




.ASCII 


'RUN' 




001011 


300 






.BYTE 


,KUN 




001012 


040923 


042926 




.ASCII 


'SAVE' 




001016 


301 






.BYTE 


.SAVE 




001017 


117 


042114 




.ASCII 


'OLD' 




001022 


302 






.BYTE 


.OLD 




001023 


123 


091103 




.ASCII 


'SCR' 




001026 


303 






.BYTE 


.SCR 




001027 


103 


042914 




.ASCII 


'CLE' 




001032 


304 






.BYTE 


.5LEAH 



atSICI, HtcXli V0it 22«H*Ha73 t»|09 PACE 1!>3 



«28 

622 

«2J 
• 24 



g0lt}3 



.BYTE 
lEVEN 

,EOT 



IEmO Of T48|.E r|.AO 



a*SICl, MACXll V821 22.MAH.r3 16109 PA8E 13 



»29 

t2« 
627 
620 
629 
630 
631 
632 
633 
634 
63S 
636 
637 
630 
639 
640 
6«l 
642 
643 
644 
645 
646 
647 
648 



'OUHCE rlUE »2 



MAIN rioH ROUTINES 



Z01234 
301040 
001044 
001050 
001054 
001060 
001064 
001070 



316705 
01>;06 
009069 
004767 
016906 
004767 
004767 
000402 



000004 
000104 
00709$ 



012700 
007334 



1 START " PHO 


;ram stahtins poit 


T 


5TARTI MOV 


USRAREA|R9 




MOV 


POUIRM.SP 




CLR 


ECH0SPIR5) 




JSR 


PCBUrctR 


ICLEAB OUT ALL 


SCRATCHIMOV 


P0U(R5)iSP 




JSR 


p5iIn;tsch 




CLEARI JSR 


PCiCLHVARS 




BR 


REAC 





I/O RING "ijFFrRS 



atSlCU MACXll V02t 22«HtR«73 16189 PtGC 14 



649 








6SB 








65J 








692 








693 


091872 


004767 


007034 


694 


0)1076 


1916906 


300004 


699 


001102 


009069 


000106 


696 


001106 


009069 


000076 


657 


001112 


012769 


000036 


696 


001120 


060969 


000034 


69» 


001124 


004167 


014344 


661 


001130 


019 


012 


661 


001132 


J42S22 


042101 


662 


001137 


000 




66J 








664 


001140 


016906 


000004 


669 


001144 


004167 


0143Z4 


666 


001190 


019 


012 


667 


001193 


000 




66S 








669 


001194 


009069 


000076 


67g 








671 









131 



I,...,....,..., 

I 

I READY • PRINT 
I 

RCtovai jsR 

CkR 
CtR 
HOV 
iOO 
JSR 
.BYTE 
, ASCII 
.BYTE 
,EVEN 
REA0Y2I HQV RO|,(R»l,SP 

JS" "tins; 

,8YTE CRiuriUr 
.BYTE 
,EVE«I 
lOtNITl CL" 00EV(N9) 



'XEAOYf 

pe,Burci.R 

POLIRSI.SP 

cNerL8(R9) 

00CV()<9) 

•9UHNtTY,CI)LUMN(R9) 
»9l(;0|,UMN(R9) I mv 
RliHSt 

CB.ur 

'READY" 



(CLEAR ALU I/O RINS 9wrFERS 
|(»C' «N0 »«0l FLACS 

ISET TO COUNT TTY COLUHNS 



|CL« OfEV AND IDEV BYTES IN USER ARE» 



BASICL MACXll V021 22>nAR.73 16109 PACE 19 



672 








673 








674 








679 








676 








677 








670 








679 








680 


001160 


084767 


015160 


681 


301164 


103806 




692 


001166 


127927 


300016 


683 


081174 


301336 




684 


301176 


300167 


319642 


689 


301202 


004767 


016146 


686 


301206 


089201 




687 


301218 


0101*6 




680 


001212 


316901 


008028 


669 


001216 


160116 




690 


001220 


112108 




691 


081222 


188417 




692 


001224 


080308 




693 


001226 


192108 




694 


001230 


361900 




699 


301232 


021827 


177779 


696 


001236 


103811 




697 


001240 


016901 


300016 


698 


001244 


021627 


300003 


699 


081298 


001013 




700 


081292 


389016 




701 


001294 


309860 


000002 


702 


001268 


000407 




703 


001262 


1097S9 


300077 


704 


001266 


001334 




709 


001270 


000167 


300494 


706 


081274 


004767 


019660 


707 


001308 


1^18104 




708 


081302 


121127 


080229 


739 


001306 


001492 




710 


081310 


lltl0J 




711 


001312 


108770 




712 


081314 


309201 




713 


081316 


300333 




714 


081320 


19213J 




719 


001322 


P619a3 




716 


001324 


321327 


177779 


717 


001330 


103361 




718 


081332 


321013 




719 


081334 


101397 




720 


001336 


301036 




721 


081340 


304767 


019614 


722 


001344 


121127 


000229 


723 


001390 


001427 




724 


001392 


111103 




729 


001394 


100771 




726 


001396 


J05231 





eoiT • 

SET LINE, TRANSLATE INTj TOKENS, kun MqvE LINE INTO 
USER CODE SPACE, KITH'JLL CNTRtE5 XAOE INTO USER 
SYMBOL TABLE, ARRAY SPACE, A'lO STRING SPACE, 



INOHMAL INPUT LINE 



EDITI JSR 


pCLINCET 


BCC 


EOITL 


CMPB 


•;00E|R9I,«,E 


BNE 


Ri,AOY» 


JMP 


OEVERN 


EOITLI JSR 


PC,TRAN 


INC 


"J 


MQV 


Rl)"<»PI 


MOV 


HNE(«9),Kl 


SUB 


"i.lSPI 


noVB 


(R1)*,RB 


BHI 


EOIMMEO 


SUAB 


R0 


SISB 


(H1)*|R8 


>00 


|K9),K0 


CMP 


(H0|,i, SCALAR 


9HI$ 


EOIMMEO 


MOV 


C00E(H9),Rl 


CMP 


ISP), •3 


BNE 


EOISRfH 


CL" 


ISP) 


CL" 


2IR8I 


BR 


EPISR5H 


EOIMMEDITSTB 


I0EVIM9I 


8NE 


EDIT 


JMP 


IMMED 


EDISKIPIJSR 


PC.SKIPEOL 


EOISRCHIMOV 


R1,R4 


CMPB 


("1),»,E0F 


BEQ 


EOIPUT 


MOVa 


(R1|,M3 


BMI 


EOISKIP 


INC 


Rl 


SUAB 


R3 


BISB 


(R1)«,R3 


ADD 


(H9|,H3 


CMP 


<R3),t, SCALAR 


8NIS 


EOISKIP 


CMP 


(R8),(R3) 


BHI 


EUISKIP 


BNE 


EOIPUT 


EDIPASStJSR 


PC.SKIPEOL 


CMPB 


(Rl),»,EOF 


BEQ 


EDIOVER 


MOVB 


IRl),K3 


BMI 


EUIPASS 


INC 


Rl 



INO, RETURN TO TTY INPUT 
lYES, OEVICE NOT READY 



)If THERE ARE ONLY 3 BYTFS THEN THE LI"!- 
|CnN«TlNS Ll^'ENO.CR AND '<E«N': nCLETE, 



I IGNORE IMf STMTS FROM N"N.TTY 



|R0 POINTS TO LINENO OF the "E" LINt, 
laiSP) CONTAINS LENGTH OF THE NE« L1"E, 



HCL 


MACXlt 


V821 


22<n4'<>73 


16105 p«ee i9>t 




727 


881368 


888383 






sute 


"J 


728 


881362 


152133 






aiSB 


(Rll*l»3 


ni 


ggWM 


midi 






too 


IH5),K3 


731 


881366 


821327 


177779 




CHP 


(R3),t,Set|.4fl 


731 


881372 


103362 






9H1S 


EOtPtsa 


732 


881374 


162781 


800082 




SUB 


• 2lRl 


733 


88t4;i8 


816580 


888804 




H0» 


POI.(»»1,R0 


734 


881484 


816982 


888832 




HOV 


GS8eTN(R9),R2 


73S 


881418 


821884 




EOtCUSi 


CMP 


(H0|,l<4 


736 


881412 


181483 






st,os 


,«ta 


737 


881414 


821001 






CNP 


|R0),K1 


738 


081416 


181081 






9HI 


.♦4 


739 


881428 


885010 






ct" 


(HB) 


7«B 


881422 


805720 






TST 


(RB)* 


741 


881424 


389332 






DEC 


R2 


742 


881426 


883370 






BST 


EOICHS 


743 


881430 


168481 




EO1OVERISU0 


R4,R1 


744 


881432 


888481 






ap 


,** 


745 


881434 


809881 




EOIPUTI 


ei.p 


«i 


746 


881436 


161681 






sua 


(SPI.HI 


747 


881440 


816980 


800004 




HOV 


POLIR'I.RB 


74« 


801444 


816982 


880032 




"OV 


SSBCTH|R5),R2 


749 


801450 


821004 




EOlHOOriCMP 


|R0),H4 


790 


881452 


103481 






BUD 


,44 


751 


801494 


l»81tt 






SUB 


Rl.iRB) 


752 


801496 


005720 






TST 


(R01* 


753 


801460 


809302 






DEC 


R2 


754 


001462 


803372 






BST 


EOtMoer 


755 


801464 


809781 






TST 


R* 


756 


801466 


100433 






BHI 


EDICROW 


757 


881470 


801473 






BED 


EOIStME 


79« 


801472 


818482 




EOieoNTinov 


R4,R2 


759 


881474 


861682 






too 


t5P(.«2 


76B 


881476 


918283 






NOV 


R2|R3 


761 


801580 


368183 






too 


Rl,R3 


762 


881502 


112322 




EDIM0VEI''0V8 


IR3|»i(R2U 


763 


881584 


828319 






CMP 


R^,(R»I 


764 


881586 


183775 






8L0 


EOIMOVE 


765 


801518 


109742 






TST9 


• |R2) 


766 


801912 


801481 






BEO 


,*4 


767 


881514 


809282 






INC 


R2 


766 


081516 


838227 


888881 




BIT 


R2i«l 


769 


881922 


881431 






BEO 


1*4 


778 


801524 


189822 






CLSB 


1H2)* 


771 


801526 


318219 






HOV 


R2ilR»l 


772 


881930 


812322 






HOV 


IR3)4|IR2|4 


773 


011932 


328365 


880014 




CMP 


R3,l,0rREE(n5) 


774 


801936 


183774 






auo 


■ ■6 


775 


801540 


818265 


808014 




HOV 


R2,L0rREEIR9) 


776 


801544 


888481 






BR 


,»* 


777 


801546 


809022 






CLR 


(R2»* 


77» 


801590 


828283 






CMP 


R2,R3 


779 


801552 


183775 






BCO 


l*4 


768 


801954 


808441 






BR 


EOIStME 


781 


801956 


811580 




EOtGROHinOV 


(R9(,"8 



IIP > LINE 19 CHtNCEO WHICH IS 
iRFFrRENCEO HT THE REtO POINTER, AN F*' 
|Pni>ITER OR » OOSUR POINTER THEN THtT 
iPdIMTfR MUST BE CLEtREO 



|R1 "0« • «CHtRS TO eONTRtCT, 
lALL REFERENCES BY THE RFAO POINTER 
IHUI'M REFER TO LINES HH|CH ARE MOVEH 
iBtCAUSE OF E0ITIN5 MUST BE SELOCATED 



|R4 "0« » AOORESS AT WHICH Tl INSERT, 



iMOVt 30MN THE CODE, 



|R2 "OH POINTS TO BYTE AFTEH THE ,EOF, 

|R2 "0" HAS THE NEH START OF THE STMTA8, 
IMOVE 00"N The SYHROLS', 



JCLEAR VACATED STRINC STIRAGF To iEHOEf, 



let. 


MACXll 


V82t 


22.MAR.73 


782 


801560 


189740 




783 


381562 


301481 




784 


381564 


305280 




785 


881566 


168188 




786 


80157B 


810083 




787 


381572 


305283 




798 


881574 


842783 


808001 


789 


801688 


161583 




798 


801602 


366583 


888814 


791 


801606 


323369 


383812 


792 


381612 


181432 




793 


381614 


JBB167 


816524 


794 








795 








796 








797 








799 








799 








888 








881 








982 








683 








884 








835 


381620 


816982 


888814 


886 


381624 


518365 


880814 


887 


381630 


300481 




889 


801632 


C14243 




889 


381634 


1'28215 




810 


881636 


181375 




811 


081640 


318315 




812 


381642 


105043 




913 


381644 


1)18082 




814 


881646 


860180 




815 


001650 


380481 




816 


801652 


114042 




817 


301654 


328084 




918 


381696 


101375 




819 


881660 


316580 


800020 


820 


801664 


318481 




821 


881666 


812682 




922 


881670 


800401 




823 


881672 


112024 




824 


801674 


309382 




825 


801676 


302375 




826 


801780 


121127 


080225 


827 


801784 


801417 




828 


881786 


111182 




829 


(181718 


108412 




838 


301712 


309281 




631 


301714 


300382 




832 


881716 


192182 




833 


881720 


t)6t982 




834 


301722 


322227 


177779 


935 


301726 


183883 




836 


301730 


J18112 
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TSTs 
BEQ 
INC 
SUB 
HOV 
INC 
BtC 
SUB 
ADO 
CMP 
BLOS 
ERROVll JMP 

.IPnof 

MOV 

TST 

CMP 

91,0 

JSR 

CMP 

BHIS 

,ENOC 

EOIROOHIMOV 
HOV 
9R 

EOtMVUPIMOV 
CMP 
9HI 
HOV 
CI.RB 
MOV 
ADO 
BR 

M0V8 
CMP 
9HI 

EDIStMEIMOV 
MOV 
MOV 
9R 

Mova 

DEC 
BGE 
EDIRIC8ICHPB 
BEO 
MOVB 
BHI 
INC 
SUIB 
BIS8 

too 

CMP 

BHIS 

MOV 



• (RB) 
,*« 
R0 

R1,R8 
RB|R3 
R3 

• 1.R3 
(R9|,H3 
tOFREf;iR5|,R3 
R3,HIFREE(R51 

1*9 

EHR0V2 

tNOSTH 

H3,R2 

(R2I» 

R2,L0STR(R9) 

EOIROOH 

PCiUPPtCK 

R2,l,0STR(R9) 

EHROVi 



|R8 «'0U ROINTS PAST THE HEH HIGHEST qYTE 

lOF cone, 



iRS NOH MtS THE NEW START OF SYMTAB, 



|R3 liV HAS THE NEU VALUE OF LOF"EE, 
ICUECK TO SEE THAT THERE 1? ENOUGH 



ICHECK TO SEE THAT THE SPACE THA' HILL 
IBE USED IS NOT OCCUPIED 8Y STRINGS 



INO, MOVE THEM UP 
iTRY AGAIN 



L0FrEEIR5),R2 
R3iL0fREElR5) 
,*4 

•IR2)|"1R3| 
R2| |R9I 

EOiHvyp 

R3,|R5) 

• (R5I 

R0,R2 

RllR8 

,«4 

•(R0)l*(R2) 

R0,R4 

,'* 

LlNE(M9),SB 

R4,Rl 
tSP)»,R2 

,** 

IR0)4|14)* 

R2 

,•4 

(Rl|,»,EOF 

EOIJMP 

(RU.M2 

EBIRLOe 

Rl 

R2 

|Rt)*|R2 

|R9),H2 

|R2)4|f, SCALAR 

EdiRLOC 

Ri,(R2) 



iMfVr UP THE SYHTAR, 



(CLEAR THE POSSIBLY USED FILLER 

IRP »'0U POINTS PAST OLD HIGHEST RYTE 

lOF SYHTAB', 

IMOVF UP THE CODE, 



iMOVE THE NEU LINE INTO THF rODE, 



ICU 


H«CXlt 


V021 


22>ntR»7] 


16109 P«6E t9>3 




aji732 


l»27t2 


000002 


SUB 




901736 


304767 


01'21» 


CDlRLOeUS" 




391742 


a0075» 




00 




B»17«4 


0001*7 


177210 


EOIJHPI JHP 













•2,(n2) 
P5iSKlpeot 

eD|RL;a 

EDIT 



BASIC!. M»CXll V02t 22.«»R«73 16I0S P»GE 16 



642 
S4J 
044 
649 
646 








IHHED • IHMEDUTB HpOE 5oMMAN0< 








Oo INHEOUTE 


ONUr 50MHANOS 


(RUN, LIST. SCRATCH, CLEAR, 


647 








SAVEi iNO OLD) iNV SET UP 


OTUEPS (UM-NUMBEPEDl FOR 


648 
649 

690 








EXECUTE, 






001790 


012600 




MMEOI «0V 


{SP)*|R0 


ln0 MQU MAS « BYTEs r 


691 


001792 


00906; 


000076 


CUR 


09Ey(K9) 


ITAKF "^LY This Immeo, C^'K", 


692 


001796 


216904 


300006 


MOV 


P0SUt(R9),R4 




693 


001762 


316901 


300020 


MOV 


UINE(R9),R1 




694 


00176* 


009002 




C1.R 


R2 




699 


001770 


151ia2 




9;SB 


(Htl.l<2 




696 


001772 


162702 


300277 


sue 


•,LIS!iR2 




697 


001776 


306302 




tst 


R2 




s;a 


0020B0 


320227 


000012 


CMP 


R2,i»TBU4ENl)"T»BUE4 


6S9 


0020D4 


101012 




8HI- 


IHMSTMT 




660 


002006 


362702 


300002 


«0D 


• 2,R2 




661 


002012 


360702 




too 


PC,R2 




662 


002014 


361237 




40D 


tH2)|PC 




663 


002016 


300162 




TtSLE4l ,UORO 


U19T-ti8UE4 




664 


002020 


300206 




,UORO 


RUN>TAaue4 




665 


H12121 


300124 




iMORO 


3AVE>T>BUE4 




966 


002024 


000062 




,UORO 


0U0<r*9UE4 




667 


002026 


177036 




,WORO 


S5RATCH.TAI1UE4 KIN (START' CODE, A80VE) 


666 


002030 


17704* 




TBL4ENDI,U0R0 


CUeAR»TA8Ue4 


KIN (START' COOEi A30VEI 


669 


002032 


360100 




IMMSTMTUOO 


Ri,R0 




670 


002034 


020069 


000016 


CMP 


R0,COOE|R9| 


(SEE [P AN 'EOP' CAN BE FIT 


"'1 


002040 


103402 




8U0 


1*6 




672 


002042 


300167 


315770 


JMP 


ERRTRN. 




673 


002046 


112710 


000229 


HOVB 


•,E0r|IR31 




874 


002092 


31276» 


177775 000030 


MOV 


«,SCAUAR,UINENn(P51 


879 


002060 


309069 


0000^6 


CtR 


CUMNTTr(R») 


|RE«'E7 ALL COUMN COUNTS 


876 


002064 


305067 


176310 


CLR 


CUMNPP 




877 


002070 


309067 


176306 


CUR 


CUMNUP 




878 


002074 


300167 


000994 


JMP 


EXECUTE 


iSTA'T RUNNING, 


879 















FPO" NOV-TV 



lASICl, 


Mitexti 


V021 


22>H«R'73 
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1 'OLD' 


COHHtNQ 








ggiieg 


016S06 


000004 


0I.0> 


"OV 


POU(RSI,SP 


iTLUSH OUT SYSTEM 




at2l04 


004767 


011694 




JS" 


pCiiNirscK 


I3CRATCH 




002110 


004767 


006310 




JS" 


PflCLNVARS 






002114 


004767 


019004 




JS" 


P5|SC»NPN0 


ISCAN OfF ffl 




002120 


004767 


006200 




JS« 


PCCHKISET 


ICHECK AND SET INPUT 




002124 


122127 


000201 




CH'S 


IHlI'l'.EOl. 


lHUbT ENO tl>iE RIGHT 




002130 


001402 






aCQ 


010001 






002132 


000167 


007912 




JN' 


EHRS» 






002136 


000167 


1771)16 


OUO001I 


JNP 


EOIT 


ITHI? nOES TuE REST 










1 'stvc 


' eoNH»no 






002142 


004767 


014?96 


S*VEI 


JSR 


PP.SCANPNO 


ISCAM OFF (»i 




002146 


004767 


006160 




JSR 


PfiCHKOSET 


iCHECK AND SET.UP OUTPUT 




002192 


120227 


000002 




CMPB 


R2i«2 


lUINf PRINTER? 




002156 


003404 






S(.£ 


H3TSV 


INPI LIST TAKES OVER 




002160 


004167 


013336 




JSR 


PilMS^OOEV 


iFBH L'T, START a/ J FORH.FEEOS 




002164 


014 


014 


000 


,BYTE 


fFirr,0 








002170 






lEvex 








002170 


004767 


012606 


UISTSVI 


JSR 


PPiUSIRROO 






002174 


000167 


176676 




JNP 


READY 










1 'l:st 


' CohhAmO 






002200 


009201 




LISTI 


INC 


"1 






002202 


004767 


011046 




JSR 


RStrtiNE 






002206 


103770 






BCS 


LUTSV 






002210 


011201 






NOV 


"R2).«l 


lOtT AOO" OF CODE LINE 




002212 


001766 






SEO 


UISTSV 


IIP UNOEF, NORMAL LIST 




002214 


004767 


012966 




JSR 


PfiLSILOOP 


iLisT Partial procr 




002220 


000167 


176692 




JMP 


RIAor 





SICL 


MACXll 


V021 


22.HAR.73 


»il 








»12 


002224 


004767 


006174 


»13 


002230 


016501 


000016 


»14 


002234 


112102 




»19 


002236 


100406 




»16 


002240 


000302 




917 


002242 


152102 




»16 


002244 


(■61502 




919 


002246 


011269 


000030 


920 


002292 


112102 




921 


002294 


120227 


000219 


922 


002260 


001419 




923 


002262 


120227 


000221 


924 


002266 


?01S30 




929 


002270 


120227 


000216 


V26 


002274 


001504 




927 


002276 


120227 


000225 


929 


002302 


001937 




929 


002304 


005301 




930 


002306 


304767 


014646 


931 


002312 


000750 




932 


002314 


112102 




933 


002316 


100506 




934 


002320 


000302 




939 


002322 


192102 




936 


002324 


061902 




937 


002326 


122127 


000299 


938 


002332 


001100 




939 


002334 


309003 




940 


002336 


121127 


000379 


941 


002342 


001406 




942 


002344 


122127 


000376 


943 


002350 


301071 




944 


002352 


111103 




949 


002354 


100467 




946 


002356 


000303 




947 


002360 


009201 




946 


002362 


152103 




»49 


002364 


012704 


177777 


950 


002370 


122127 


000237 


991 


002374 


001423 




952 


002376 


124127 


000243 


993 


002402 


001094 




994 


002404 


009201 




959 


002406 


009004 




956 


002410 


121127 


000379 


997 


002414 


001406 




958 


002416 


122127 


000376 


999 


002422 


301044 




960 


002424 


111134 




961 


002426 


100442 




962 


002430 


000304 




963 


002432 


309201 




964 


002434 


152104 




965 


002436 


122127 


000237 
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1 'RUN' 
RUN I 



DEPDUNI 
QIMGOTI 



COMMAND 

JSR 

MOV 

OIHLOOPIMOva 
SMI 
SUA8 
BISB 
ADD 
MOV 
MOVB 

DIHNONOICHPB 
BEQ 
C«P8 
BEO 
CMPB 
BEQ 
CMPB 
BEO 
DEC 
JSR 
BR 

MOVB 
BHI 
SUAB 
R|SB 
AOO 
CMPB 
BNE 
CLR 
CMP9 
BEO 
CMPB 
BNE 
MOVB 
8M1 
SWAS 

ALLOCll INC 
BISB 
MOV 
CMPB 
BEO 
CMPB 
BNE 
INC 
CLR 
CMPB 
BEO 
CMPB 
BNE 
MOVB 
BHI 
SUAB 

ALL0C2I INC 
BISB 
CMPB 



PC.CLHVARS 

C0DE(K5),H1 

(Ht)*|R2 

OIHNONO 

r2 

IR1)*|R2 
(H5),H2 

|R2),I,INEN0(R5) 
(Rl(»|H2 

R2i*,0IN 

OlMCOT 

R2,f,DEF 

OEFGOi 
R2i», RANDOM 

RNDCOi 
R2,t,L0F 

DiMDONE 

Rl 

Pf.SKIPEOL 

OIMLOOP 

(R1)*|R2 

ERRDIM 

R2 

tRtl*|R2 

(R5),H2 

(Rt)*l»,LP4R 

ERRDIM 

R3 

(Hl).»,ILITl 

AUlOCj, 

I"tl*l»,tLIT2 

ERRDIM 

lRt|,R3 

EKRDIM 

1} 

Rl 

|R1)*|R3 

».1,R4 

tRl)»l»,RP4R 

OOALLOC 

•(Rlll»,COMMA 

ERRQIH 

RJ 

R4 

{Rl)i»,IHTl 

ALL0C2 

(Rl)»i«,H.IT2 

ERRDIM 

(R1(.H4 

ENROIM 

R4 

r; 

(R1)«,R4 
(H1)»I«,RPAR 



'SICL 


M»CXll 


V021 


22.H»R.73 


»«« 


002442 


001034 




967 


002444 


021227 


177776 


«6« 


002490 


001431 




969 


002492 


082403 




97» 


002494 


009762 


00)004 


971 


002460 


100029 




972 


002462 


004767 


009)7) 


973 


002466 


122127 


000243 


974 


002472 


001710 




97> 


002474 


124127 


0)0201 


976 


002900 


001019 




977 


0029(12 


009201 




97» 


002904 


000693 




979 








9e> 


002906 


016969 


00)07) 01 


»8l 


002914 


192769 


000001 01 


9BJ 


002922 


122127 


000201 


993 


002926 


001642 




9«4 


002930 


0)0167 


007114 


999 


002934 


000)04 




996 








997 


002936 


042111 


119 


99S 








999 








99( 








99; 








99? 


002941 


00) 




993 








994 


002942 


000)04 




999 








99{ 


002944 


0«2111 


106 


997 








999 








999 








laes 








i»9l 


002947 


00) 




ItM 








1003 


002990 


122127 


000262 


IM* 


002994 


001372 




teeis 


002596 


112102 




12!!6 


002960 


066902 


000004 


iaB7 


002964 


009712 




1,0119 


002966 


001369 




1009 


002970 


122127 


00)299 


1010 


002974 


0)1362 




1011 


002976 


01)112 




101! 


00260) 


0)0642 




1013 


002602 


009)69 


0)0)36 


1014 


002606 


009067 


179966 


1019 


002612 


009067 


179964 


1016 


002616 


016904 


000)06 


1017 


002622 


016901 


000016 


1019 


002626 


121127 


00)229 


1019 


002632 


001010 




1020 


002634 


0)4167 


012626 



16)09 PACE t9>t 

)NC 
DOALLoCICmP 

BEO 

»UT 

TST 
0PL 
DIHSCLKIJS* 
CHP8 
8E0 
CMPB 
)»IC 
INC 
)R 



CRROIX 
(i<2li<lNV*R 

EH"0I« 

OINSd," 

4(l<2» 

ERROIH 

P;iiLI,OC 

IRl)«li>,C;OHHA 

OIMOOT 

•("Di'.EOL 

ehroin 
Ri 

OIHUOOP 



|V>H(R2),$S1IR3I,SS2(4I 



•RANOOMICE STATEHENT 
0)0064 RNDGOTI HOV RNDCT (R9)|RN01|R«) 



SISB 
CNPB 
tE) 

JHP 
ERROIHI lOT 

.iPNor 

.ASCII 
lENDC 

.IPor 

.ASCII 
lENOC 
,B7TE 
.EVEN 
ERROEri lOT 

,|PNOr 
, ASCII 

lENoe 

,1'OP 
.ASCII 

.ENOC 
.BYTE 
.EVEN 

oErGori CNPB 

BNE 
MOVB 
AOO 
TST 
BNE 
CHPB 
BNE 
NOV 
BR 
OIHDONEICLR 
CUR 
CUR 
MOV 

HOV 
CHPB 
BNE 
ERRRUNI JSR 



•l.RN9llR>) 
IRtl*l»,EOU 
OIMUOOP 
ERRSVN 

SWONOCR 
MOM"' 

SkONStR 
'ULEGAI. OIM' 



SPONGER 
MOFN 

SkONGER 
'ILIESAU OCF' 



(Rl)*,t.rN 

ERROC' 
(Rll*l"2 
P0|,(R9)|R2 
(R2) 

ERRDtf 

ini*i».i.p»R 

ERROEF 
R1.(R2) 

oerouN 

Cl,MNTIY(R9) 

CkMNPP 

eiiMNkP 

PDSM|IR9I,R4 

C0aE(K9),Hl 

(Rt),»,EOr 

EXECUTE 

RllNSUERR 



iRE-SET »UU COLUMN COUNTS 



(START RUNNING', 



BASICk MACXll V021 22«HAR.73 16109 PAGE 19.2 



1021 

1022 002640 090116 122 

1023 

1024 

1029 

1026 

1027 002643 00) 

1029 

1029 002644 000167 176270 

1030 



iIPNor SkONGCR 
.ASCII NNPRN 

.ENOC 

.iror skONGlR 

.ASCII 'NO PROGRAM' 

.ENOC 

.BYTE 

.EVEN 

JNP REA0Y2 



8ASICU MACXll V8JI 22.HAH.73 t«l«» '»eE l» 



1832 








1)39 








II3« 








t(3» 


002690 


004767 


014304 


1934 


002694 


105769 


000106 


1037 


002660 


J01404 




1036 


002662 


109069 


000106 


1039 


002666 


000167 


176204 


t0«» 


002672 


112102 




10«1 


002674 


00203$ 




1042 


002676 


1142702 


177600 


10<3 


002702 


006302 




10«4 


002704 


020227 


000052 


104» 


002710 


101127 




1B«» 


002712 


060702 




1047 


002714 


061207 




104S 


002716 


17T736 




104» 


002720 


000336 




10J0 


002722 


001216 




10'1 


002724 


001036 




10!2 


002726 


001036 




1093 


002730 


000400 




1054 


002732 


00273J 




10» 


002734 


000272 




10'» 


002736 


001726 




1057 


002740 


002240 




1050 


002742 


001142 




109» 


002744 


0003»« 




1060 


002746 


177732 




10>1 


002?;0 


177732 




1062 


002792 


001024 




1063 


002754 


177732 




1064 


002796 


177732 




1069 


002760 


003330 




1066 


002762 


177732 




1067 


B02764 


000074 




106e 


002766 


000336 




106» 


002770 


000302 




1070 


002772 


192102 




1071 


002774 


061902 




1072 


002776 


021227 


177779 


1073 


003002 


103107 




1074 


003004 


011269 


000030 


1079 


003010 


000721 




1076 








1077 









I tXtCUTt • EXECUJt CqHHANO lINt 



ICNQIEI Jit 
EXteUTtlTSTB 

0CS 

CURB 
JM» 
NOCNCI HQVS 
ISC 
BIC 
ASL 
CMf 
BHI 
400 
AOO 
TABUEll ,«ORD 
,UOR[> 
,HORD 
iHORO 
.UORO 
lUORO 
iHORD 
,HORO 
,UORD 
lUORO 
.HORO 
,MORO 
,UORO 
,UOR0 
lUORCI 
,HORO 
,HORO 
,UORO 
,WORO 
lUORO 
TBtlENDI.HOHO 
NOTSYHI SH4B 
B|SB 
ADD 
CMP 
«HI3 
HOV 

BR 



rdSKlPEoL 

citeruutRBi 

NOCNC 

eNcrt(iiR9) 

READ" 
(Rt)*|R2 

NQTSVH 

••200|R2 

R2 

R2,«T0LlCX!I>ri8L!:it2 



|I«C' HIT» 



(ITS « POINTER, 



INIIT A STATEMENT KORO, 
IBRANCU THRU TABUEl, 



ERRSXi 

PS,R2 

(R2)iPC 

EXECUTE. TASUEl 

ENDiTABUCl 

FOR. TABLE! 

EOSUBpTABUEI 

G0T0>I4BLEt 

IF.T»»I.E1 

INPUT^TABbCl 

L|T.TABUE1 

NfXT'IABlEl 

PRINT. TABtEl 

RETURN.TABLEl 

StOP.!ABI.El 

I9N0RE.TABLE1 

lONORE-TABl.El 

RISTOHE.TABtEl 

i;NORt>TiBt,El 

teNgR|<TAiii,Ei 

REAO"I»BLtl 

i;NORE>TABt,El 

CALU-i«ai.Et 

EQF.TABUEl 

R2 

(Rl)*,R2 

(R9),l<2 

(M2)i>, SCALAR 

ASSICN INOT A UlNENO, 

|RJ),liINEN8(R9l |SA»E THE |,1NEN0, 

EXECUTE 



lASId, 


fACXll 


V021 


22>HAR«73 


1078 








107» 








1080 








1081 








1082 








1083 








1084 








1089 








1086 








1087 








1080 








1089 








1090 








1091 








1092 








1093 


003012 


112102 




1094 


003014 


120227 


009297 


1095 


003020 


0014K3 




1096 


003022 


120227 


000256 


1097 


003026 


001060 




1098 


003030 


122127 


000377 


1099 


003034 


!»01059 




1100 


003036 


310100 




1101 


003040 


709003 




1102 


003042 


009203 




1103 


003044 


109721 




1104 


003046 


001375 




1109 


003090 


122102 




1106 


003052 


001046 




1107 


003054 


309303 




1108 


003056 


001442 




1109 








1110 








1111 








1112 


003060 


013702 


000046 


1113 


003064 


001437 




1114 


003066 


010246 




1119 








1116 


003070 


109712 




1117 


003072 


001434 




itie 








1119 


003074 


310046 




1120 


003076 


010346 




1121 


003100 


122022 




1122 


003102 


001034 




1123 


003104 


009303 




1124 


003106 


001374 




1125 








1126 


003110 


161603 




1127 


003112 


062703 


000004 


1128 


003116 


002422 




1129 


003120 


001404 




1130 


003122 


109722 




1131 


003124 


001023 




1132 


003126 


109303 





16105 PASE 20 

I »CALL' STATEHENT 

I CALU "PRO§" (,-, . 

CALL! 

iIPNOF SNOSTK 
JSR P9lEVAU 



[EVALUATE FUNCTION NAME 



BCC 


ERRSXl 




MOV 


(SP)*|RB 




CMP 


R0,»177777 


ICHECK NULL STHINi; 


BE9 


CRRFNl 


ITES, ERHO" 


MOVB 


(R01*.R3 


|R3 IS STRING LENGTH 


HgvB 


|R0)*l(R0)« 


IRP IS AOOR OF CHARS 


lENoe 






ilPor 


SNOSTK 




HDVB 


(H1).,R2 


|R2 IS QUOTE CHAR 


CHPg 


R2,»,JOU0T 




BEQ 


CALLl 




CMPB 


R2,»,i;0U0T 




BNC 


ERRSXt 




CALLII CMPB 


(811*, », TEXT 




BNC 


ERRSXJ 




Mgv 


R1,R0 


)RP IS AOOR OF CHARS 


CL» 


RJ 




CALLPI INC 


R3 


, COUNT CHARS IN R3 


TSTB 


(111* 




»Nt 


CALLP 




CMPB 


(R1).,R2 


ICHECK CLOSING QUOTE 


BNE 


ERRSX} 




DEC 


"? 




BEO 


ERRFNl 




,ENOC 






1 INIT 1 


'ABLE SEARCH 




MOV 


••4«|R2 




BEQ 


BRRFNi 


INO FUNCTIONS DEFINED 


MOV 


R2l«(SP) 


iSAVE ONSTACK 


1 CHECK 


END TABliE 




CALLCXI TSTB 


(R?) 




BEO 


ERRPN) 




1 CHECK 


THAT (R?l CHARS 


HATCH 


HOV 


RBi.lJP) 




MOV 


R3,<I$P) 




CALLMll CMPB 


<R0)*,(R2)* 




BNE 


CALLNM 




DEC 


R? 




BNE 


CALUMl 




1 CHECK 


THAI 4.(R3I BHARS ARE » IN TABLE 


SUB 


(5P),R3 




ADO 


• 4,R3 




BLT 


ERRFNl 




BEO 


CALLX 




CALLM2I TSTB 


(H2)* 




BNE 


CALLNM 




DEC 


R3 





tsicu 


«»exii 


V021 


22«1tR«73 


14109 PtU 20.1 




1133 


M313t 


011374 






INC 


CAUM! 


113* 








1 


nCTUKN AnSUEI 


1135 


003132 


062704 


000006 


e»uxi 


tOD 


«4,SR IPOP STACK 


1134 


003136 


0112X2 






MQV 


(R2).H2 


ii3r 


B03140 


001411 






SEO 


EHRFNl 


113S 


003142 


0t014« 






MOV 


Rii*(}F) 


1139 


003144 


010446 






MOV 


R*f(i(P) 


1KB 


003146 


01094* 






HOV 


R»,.(!(P) 


im 














11« 


003190 


004712 






J»» 


p;i(R2i 


ll»? 














1144 


003192 


012609 






«ov 


(SP)*|R9 


n«» 


003194 


012404 






«0V 


(SP)*|R4 


ll«« 


003196 


012601 






M0» 


I»»»*|R1 


1147 


003160 


000167 


177464 




3mp 


ISnoRS 


114« 


003164 


000167 


007626 


CRRrNll 


ERRUPN 


1149 


003170 


000167 


006494 


CRKSXll 


JMF 


CRRSVN 


ll»« 








1 


lOVANCC 


TO NEXT T»8tE ENTRY 


1191 


013174 


012409 




CAtLNMI 


HOV 


(M(*(R3 


ll« 


003176 


012400 






HOV 


lfP)*|R0 


1193 


003200 


062716 


000006 




«00 


•iidfi 


UM 


003204 


011402 






HOV 


tSR)iR2 


11»» 

ll»» 
1197 


003206 


000730 






■R 


CAttCK 








1 'tET' 


»t»tehE((T routine 


11»» 


003210 


112102 




I.ETI 


H0V8 


(Rt)*l*2 


1199 


003212 


100766 






•MI 


ERRSXl iMOT A PO|NT 


11«8 


003214 


000302 






SMAR 


R2 


11>1 


003216 


192102 






0|«* 


(R1I*|R2 


ll«2 


003220 


961902 






100 


(R9|,R2 


1163 


003222 


004767 


010996 


tSSlCNI 


JSR 


PS.SETVAR 


1164 


003226 


122127 


000294 




CHPB 


IRt)*l<it9 


1169 


003232 


001394 






•NC 


ERRSXl IN8T EOSIGN, 


116» 
1167 

116* 


003234 


004747 


009394 




JSR 


'ClEVAI. 










.I'NOF 


SNOSTN 


1169 










0CS 


ASSSTN 


1178 










,ENoe 




1171 














117! 


003240 


122127 


000201 




CM^S 


(Rl)»l».EOt 


1173 


003244 


0013»1 






•NE 


ERRSX; 


1174 


003246 


004767 


013772 




JSR 


PSiSTpVAR 


1179 


003292 


000400 






SR 


EXECUTE 


1176 














1177 










,irwr 


SNOSTR 


1178 








ASSSTRl 


CHrs 


(Rl)*l'iEOL 


1179 










BNE 


ERRSXl 


IISI 










JSR 


PJlSTDSVAR 


1161 










BR 


EXECUTE 


1162 










,ENOC 




1163 














1164 








1 llofi 


OR 'End 


' STATEMENT 


lies 








CNCi 






1166 


003294 


020149 


000016 


eori 


CMP 


R1,C09E(R9) 


1167 


003260 


103014 






SHIS 


JMPROT 
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IIBB 
1169 
1190 
1191 
1192 
1193 
1194 
1199 
1196 
1197 
1198 
1199 
1200 



003262 004167 012204 
003264 019 012 

003270 000 
003272 
003272 000167 179662 

003274 004147 012172 

003302 019 012 

003304 092123 090117 
003310 000 
003312 

003312 000147 179960 



JSR RliMS; 

.BYTE CHiL' 

.BYTE 

.EVEN 

JMP EOIT 
1 ISTOP' STATEHENT 
STSPl JSR RiiHS; 

.BYTE Cfi.tr 

.ASCII 'STOP' 

.BYTE 

.EVEN 
JMPROYI JMP REAOY 
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1311 
1312 
1313 
1314 
1319 
1316 
1317 
1316 
I3l» 
1320 
1321 



003712 
003714 
003720 
003722 
003726 
003730 
003734 
003736 
0037*2 
003790 



001060 
120027 
001419 

120027 
1)01412 
120027 
001407 
000167 
012779 
000167 



000293 

000290 

176706 
177777 
176700 
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■NC 


EKRSX6 


Cmpb 


R0,«,$E 
GOtO 


0Ea 


CMPB 


R0,i,GT 


SCO 


GOTO 


CMP9 


R0|«,Ne 


9Ea 


Goro 


JHP 


IGNO«f 


"ESTOREIHOV 


••l,»K0L("9( 


JMP 


EXECUTE 
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1322 
1323 

1324 
1329 
1326 
1327 
1326 
1329 
1330 
1331 
1332 
1333 
1334 
1339 
1336 
1337 
1336 
1339 
1340 
1341 
1342 
1343 
1344 
1349 
1346 
1347 
1346 
1349 
1390 
1391 
1392 
1393 
1394 
1399 
1396 
1397 
1396 
1399 
1360 



003794 
003760 
003762 
003766 
003770 
303772 
003774 
004002 
004004 
004010 
004012 

004016 
004022 
004024 

004026 
004032 
004034 

004040 



004767 
103439 
122127 
201032 
109712 
001429 
126127 
001013 
»169a3 
0063X3 
0669^)3 
020369 
101006 
010113 
009269 
s)1120t 
■100167 
300004 



007274 
000201 



177774 
000032 



000004 
000002 



000032 

176614 



004042 047107 



004049 
004046 
004090 

004093 

004094 



000 
000004 
346129 



00016T 009970 



1 'GOSUB' AND ' 


GOTO' STaTEME"TS 


GosuSl 
GOtOI JSR 


P5.ru INE 


•CS 


ERR$X6 


CMPB 


(H1|*,».E0U 


0NE 


ERRSX6 


TST 


IR2) 


■Eb 


ERRCO 


CHPB 


-4(Ri),», casus 


BNC 


GONOSAV 


HOV 


GSeCTR(R9l,R3 


iSk 


R3 


AOO 


P0l,(R9),R3 


CHP 


R3,tIMIT(R9| 


0NI 


ERROEIP 


«0V 


RI.IRJ) 


INC 


GSBCTR(R9) 


GONOSAVtMOV 


(H2),K1 


JMP 


EXECUTE 


ERROEEPItOT 




(IFNOF 


IL,QNGtR 


.ASCII 


\GNO\' 


,ENDC 




,iror 


SI,ONCtR 


.ASCII 


'GOSUBS HESTEO TflO OCEPL'" 


.ENDC 




.BYTE 




.E»EN 




ERRGOI lOT 




.IFNOr 


SI,ONG^R 


.ASCII 


\UtNV 


.ENOC 




.ifpr 


SI,ONSeR 


.ASCII 


'UNOEFINCO LINE 'IU"BER' 


,ENOC 




.BYTE 




.EVEN 




ERRSX6I JHP 


EHRSX9 
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1223 g>33t« a«47»7 199274 

1213 313322 183113 

I2e4 gg3324 121127 090244 

120» 903330 103717 

1206 203332 121127 909294 

1207 903336 101314 
1200 003340 ^296114 
120V 903342 193S91 

1210 093344 112146 

1211 003346 904767 999244 
1212 

1213 

1214 

121» 

1216 

12lt 903392 S12693 

1216 903394 012600 

121« 0(3396 912602 

1220 9(3360 910046 

1221 903362 909(46 

1222 003364 020227 177777 

1223 003370 001401 

1224 903372 191216 
1229 903374 9090CO 

1226 003376 029327 177777 

1227 0(3492 0(1491 
1220 0(3494 191399 

1229 903406 962792 999093 

1230 9(3412 962793 990993 

1231 9(3416 9(9492 

1232 9(342( 122322 

1233 9(3422 0(1(47 

1234 9(3424 999399 

1239 9(3426 992419 
123$ 9(3439 995316 
1237 993432 992372 

1230 093434 122327 999049 

123* 9(3440 9(1949 

124( 9(3442 909390 

1241 9(3444 9(2373 

1242 9(3446 9(0497 

1243 0(349( 1109716 

1244 9(3492 9034:19 

1249 0(3494 122722 999940 

1246 0(346( 9(1930 

1247 903462 909316 

1240 903464 903373 
1249 903466 909726 

1290 0(3470 912690 

1291 003472 112192 

1292 003474 129227 909242 

1293 003900 901493 

1294 903992 129227 900209 
1299 903906 901(13 



I 'ir' ST»TE"ENT I?SUT;N£ 



ill 


^S.EVAi 


CMPO 


("llifikC 


(10 


ERKSX; 


CHPO 


("Di'iCO 


• HI 


EHRSXl 


CH» 


SP,R4 


BUO 


ERRPD3 


novo 


(Rl).,.(SP) 


JS« 


»5lEV»l, 


.IFNOF 


SNOSTH 


oce 


ERRHX4 


,eNoe 





HQV {SR)4,R3 

HOV (SP)*|R0 

MOV tSP)»|H2 

HOV R0|«(SP) 

ClR "(SP)" 

CAP R2,».l 

BEQ ,«4 

9ISB |N2|ilSP) 

CUR RO 

CMP R3|»-l 

BEQ ,44 

B|Se (R3),l<9 

too •3,R2 

too •3,R3 

BR ,*6 

ITLOOPI CHPB (R3)*i<R21* 

BNE ireOMP 

DEC RO 

. BUT latNO 

OEC (SP) 

BGE IFLOOP 

CHPB |R3)»(»BU 

BNE IFCOHP 

DEC RO 

BGE ,110 

BR irSEO 

truENOI TST (SP) 

BUC IFSEO 

CHP8 »BU,(H2)* 

BNE IPCO"P 

OEC (SP) 

BGT ,<10 

irSEOl TSt (SP)* 

HOV (SP)*|R0 

IPUEQRl HOVB (H1)*|R2 

CHPB R2|*,rHEN 

BEa ,<19 

CHPB R2,»,G0T0 

BNE CRRSXf 
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1296 903910 129027 999244 

1297 903914 S01S17 

129B 993916 129027 999246 

1299 993922 901514 

1260 993924 129927 999294 

1261 993930 901511 

1262 993932 ?00167 177112 

1263 993936 <)00167 906196 

1264 903942 902493 
1269 993944 999726 

1266 903946 912690 

1267 903990 900424 

1266 903992 121127 999244 

1269 993996 103767 

1279 993960 121127 900294 

1271 993964 101364 

1272 993966 929694 

1273 993970 103436 

1274 093972 916546 990942 
1279 903976 916546 099040 

1276 903692 112146 

1277 293694 994767 999996 
1278 

1279 
1269 
1261 
1282 

1283 993619 912690 

1284 093612 904767 913474 
1289 993616 901729 

1266 003620 ^02426 

1287 093622 112192 

128B 093624 129227 999242 

1289 993639 991493 

1299 993632 129227 999299 

1291 993636 991126 

1292 993640 129927 999244 

1293 993644 99144] 

1294 993646 129927 999292 
1299 993692 9(1440 

1296 903694 129927 000290 

1297 903660 901439 

1298 903662 900167 176762 

1299 903666 900167 999226 
1390 

1391 

1302 

1303 

1394 

1399 903672 9(9726 

1396 093674 91269( 

1327 903676 112192 

1398 903790 129227 990242 

1399 903794 901493 

1319 093796 129227 999299 



CHPB 



R(|».UE 



BED GOTO 

CHPB R0,«,GE 

BED GOTO 

CHPB R0,i,Ea 

BED GOTO 

JMP IGNORE 

ERRSX7I JHP ERRSXS 

IFCOMPl BUT IfSOT 

Tsr (SP)« 

HOV (SP)*,R9 

BR IFUUTH 

IFNUHERICHPB (Rl)i»,LE 

BUO ERR5X7 

CHPB (Rl)i»|EO 

BHI ERRSX7 

CHP SP,R4 

BUO ERRP03 

"OV FAC2(H5),i(SP) 

MOV ftCl(H9|,.(SPl 

M0V8 (Hl)«,.<SP) 

JSR PfiEVAU 

.IFnOF SNOSTH 

SCS ERRMX4 
,ENOC 

HOV (SP)«|II9 

JSR pCiSUBSTK 

BED IFUEOH 

BUT IFUOTH 

IFUUTRI HOVB (R1)*(R2 

CMPB R2,»,THtN 

BEO ,410 

CHPB R2,<,G0T0 

ONE ERRSX6 

CHPB RO|«,LE 

BEO GOTO 

CHPB R0|«,UT 

BES GOTO 

CHPB R(|«,NE 

BEQ GOTO 

JHP IGNORE 

ERRPa3l JHP ERRPOU 

iJFnOF INOSTH 

ERRHX4I JHP ERRMIX 
,ENOC 

IFSGTI TST (SP)* 

MOV (SP)*|R0 

IFUOTRI HOVB (Rt)*|R2 

CHPO R2,»,THEN 

BEQ ,*10 

CHPB R2,t,G0T0 
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1961 








1 fRETUKXl STtT 


ENENT 






H62 


004060 


122127 


000201 


RErUKNt 


CM^B 


(Rt)*i«.EOL 






iJ63 


004064 


001373 






RNE 


ERRSX6 






1364 


!ltl4066 


016S03 


000032 




MOV 


eSBeTR|RS),A3 






1369 


004072 


020327 


000033 




CMP 


R|.«3 






1366 


004076 


il01413 






8E9 


ERRRtI 






1367 


004100 


009303 






OEC 


"3 






1368 


004102 


010369 


000092 




»0V 


R3,SS8CTR|R9) 






136» 


004106 


006303 






»Sl 


Rl 






1370 


004110 


066903 


000004 




>D0 


P0L(R»l.i'3 






1371 


004114 


009713 






TST 


(M3) 






1372 


004116 


001403 






BED 


EHRRET 






1373 


004120 


311301 






MOV 


IR3I.KI 






1374 


004122 


000167 


176926 




JMP 


EXECUTE 






1375 


















1376 










iifNor 


INOSTK 






1377 








ERRMXgt 


JMP 


ERRMIX 






1376 










lENOC 








137» 


















138l> 


004126 


Z00004 




ERRRETI 


lOT 








1381 










,;fNor 


JkONCtR 






1382 


004130 


041122 


107 




.ASCII 


\H8S\ 






1383 










,ENOC 








1384 










.iroF 


$l,ONGtR 






1389 










.ASCII 


> RETURN BEFORE 


OOSUS' 




1386 










,ENDC 








1387 


004193 


000 






,B»TE 








1388 

t38» 
1370 










.EVEN 














1 Tor' 


STATEMENT 






1391 


004194 


010146 




FORI 


MOV 


Rii'lSPl 






1392 


004136 


009316 






OEC 


ISP) 


KLoe 


OF the 'FOR 


1393 


004140 


112103 






MOVB 


(Rl)*iR2 






1394 


004142 


100744 






BMl 


ERRSX6 






1399 


004144 


000302 






SUAB 


R2 






1396 


004146 


192102 






BIS8 


(Rt|*iR2 






1397 


004190 


061902 






ADD 


(R9),R2 






1398 


004192 


021227 


177777 




CMP 


<R2))»,SVAR 






1399 


004196 


001736 






BEQ 


ERRSX6 






1409 


004160 


122127 


000294 




CMPB 


(Ri)*,»,Ea 






1401 


004164 


001333 






BNC 


ERRSX6 






1402 


004166 


010269 


000022 




MOV 


R2,VAi<SAV|R9) 


KVAR 


OF THE FOR) 


1403 


004172 


004767 


004420 




JSR 


RSiEVAJ. 






1404 


















1409 










.IFNOF 


INOSTH 






1406 










BCS 


EHRMX? 






1407 
1408 
1409 










.ENDC 








004176 


012769 


177777 000024 


MOV 


••liSSlSAV<RS) 


iForse to SC«i,AR, 


1410 


004204 


004767 


013034 




JSR 


p;iSt6var 






1411 


004210 


122127 


000240 




CMPB 


|H11*,»,T0 






1412 


004214 


001317 






BNE 


ERRSXi 






1413 


004216 


0B4767 


004374 




JSR 


PSiEVAU 






1414 


















1419 










.IFNOF 


jnosth 







iiASICL HACXll V021 22>nAN>79 16109 PACE 23-1 

BCS 

.ENDC 

MOV 

MOV 

CUR 

MOV 

CMPB 

BEQ 

CMPB 

aNE 

JSR 

,ifnof 

BCS 

.ENDC 

CMPB 
BNE 
FORONEI INC 
MOV 
BR 
FORSKIPIJSR 
FORLOOKIMOVB 
BMI 
INC 
SHA8 

eiSB 

AOD 
CMP 
8H1S 
MOV 
FORNOUI CMPB 
BEO 
CMPB 
BEO 
CMPB 
BNE 
INC 
MOVB 
BMI 
INC 
SUAB 
BISB 
AOD 
CMP 

ERR4W0I lOT 

, IFNOF 

.ASCII 

.ENOC 

,1F0F 

.ASCII 

,ENOC 

.BYTE i 



1416 








1417 








1418 








1419 


004222 


016969 


300040 000024 


1420 


004230 


016569 


000042 000026 


1421 


004296 


009069 


330040 


1422 


004242 


012769 


030001 000042 


1423 


004290 


121127 


000201 


1424 


004294 


001410 




1429 


004296 


122127 


000241 


1426 


004262 


001274 




1427 


304264 


004767 


004926 


1428 








1429 








1430 








1431 








1432 








1493 


004270 


121127 


000201 


1434 


004274 


201267 




1499 


004276 


809201 




1436 


004300 


016903 


000090 


1497 


004304 


000402 




1498 


004306 


B04767 


012646 


1439 


004312 


111102 




1440 


004314 


100410 




1441 


004316 


009201 




1442 


004320 


000302 




1443 


004322 


152132 




1444 


004324 


061502 




1449 


004326 


021227 


177779 


1446 


004332 


103001 




1447 


004334 


011203 




1448 


004336 


121127 


000225 


1449 


004342 


001420 




1490 


004344 


121127 


300211 


1491 


004990 


801420 




1492 


004992 


121127 


000203 


1499 


004996 


001353 




14S4 


004960 


009201 




1499 


004362 


111102 




14S6 


004964 


100790 




14S7 


004366 


009201 




1458 


004970 


000302 




1499 


004372 


152132 




1460 


004374 


061532 




1461 


004376 


't^^^l•i 


000022 


1462 


004402 


001341 




1463 


004404 


300004 




1464 








1469 


004406 


093906 


116 


1466 








1467 








1468 








1469 








1470 


304411 


000 





l(F4C HAS THE STEP) 



ERRMXJ 



FACI(H9),SS1SAV(R9) 

FA(;2(H9),SS2SAV(09II(UIH1T OF THE FOR) 

FACl(R9) 

<1|FAC2(R!>| lASSMHED STEP IS 1,0 

(HD.P.EOl. 

FORONE 

(Htj.,«,STCP 

ERRSX6 

PC.EVAl, 



snosth 

EHRMX9 



(RiliR.EOL 

ERRSX6 

Rl 

tlNEN0(R9),R3 

FORUOOK 

PC.SKIPEOU 

(R1),K2 

FORNOC 

Rl 

R2 

(R1)*|R2 

(R9),fl2 

|R2),«, SCALAR 

FORNO). 

|R2||K3 

(Rlll'.EOF 

ERR4W0 

(RD.I.NEXT 

fornext 

<Rl)l»,FOR 

FORSKIP 

Rl 

<R1),R2 

F0R5K1P 

Rl 

R2 

|R1)*|R2 

|R9),H2 

R2,VARSAV|R9) 

FORSKJP 



KTHF (.INENO WHIUE LOOKI'ICI 



I THE CODE IS NOW BEING SEARCHED 

iFOREWARO FROM THE 'FOR( FOR A NEXT upH 

iTHE SAME VAR, IF »EOFf OR AMOThER 'FOR' 

(WITH The same var is found firstieriop, 



SbONGER 
'FWN'" 



SU8NGER 

'FOR MITHOUT NEXT! 



iSICL 


XACXll 


V821 


22anAR.73 


1«71 








1472 


984412 


e42731 


800013 


1473 


884414 


111132 




1474 


884428 


100732 




t47S 


884422 


809201 




1474 


384424 


808382 




1477 


884424 


152182 




t47e 


884438 


S41582 




147» 


084432 


828249 


888822 


I4ea 


384434 


381323 




14»t 


884448 


121127 


388281 


1482 


BB4444 


8818f8 




1483 


884444 


142731 


388814 


1484 


884492 


116421 


388881 


1485 


884494 


111621 




1484 


884448 


114921 


888825 


1487 


884444 


116921 


888824 


148» 


884478 


116921 


888827 


1489 


884474 


116521 


888824 


1498 


884580 


116921 


388841 


1491 


e845!l4 


116521 


388348 


1492 


884910 


116921 


388343 


1493 


884514 


114921 


883842 


1494 


884528 


818314 




149» 


884522 


016944 


380848 


149J 


884524 


881082 




1497 


884538 


814514 


808042 


1498 


884534 


814944 


880024 


1499 


884548 


814544 


800824 


l»g« 


884544 


884747 


084844 


tsei 


884598 


384747 


812934 


ISB2 


884594 


881421 




l»g3 


884554 


188485 




IS«4 


804540 


805724 




1SJ» 


804542 


10(417 




l»B4 


804544 


808404 




1»B7 


884544 


800147 


805054 


1988 


804572 


809724 




1»09 


884574 


108012 




l»t0 


804574 


812445 


888038 


IJII 


804402 


105841 


177744 


1>12 


804484 


105861 


177745 


1»13 


804412 


889281 




1»14 


884414 


800167 


174034 


1915 


084420 


805724 




1514 


884422 


809724 




1S17 


804424 


114144 


177745 


1518 


084430 


114164 


177744 e 


1519 


084434 


812481 




152» 


084440 


800147 


174804 


1»21 








1522 









14105 PAGE 23>2 

.E'EN . 

FOONEXTIAOO •13,»1 

HOVB I'D. "2 

0HI roRSKir 

INC At 

JUAB R2 

alSB |R1)*|R2 

igo |N5),N2 

CMP R2,yAi<SAV(l)5) 

BNC FORSXiP 

CHPB (HDi'iEOL 

BNC CRSXlit 

SUB •14, Rl 

»OVB 1(SP),(R1)* IPUT AUDK OF THE TOR' ArTCH THE (NE»T' 

"OVB <SP),(R1(» KTHJTS "HAT THE 2*4*4 BYTES ARE fOH) 

HOVB SSISA»*1(H9),(R1)*)P1IT THE LIHIT AFTER THAT, 

HOVB SS1SAV|R9I,(R1)* 

nova S»2SAV*1(K9)>(R1)* 

HOVB SS2SAV|R5I,(R1I* 

HOVB r4Cl*l|R9),(Rl)* IPUT THE STEP AFTER THAT, 

HOVB FAC1IR9),(R1)* 

HOVB FAC2*ilR9),(Rl)* 

HOVB FAC2(H9),(R1I* 

HOV R3i(SP| IPUT THE SEAHCH tlNENO 0" THE STACK, 

HOV FAC1<R9),>(SP| iPllf SCNtSTEP) ON THE STACK, 

BNE ,*4 

HOV FAC2(N51,(SP) 

HOV S?2SAV|R9),.(SP) IPUT THE LIMIT 0" THE STACK, 

HOV SS1S«VIR9I,*(SP) 

JSR PJiEVA^ lOET THE CURRENT VALUE OF THf INDEX, 

JSR PfiSUBSTK (SUBTRACT THE LIMIT, 

BEO FORGOeO 

BMI FORLTLH 

FORGTtHITST (|P)» 

BMI FORGO 

BR FORiERO 

ERSXtd gMP ERR$X» 

FORLTLMITST (SP)» 

9PL FORGO 

FORiEROIHOV (SP)*,UIN£N0<R9) 

CLRB •14(R1I 

CLRB •13(Ril 

INC RJ, 

JMP EXECUTE 
F0RG000IT5T 1SP)» 

FORGOI TST ISfPI* 

HOVB •l3(Rl)i<ISP) 

008081 HOVB •14(RllillSP) 

"OV (SP)*,R1 

JMP IGNORE 

,EOT 



BASICL HACXll V821 22rMAR>73 14185 PAGE 24 



1923 








1924 








1525 


884444 


809082 




1924 


884444 


152182 




1527 


304490 


800382 




1928 


304492 


152182 




1929 


804494 


320245 


300014 


1938 


884440 


183131 




1531 


884462 


122227 


338283 


1932 


804444 


881124 




1933 


884478 


342781 


880810 


1534 


384674 


112103 




1939 


384476 


108525 




1934 


304738 


383333 




1537 


804732 


19U33 




1938 


384734 


341933 




1939 


084784 


089381 




1*40 


304718 


122122 




1941 


384712 


301114 




1942 


304714 


121122 




1543 


304714 


301112 




1544 


304720 


121227 


888294 


1545 


304724 


081137 




1544 


304724 


318349 


388822 


1547 


884732 


v"21327 


177777 


1548 


884734 


081585 




1949 


384748 


022327 


177779 


1958 


384744 


081431 




1551 


084744 


311333 




1992 


384790 


n2365 


388343 


1953 


084794 


311365 


333342 


1964 


304760 


."85331 




1995 


804762 


114146 




1596 


304764 


114166 


038831 


1997 


304770 


114144 




1598 


884772 


114144 


333881 


1959 


884774 


811665 


388824 


1548 


309882 


881083 




1541 


309884 


316445 


808882 


1542 


309812 


304747 


002392 


1563 


009314 


314544 


000842 


1564 


309822 


014544 


808048 


1565 


089824 


114144 




1566 


389838 


114164 


380881 


1967 


039834 


114144 




1568 


309834 


114164 


380081 


1569 


389842 


304747 


812244 


1578 


005844 


801417 




1571 


389858 


100484 




1572 


389892 


335769 


800026 


1573 


385856 


133413 




1974 


389368 


383403 




1575 


309062 


385769 


308026 


1576 


089864 


183837 




1977 


8B5B7B 


l«5Bn 





I 'OUHCE FILE 43 

I 'NEXT' STATEMENT 

NEXT I CLR "2 

BISB (R1)*|R2 

3HAB R2 

9|SB (R1I*|R2 

CMP R2,U07REE(R5) IJUST To PKEVEMT AN >1XH TRaK, 

BHIS ERRNCXr 

CMP8 (R2)*|»,F0R 

BNC ERRNEXT 

Aoo •;0iRi 

HOVB (R1)*|R3 

BMI ERR$X2 

SUAB R3 

BISB (Rt),H3 

ADD (R5|,H3 

OEC Rl 

CMPB tRl)*ilR2)* 

BNC ERRNEXT 

CMPB (Rt)i(R2)* 

BNC ERRNEXT 

CMPB (K2),»,E0 

BNE ERRNEXT 

HOV R3,VAH3AV(R9) iSAVF VARIABLE ADDRESS', 

CMP (R3),»,SVAR 

BEO ERRSX2 

CMP tR3)*i«, SCALAR 

BEO ,44 

HOV |R3),H3 

"OV (R3|*|rACl(R91 IPUT THE FOR VAR VALUE IfTO FAC. 

MOV (R3|,7AC2(R5) 

DEC Rl 

HOVB •<Rl)i«(SP) IPUT STEP ON THE STACK', 

HOVB -(Rllit(SP) 

HOVB .(Rl)i«(SP) 

HOVB •IRDilISP) 

HOV (SP),SS2SAV(R5) ISAVE SON(STEP), 

BNE ,*10 

HOV 2(SP),SS2SAV(R9) 

JSR PC,ADUSTK 

"OV FAe2(H5),.(SP) 

HOV FAC1(I<9),«(SP| 

HOVB •(Rl)i*(SP) 

HOVB •(Rl)il(SP) 

"OVB -(Rll|.(SPl 

"Ova -(Rl)it(SP) 

JSR p;,SUBSTK 

BEO NCXGO 

BMI NEXLTLH 

NEXGTLHITST SS2SAVIR5I 

BMI NEXGO 

BR NCXENU 

nEXLTLHITST SS2SAV(R51 

BPL NEXGO 

NCXENDI CLRB •JRl) 



BASICS MACXll vajl 22,HAR,73 ],>!B9 P»OE 84,1 



157S 

1>7» 

1980 

l>9i 
1982 

1983 
1984 
1999 
1996 
1987 
1989 
1S9» 

I9«e 

1991 
199J 
1993 
1994 
199S 
1996 
1997 
1999 
1999 

net 



399072 
919074 
Will 
209192 
009196 
909110 
909114 
909116 
909122 
909126 
909134 
909140 
909144 



909191 
909192 



109041 
J6279t 
!ZZ»Zt 

990167 
114146 
114166 
912691 
912669 
<I12669 
912769 
904767 
999167 



179946 

909091 

990940 
090042 
177777 
912194 
1755B4 



909146 941116 



909167 904472 



too 

JMP 

NExeot xgva 

"OVB 

«ov 

NOV 

MOV 
NQV 
JSR 
JHP 
ERRNEXTIIOT 

(irNor 

.ASCII 

lENOC 

.Ifor 

.ASCII 
,ENOC 
.BYTE 9 
.EVEN 
ERRSX2I JHP 



-IRll 

'19, Ri 

(SPltilSI")* 

EXECUTE 

•(RDi-ISP) 

«IRllil(SP) 

(SP).,R1 

(SP)*,FAC1(R!) 

(SP)*,PAC2(R5) 

••IiSSisavir;) 

PC.STgVAR 
I^iNORE 

SPONGER 

\Nar\ 



SliONG^R 

'NEXT BErORE roR' 



lJmr\t »W»Y INCREMENTED INDEx, 



iSTQPE THE I'iCREHENTED IMOEX, 



ASICL 


HACXll 


VB21 


22>HARi 


73 16 


1691 










1602 


009196 


121127 


900261 




1693 


909162 


901916 






1694 


009164 


909291 






1699 


009166 


904767 


903140 




1696 


909172 


:i097a2 






1697 


099174 


301433 






1698 


909176 


916269 


009320 


900034 


1699 


009294 


121127 


000201 




1610 


009210 


301493 






1611 


909212 


122127 


000260 




1612 


909216 


301399 






1613 


909220 


121127 


900243 




1614 


909224 


901440 






1619 


909226 


121127 


399236 




1616 


999232 


901440 






1617 


999234 


121127 


399291 




1618 


909240 


301439 






1619 










1620 










1621 


309242 


121127 


999297 




1622 


909246 


301913 






1623 


909290 


121127 


999296 




1624 


309294 


301910 






1629 


909296 


121127 


390276 




1626 


909262 


901932 






1627 










1628 










1629 


909264 


304767 


903326 




1630 










1631 










1632 










1633 










1634 










1639 


399270 


327527 


.900034 


000B74 


1636 


999276 


101492 






1637 


395399 


994767 


900326 




1639 


399334 


-94767 


910490 




1639 


305319 


^16676 






1640 


909312 


904167 


919294 




1641 


995316 


040 






1642 


999317 


090 






1643 










1644 


399320 


900499 






1645 










1646 




309320 






1647 


3^5322 


i!00490 






1646 


30'5324 


300492 






1649 










1690 










1691 










1692 










1693 










1654 










16bS 











09 PAGE 29 

I 'PRINT' STATEMENT 
PRlNTI CmPB 

BNC 

INC 

JSR 

TST 

9EI3 

HQV 

COLONCHICHPB 

BEQ 

CMPB 

BNE 
PRNT01I CMPS 

BED 

CMPB 

BED 

CMPB 

8E0 



IRl)i».POU«lO 

PRNT01 

Rl 

PCiCHKOSET 

R2 

COI,0NCH 

TA9L9(R2),i;0LU''N<R!!l 



TABu9 



.I^OF 

CMPB 

ma 

CMPB 

BEQ 

CMPB 

BEQ 

.ENOC 

JSR 



(Rll.P.EOI. 

PRNT0i 

1R1)»,». COLON 

EKRSX2 

IRt),». COMMA 

PSJOB 

IRll, », SEMI 

PRIBOIH 

IRlli'.EOI, 

PRIBOTH 

JNOSTN 

(RUlli.SOUOT 

PRJSTH 

(RDlP.OHUOT 

PRISTH 

(Rl)i»,TA8 

PRIT9 



lis IT 'PRINT »N1 '. , ,'T 



ICUECX CHANNEL AND SET.UP 1/n 
lOfVICE CODE 



INON-TTY COLUMN '"OU^T 



IDPN'T NEED COLON IF NOTHING 
fOLLO"S NUMBER 



iCHtCK P"INT STRING 



lOR TAB f\INCT10N 



P?iEVAl 

.IfNOF tNOSTH 
BCS PR|STK 
lENDC 



ChP 

BLOS 

JSR 

JSR 

.WORD 

JSR 

.ASCII 

.BYTE 9 

.EVEN 

BR 

...2 



•50LUMN(R9).»74 
.*• 

pg.pRlNC" 

PC.NUMSGN 

PUTCHAH 

R1,MSG00EV 



PRIBOTH 



CLMNPP 
CLMNLP 



.IFnOF inostr 

PRlSTRl HOV (SP)*,R2 

INC R2 

BEO PRIBOTH 



S«SICL HACXll vajl 28.M*fl,73 16IB9 P»SE 25.X 



1696 
1657 

t6$e 

1699 
1660 
1661 
1662 
166] 
1664 
1669 
1666 
1667 
1669 
1669 
1671 

i»n 

1672 
l»73 
1674 
1679 
1676 
1677 
1671 
1679 
1690 
1691 
1692 
1689 
1694 
1689 
1686 
1687 
1688 
1689 
1690 
1691 
1692 
t«93 
1694 
1699 
1696 
1697 
1698 
1699 
1708 
1701 
1702 
1703 
1704 
1709 
1706 
1707 
1708 
1709 
1710 



009326 
009332 
009334 
009340 
009342 
009346 
009390 
009394 
009396 
009362 
009364 
009370 
009372 
019374 
009400 
009402 
009406 
009410 
009414 
009416 
009422 
009424 
009430 
009431 

009432 
009434 
019440 

009442 
009444 
009490 
009492 
009494 
009462 
009466 
009472 



009476 
009900 
009904 
009906 



004167 
040 
121127 
0*1(03 
004767 
000441 
122127 
301027 
317900 
001430 
020B27 
0(1429 
1(3403 
0(4767 
000421 
020027 
0(1416 
02((27 
0(1413 
020(27 
0(t41( 

0(4t»r 

040 



810170 

000 

000201 

00(264 

000243 
00(034 

000(70 

0(0232 

00(092 
0(0834 
000(16 
010072 



0(0791 

124127 0(0236 

0(1267 

9(9201 

121127 00(201 

0(126] 

0(9291 

012769 0(0(3« 0(0(34 

060569 000034 

109(65 (0(076 

0(0167 179196 



112109 

122127 00(377 
0(1222 

112102 



Ct« 
0138 
100 
PHltOOPICHP 
BUD 
• JSH 
HOVB 
JSR 

oec 
Bcr 

BR' 
,ENDC 

PRIChI JSR 

jBYTE 

PRISOTHICHPB 
BNC 
JSR 
BR 

PRiHORCICnPB 
BNC 

PRICOHMINOV 

aeo 

CHP 

BEO 

BLO 

JSR 

BR 

CMP 

8E9 

CMP 

BEO 

CMP 

BEO 

JSR 

, ASCII 

,B»TE 

,EVEN 

BR 
PRISEMIICHPB 

BNE 

INC 
PRITESTICMPB 

BNC 
PRIJNPI INC 

MOV 

too 

CLRB 
JMP 

iiror 

PRtSTRl MOVB 
CMP8 
PRISJI BNE 
PRISTll MOVB 



R3 

•IR2)|R3 
• 3,R2 

•50LUMN(R9),»11( 
■ •♦ 

PC, PR 1 NCR 
<fl2)*lRB 

PfiPUTCH»R 
R3 

P«1L00P 
PRIBOTH 



RilHS<rO0EV 

81,10 

(Hl),.,EOl. 

PRIMORE 

PflPRlNCR 

PRIJMP 

<R1)*i».C0HM» 

PRISEMI 

•COLUMN(R»|,R( 

PHITEST 

RB,»7B' 

PHITEST 

i*t( 

P?lPRINCR 

PRITEST 

R0||92 

PHITEST 

HB|434 

PHITEST 

RB,»16" 

PHITEST 

R],<HSg60Ey 



PHICOMM 

-(Rt)l«,SEMI 

PRNTBt 

RJ 

(Rt)i»,E9L 

PRNT01 

Ri 

»CtHNTTT,C9LUHN(P5l 

R9,C0LUNNIR9I 

00Ey(H9) 

EXECUTE 



IRE-SET TO TTY COUUMM COUNT 



snosth 

(«t)*iH3 
(Rl)*r»,TE»T 
ERRSX2 
(Rl)t,R2 



lS«vr OPEN OUOTE CMiR 
ITEST FOR TEXT BYTE 

ICET NEXT CH«R 



»SICI, 


H»CX11 


VB21 


22>H«R.73 


1711 


0(991( 


001776 




1712 


0(9512 


12(203 




1713 


005514 


0(1707 




1714 


005516 


12(227 


0(0201 


1719 


0(9922 


0(1613 




1716 


0(9524 


027527 


008034 01 


1717 


009532 


103402 




1718 


0(5534 


004767 


0(((72 


1719 


0(554( 


010208 




1720 


005542 


004767 


01113( 


1721 


005546 


!'00757 




1722 








1723 


085550 


1(9721 




1724 


0(5552 


(1(4767 


003(4( 


1729 


005556 


0(4767 


0(6222 


1726 


005962 


122127 


008237 


1727 


009966 


0(1346 




1728 


0(957( 


1165K2 


000042 


1729 


0(5574 


167502 


080834 


1730 


0(5600 


720227 


000110 


1731 


009604 


103403 




1732 


0(9606 


162702 


000110 


1733 


009612 


008772 




1734 


009614 


005302 




1739 


005616 


100646 




1736 


009620 


012700 


000040 


1737 


009624 


0(4767 


011046 


1738 


005630 


080771 




1739 








1740 








1741 


0(5632 


384167 


007664 


1742 


0(5636 


015 


012 


1743 


009640 


008 




1744 




0(9642 




1745 


0(9642 


0(9075 


008034 


1746 


009646 


0(8207 




1747 








1748 









16189 PACE 29.2 



BEO 

CmP8 

BEO 

CMPB 

BEO 

CMP 

BUO 

JSR 

MOV 

JSR 

BR 



080110 



PRITBI TSTB 
JSR 
JSR 
CMPB 
BNE 
MQVB 
SUB 

PRITB8I CMP 
BLO 
SUB 
9R 

PRITBII OEC 
BMl 
MOV 
JSR 
BR 
lENDC 

I 

PRINCrI JSR 

,BTTE 

,B»TE 

,EVEN 

CLR 

RTS 



PHISTl 

R2|R3 

PHIBOTH 

R2i«,E0L 

ENRSX2 

PCOI,UMN(R1>),«110 

I** 

PCiPRINCR 

R2,R0 

PC,PUTCH«H 

PRIST! 

(RD* 
PSiEVAI. 
PC, INT 
(R1)*,»,RP»R 

PRISJ 

r»C2(H»)iH2 

PC0LUMN(R5|,P2 

R2,il72, 

PRITBI 

•72,, R2 

PHITBB 

H2 

PHIBOIM 

»BL,R8 

PC,PUICHAH 

PHITBl 



RiiMSCoOEV 
CR,Lf 



•COLUMN (R9) 

PC 



I CHECK CLOSE QUOTE 
iCHtCK END LINE 



lOET rv VALUE 
[COMPUTE t SPACES 



BASICL MACXtl VB21 22rl**n>73 



iej9 

1660 
lB6t 
166! 
1663 
1664 
1669 
1666 
1667 
1866 
1669 
1672 
1671 
1672 
1673 
1674 
1»7S 
1676 
1677 
1676 
1679 
1686 
1661 
1662 
1683 
1664 
1669 
1666 
1667 



026234 (10^167 063416 



16!I9 P«ae 26>2 
CARSXSI JHP 



ERRSXtl 



006240 000201 

006242 000167 011970 



.IfNOF 


tNOSTH 


INPSTRI »0V 


l.lNEiH9),R3 


MOV 


R3,R2 


CHPB 


(R3)4|«CR 


BNC 


■ •4 


•iOV 


R2i-(SP) 


sua 


«J,(SP) 


MOV 


R3,.(SP) 


sue 


R2,|SP) 


DEC 


(SP) 


BEQ 


INPNUUL 


MOV 


SP,R2 


AOO 


• 2,R2 


JSR 


PCiH»KESTH 


INPNNUIIJS' 


PCiSTOSVtR 


TST 


<SP)* 


CMP8 


(Hl)«|P,COHHt 


SNE 


IMPEND 


TST 


(SP)*" 


JMP 


lNPY0i 


INPNULLIHQV 


••titSP) 


tR 


INPMNWU 


,ENOe 




INPEOLI iHORO 

errtrSi jmp 


■ Sol 

ERRTRN 
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1666 

1669 
1690 
1691 
1692 
1693 
1694 
1699 
1696 
1697 
1696 
1699 
1900 
1901 
1902 
1903 
1904 
1909 
1906 
1907 
1906 
1909 
1910 
1911 
1912 
1913 
1914 
1919 
1916 
1917 
1916 
1919 
1920 
1921 
1922 
1923 
1924 
192S 
1»26 
l»27 
1926 
1929 
1930 
1931 
1932 
1933 
1934 
1939 
1936 
1»37 
1936 
1939 
1940 
1941 
IV42 



006246 
006290 

006292 
006294 

006296 

306260 
006264 
006270 
006272 
006276 
006300 
006304 
006306 
006312 
006314 



006316 

006322 
006324 
006326 
006332 
006334 
006340 
006342 
006346 
006390 
006394 
006360 
006362 
006370 
006372 
006376 
006402 



112102 

100771 

000302 

192102 

?6t902 

304767 009320 

017903 000004 

001444 

020327 177777 

001491 

121327 000201 

001490 

122327 000243 

^01036 

111302 



I IREAO' STATE-tENT 



004767 
300432 
010346 
304767 
012603 
121327 
301403 
121327 
301020 
310375 
122127 
301732 
126127 
301321 
000167 
309079 
300004 



006404 347917 



006142 

310712 
000201 

000243 

300004 
300243 

177777 000201 

174296 
000004 



104 



306410 309079 000001 
006414 000004 



006416 042102 



122 



RElOt M0V8 


(lll)»|R2 


aMI 


ERRSXB 


SMAa 


R2 


aise 


(Rl)*|H2 


ADO 


|R9||H2 


JSR 


PS.SEJVAR 


MOV 


•P0L<«9),R3 


BEO 


EHROATA 


CMP 


R3,».i 


BEQ 


REASRCH 


CMPa 


(R3),»,E0U 


BEO 


REAFIND 


CMP8 


(R3)*(». COMMA 


8Ne 


REAOBAD 


REAOCOTIHOVa 


|R3),H2 


iiFNOr 


SNOSTH 


CMPB 


R2,i,aQU0TE 


BEQ 


REAOOI 


CMPB 


R2,«,SaU0TC 


BEO 


REAOOT 


,ENOC 




JSR 


P5iL1TEV4L 


BR 


REAOBAD 


MOV 


R3,.(SP) 


JSR 


P$,STOVAR 


READOUNIMOV 


(SP)»,R3 


CMPB 


(H3),»,E0U 


BEO 


.♦« 


CMPB 


(R3),», COMMA 


BNE 


REAOBAD 


MOV 


R3,fPDI,(R9) 


CMPB 


IRI)»I«, COMMA 


BEO 


READ 


CMPB 


• KRlllf.EQI. 


BNE 


EHRSX6 


JHP 


EXECUTE 


READOUT 1 CUR 


•P0L("9I 


ERROATAIIOT 




.IfNDf 


mONCtR 


, ASCII 


\000\ 


,ENDC 




ilfor 


SI,ONGER 


.ASCII 


'OUT or DATA' 


,ENOC 




,BVTE I 


1 


(EVEN 




REAOBAOICLR 


•P0U(H9) 


lOT 




■irNor 


tUONGER 


.ASCII 


\BOR\ 


.ENOC 




.iroF 


SUONCEH 



BASICL HACXtl V021 22iin*R<79 tt|t9 PACE 2> 



17«' 

1750 S0!650 I2ii.ii eiMii 

1792 095696 204167 207624 



I (INPUT' STATEMENT 



1753 








1754 


005662 


046111 


ll« 


1755 








1756 








1757 








1758 








175» 


005665 


000 




1760 








1761 


005666 


000167 


173246 



1762 005672 105065 000062 

1763 009676 109065 000077 

1764 009702 121127 0002»1 

1769 005706 001010 

1766 009710 109269 000062 

1767 005714 009201 

1766 005716 004767 002402 

176« 009722 122127 000260 

1770 009726 0011«2 

1771 009730 010746 

1772 009732 062716 000306 

1773 009736 112102 

1774 009740 100939 
1779 009742 000302 

1776 009744 192102 

1777 009746 061902 

1778 009790 004767 009630 

1779 009754 011603 

1760 005796 121327 000201 

1781 005762 001050 

1782 009764 109769 000062 

1783 009770 001003 

1784 009772 004167 007476 



1789 005776 
1786 009777 



077 

00 



1787 

1788 006000 010146 

1789 006002 S04767 006336 

1790 006006 103002 

1791 006010 S00167 000366 

1792 006014 012601 

1793 006016 016902 000022 
1794 

1795 
1796 
1797 
1798 
1799 

1800 006022 010146 

1801 006024 010446 

1802 006026 016501 000020 

1803 006032 122127 000015 



INPUTI MP 
BHI 
JSR 

,IFNOF 
.ASCII 
lENOC 

,IFor 

.ASCII 
.ENOC 
.BYTE 
.EVEN 

gnp 

INPYESI CtRB 

eiHB 

CMPB 
BNE 
INCB 
INC 
JSP 
CMPB 
BNE 
INPY01I NOV 
INPPCt AOD 
INPIOOPINOVB 
BHI 
SUA8 
BISB 
AOO 
JSR 
INPRTRYIMOV 
CHPB 



INPNCNI 



NOgNI 



NOaHil 



BNE 

TSTB 

BNE 

JSR 

.ASCII 

.BYTE 

,EVEN 

HOV 

JSR 

BCC 

JMP 

NOV 

NOV 



RliCOoe(R9l 

INPYES 

niiNSlERR 

SkONS^R 

MUNN 

StONCLR 
'ILLEItAU Noa' 



REA0Y2 

T3IR9! 

IUE»(R91 

(H1),»,P0UVD 

INPYBl 

T3(R9! 

Rl 

PC.CHKISET 

(Rl)*,», COLON 

ERRSX8 

tlNPEOU-INPfCifSP) 

(Ht)«,R2 

ERRSX8 

R2 

(R1)«,R2 

(R9),H2 

PCiOETVAR 

|SP),H3 

|R3||'|E0L 

INPOK' 

T3(R9I 

NOON 

R1,.1S6 

'II 



(RESET INPUT TO TTY 
lis IT 'INPUT »NI '...<» 



iCNErK CHANNEL AND SET.UP INPUT 



Rli.(SP) 

PClLINGET 

NOOMt 

ENROATA 

(SP)*|R1 

VARSAV(R9I,R2 



.ITnOF snostr 

CMP (R2),»,SVAR 

BEO INPSTR 
.ENOC 



HOV 
MOV 
MOV 
CMPB 



R1|>(SP) 
R4,.(5PI 
lInE(k5),H1 
(Hl)*i»CR 



SASICL HACXll V021 22.MAR.73 16109 PACE 26-1 



1804 

1809 

1606 

1807 

1808 

1809 

1810 

1611 

1812 

1613 

1814 

1615 

1816 

1817 

1816 

1819 

1620 

1621 

1822 

1823 

1824 

1625 

1626 

1827 

1828 

1829 

1830 

1631 

1632 

1833 

1834 

1635 

1636 

1837 

1638 

1639 

1B4B 

1841 

1842 

1643 

1644 

1645 

1646 

1647 

1846 

1649 

1650 

1651 

1852 

1653 

1654 

1655 

1656 

1667 

1656 



006036 
006040 
006042 
006044 

006090 
006052 
006054 
006060 
006062 
006066 
006072 
006074 
006076 
006102 
006104 



001379 
010104 
009204 
020465 
101074 
114144 
Z20165 
101374 
112711 
004767 
012604 
012601 
016516 
000724 
016502 



006110 
006112 
006116 
006122 
006126 
006130 
006134 
006136 
006140 
006144 
006146 
006152 
006154 
006160 
006162 
006166 
006170 
006176 
006200 
006202 
006206 
006210 
;I26214 
906220 



009203 
009065 
005069 

1Z1327 
001403 
004767 
000431 
010316 
004767 
011603 
121327 
301403 
121327 
001017 
122127 
001663 
124127 
301016 
305726 
105765 
001002 
305065 
300167 
eB4167 



000020 

000054 
011262 



000020 
000022 



000040 
^00042 
000243 

006330 



011100 
000243 
000201 
000243 

177777 000201 



000077 

000036 
174434 
007242 



INPOKI 



BNE 

MOV 

INC 

CMP 

BHI 

HOVB 

CMP 

BHI 

MOVB 

JSR 

MOV 

MOV 

MOV 

BR 

MOV 

.IFnOF 
CMP 
BEO 
.ENOC 



,•* 

RliR4 

H4 

R4,C0DE|R5) 

ERRTR8 

•IRll|o(4| 

RlltlNE(RS) 

..6 

»'i.l"l) 

pc.tran 

(SP)*,R4 
(SP)»,R1 
L1NE(H5),(SP) 

INPRTKY 
VARSAVtR9),R2 

SNOSTK 
|R2),l>,SVAR 

INPNEW 



306224 351132 124 



306227 
006231 



015 

030 



012 



006232 ^00654 



Inc 
cur 

C1.R 

CMPB 

SEQ 

JSR 

BR 
INPSTOI MOV 

JSR 

MOV 

CMPB 

BEO 

CMPB 

BNE 
INPCOOOICHPB 

BEO 
INPENOI CMPB 

BNE 

TST 

TSTB 

BNE 

CUR 
GOEXECI JMP 
INPNGUOIJSR 

ilFNOr 

.ASCII 

lENOC 

.IFDF 

.ASCII 

.ENOC 

.BYTE 

.BYTE 

.EVEN 

BR 



R3 

FACIIKS) 

FAC2(H9) 

IR3)i», COMMA 

INPSTO 

PS.UITEVAU 

INPNGI/D 

R3,(SP) 

PC.STOVAR 

(SP||K3 

(H3)i», COMMA 

INPGOOD 

|R3)i».E0U 

INPNCyO 

(Rl)*,».CO><MA 

INPUOOP 

•t(Rlll#,EOU 

ERRSX8 

(SPl* 

I0EV(R5) 

GOEXCC 

CUMNTTY(RS) 

EXECUTE 

Rl.MSSERR 

SUONGLR 

\BRT\ 



I IF TTY INPUT, CUR COUUMN COUNT 
I FCR SAME 



SUONSIR 

'BAG UATA^RETYPE FROM ERBO«, 

CH.UF 
INPNEH 
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1943 






iASCU 


'BAD UaTa REaO' 


1944 






,EnDC 




1945 


086421 


000 


,BvTE 8 




t»46 






.EVEN 




1947 


806422 


016903 000016 


REISRCHIMOV 


C08E(H9),H3 


1948 


006426 


109713 


iiEiriNDirsrs 


<H3) 


1949 


006430 


1004D2 


8HI 


■ •» 


1958 


006432 


2627'<I3 1100002 


AOO 


•2,R3 


195t 


006436 


122327 800223 


C«PB 


<A3)*i«,0ArA 


1952 


006442 


001724 


SES 


REAOGOT 


1953 


006444 


124327 000229 


CHPB 


"(R3)ii,E0r 


1954 


006450 


001792 


8E0 


READOgT 


1955 


006452 


010146 


M0» 


Ri,.(SP) 


1956 


006454 


010301 


MOV 


P^iRl 


1957 


006456 


004767 010476 


JSR 


Pf.SKlPEOU 


1956 


006462 


010103 


NOV 


RJ.RS 


1959 


006464 


012601 


»ov 


(SP)«,R1 


I960 


006466 


000757 


an 


REAFINO 


1961 










1962 






.IfNOf 


SNOSTH 


1963 






"EAOOTI INC 


R3 


1964 






CHPB 


(K3)»|»,TEXT 


1965 






8NE 


REAOBAO 


1966 






HOV 


R3,R0 


1967 






TSTB 


(H3|» 


1966 






BNE 


1*2 


1969 






CNPB 


(H3)*,R2 


197B 






8NE 


REAOBAO 


1971 






"OV 


R3,.(SP| 


1972 






HOV 


R0,.(!iP) 


197? 






sue 


•3, (SKI 


1974 






"OV 


SP,R2' 


1979 






HOV 


n3,>(!iP) 


1976 






SUB 


R«,(SHI 


1977 






SUB 


•2|(Sr) 


1976 






BEO 


REANUm, 


1979 






Jit 


PC,HAKESTK 


19Se 






HOV 


(SP(.,R3 


1981 






HOV 


R3l(SP> 


1982 






HOV 


SP,RP 


1963 






ADO 


• 3,R3 


1964 






HOVB 


R0,«(H3) 


1969 






SUAB 


R0 


1966 






HOVB 


RB,>(R3) 


1967 






BR 


REAOSTR 


1988 






REANUUtOEC 


(SP) 


1989 






HOV 


(SP)»,(SP) 


199B 






REAOSTRtJSR 


P?,STOSVAS 


1991 






BR 


REAOOUN 


1992 






,ENOC 




1993 










1994 
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1995 
1996 
1997 












••*••••••••••• 


!•«« 
»••• 






1998 
1999 












INTEpypT HANDLERS .•••..•.. ••! 




2000 
2001 
2002 










»t**«* 


•••♦•♦•••••••• 


»••• 
>... 
























2003 




















2004 




















2005 




















2006 








1 KBINT 


• KEYBOARD INTERUPT 


SERVICE 




2007 




















2006 








1 PASS 


ANY CHAR, To "urr, 


:xCEpr B0(> (IGNORE) 




2009 








1 4N0 


003 ( 


<«C' 1 SEI fUAG 


rOR 


LATEP ACTION,) 




2010 








1 IF 


BUFF, 


FULUi ICNORE CHAR 


8»T ECHO BELL, 




2011 




















2012 


006470 


004967 


010396 


KBINTI 


JSR 


rSiSAVRCI 




ICAUSE RTl 0*1 REG, 


RESTORE 


2819 


006474 


316705 


0000000 




HOV 


USRARtA,R5 








2014 


006900 


i'16901 


000102 




HOV 


KBM0(R91iRl 




IKP aUPF, HOR, 




2019 


006904 


012704 


177564 




HOV 


•TPS|K4 








2016 


006910 


113700 


177562 




HOVB 


•«rKB|»0 




ICET THAT CHAR', 




2017 


006914 


042700 


177600 




BIC 


•],776B0|R0 








2018 


006520 


^01442 






BEQ 


KBIOUN 




) IGNORE 000 




ZBi? 


006522 


120027 


000003 




CMPB 


R0,6003 




)'»C'? 




2020 


106526 


301009 






BNE 


KBCO 








2021 


006530 


105265 


000106 




INCB 


CNCFISIH!) 




JHAHK /tC HIT 




2022 


006534 


304767 


001372 




JSR 


PCiBU'CLR 




iCltAR ALL SufFERS 




2023 


006540 


B0B410 






BR 


OOPUT 








2024 


006542 


120027 


000017 


KBCOI 


CHPB 


R»,»17 




ICHECK "01 




2025 


006946 


001005 






BNE 


OOPUT 








2026 


306550 


105165 


000107 




COHB 


CNOrUSCRSI 








2027 


006554 


201402 






BEQ 


BOPgT 




lIF PRINT RESTORED 


BYPASS 


2028 


006956 


004767 


001424 




JSR 


PC.BUrTP 




iCLtAR TtLEPxlNTER 


BUFFER 


2029 


006562 


004767 


010016 


DOPUTI 


JSR 


PC,PUTSYT 








2030 


006566 


103017 






sec 


KBIOUN 




IGOT IW 




2031 


006570 


105761 


000012 




TSTB 


BFSPEC(Rl) 








2032 


006574 


091003 






BNE 


S,0101 








2033 


006576 


110061 


000012 




HOVB 


RBlSrSPECtRl) 






2034 


006602 


900207 






"TS 


PC 








2039 


006604 


109714 




S, 01011 


TSTB 


(R4) 




)N(! ROOHI 00 BELL 




2036 


006606 


100376 






api 


s.aiBi 








2037 


006610 


042714 


000100 




BIC 


»lBBi("4) 




ITEHP, CLR, INTER, 




2038 


006614 


112737 


000007 177566 




HOVB 


tB87i»»TPB 




I INSERT SELL 




2039 


006622 


105714 




S, 01021 


TST8 


(R4) 




IKAIT UNTIL OO'JE 




2040 


006624 


100376 






BPL 


S,O10Z 








2041 


006626 


ai2737 


000101 177560 


KBtOUNI 


HOV 


•IBliPtTKS 




iRt-INIT, READER 




2042 


006634 


012714 


000100 




HOV 


•1001 |R4I 




lENARLE TPTR., FOR 


:cHo 


2043 


006640 


000207 






RTS 


PC 




IHILL RESTORE »EGS 


ANO OT 


2044 





















BASICL HACXt], VI21 2iiHtRp73 ttl>9 P«6t 2« 



2e4s 
















2t46 
2047 
2146 










1 rpINT ' rCLEroINTCR INtCvupT HINOLCr 










1 USCD TO PRl 


NT OUT TEXT ANO 


ECHO TYPE- IN', 


2849 










1 TO HANDLE CASE tf PENDIMG REQUESTS To OO TEXT OUTPUT 


2190 










1 AND CCHOi 


DOES THE OROERLY THING BY FOUtOHING THIS 


2091 










1 PRIORITYI 






2092 










I IF ECH08P(R9) SHOMS NEED TP nO 2N0 HAUF OF PAIRE" 


2093 










1 CHARS 


, FOR ECHO (.U, 


<C»><UF>), 00 FIRST, 


2094 










1 IF TEXT HESS, IN PROGRESS, FINISH IT (TO <LF>r, 


2099 










1 EUSE, 


ECHO, 




2096 










1 EISE, 


TURN OFF INTERUPTS', 


2097 
















2098 


006642 


004967 


010204 




TPlNTI JSR 


r9iSAVRGI 


ICAUSE RTI 0" REG. RESTORE 


2099 


016646 


016705 


0000008 




MOV 


USRAReA,R9 




2060 


006692 


109769 


000110 




TST8 


f;uco{R9) 




2061 


006696 


001404 






SCO 


TPNXT 




2062 


006660 


109369 


000110 




OECB 


f|LLC0|R9» 




2063 


026664 


009000 






CUR 


R0 




2064 


006666 


000416 






8R 


TYPEl 




2069 


006670 


012704 


000104 




TPNXTI MOV 


«ECH05P,R4 




2066 


006674 


060904 






ADO 


R9,R4 


iSAVrO HERE THRU.OUT ROUTINE 


2067 


006676 


009714 






TST 


<R4) 


ISPECIAL ECHO IN PROGRESS? 


2060 


006700 


001419 






BEO 


TRYECHO 


INO 


2069 


006702 


113401 






SPECHESIHOVe 


■IR4)*|R0 


INEXT SP, ECHO CHAR, 


2070 


006704 


001412 






BEO 


cCrecho 




2071 


006706 


009244 






INC 


-(R41 


IPT. TO NEXT CHAR, 


2072 


006710 


12(089 


000112 




TYPEl CHPB 


R0|FILl,CH|R9) 




2073 


006714 


001003 






BNE 


TYPEl 




2074 


006716 


116969 


000111 


000110 


HQVB 


FILtN0(R9),FILLCfl(R5) 


2079 


006724 


110037 


177966 




TTPEll HQVB 


R0,»«tPB 




2076 


006730 


000207 






RTS 


P? " 


(RESTORE REGS, ANO RETUR*' 


2077 


006732 


009044 






CURECHOICLR 


• |R4) 




2070 


006734 


016901 


000102 




TRYECHOIHOV 


K8H0(H9|,R1 


INO HESS, 1 ECHO! 


2079 
















2060 


006740 


004767 


004424 




JSR 


pC,GET2BYT 




2091 


006744 


103011 






BCC 


GOTECHO 




2082 


006746 


016901 


000100 




HSGSUPI MOV 


TPHD<R9),R1 


ITRY MESSAGE 


2083 


006792 


004767 


004412 




JSR 


P5,CEI2BYT 




2084 


006796 


103394 






BCC 


TYPE 


lOOT ONEI GO 00 IT 


2089 


006760 


042737 


000100 


177964 


OFFTVPEISIC 


•1B0,»»TPS 


ICLEAR IlilTERUPT 


2086 


006766 


000207 






RTS 


PC 




2087 










1 






20S8 


006770 


004367 


301230 




GOTECHOIJSR 


r3,chkchr 


ICHECK THAT ECHO CHAR', 


2089 


006774 


000420 






BR 


pRNToeu 


ILINE OELETE 


2090 


006776 


000422 






BR 


SETLFt 


)<CR>| <UF> AS ECHOSP 


2091 


007000 


000424 






BR 


ECMOBA 


IRUB OIITI 00 "»" 


2092 


007002 


000401 






BR 


TPCN 




2093 


007004 


000741 






BR 


TYPE 




2094 


007006 


120027 


000003 




TPCMI CHPB 


R0i«3 


ICHEC Iter 


2099 


007012 


001003 






BNE 


TPCO 




2096 


007014 


ai2714 


307073 




MOV 


«?CHES,(R4) 




2097 


007020 


300730 






BR 


SPECHES 




2098 


007022 


120027 


000017 




TPCOI CHPB 


R0|»17 


ICMECK "0« 


2099 


007026 


301342 






BNE 


TRYECHO 




SICL 


MACXll 


V021 


22.M4H. 


73 16109 PtGE 29>1 






2100 


007030 


012714 


007076 




MOV 


«C0HE»itR4| 




2101 
2102 
2103 


007034 


000722 






BR 


SPECHtS 




007036 


012714 


007060 




PRNTOEtlHoV 


•0ELMS0,(H4) 


1ST. AOOh', 1«ito ECHoSP(R9) 


2104 


007042 


000717 






BR 


specmEs 




2109 










1 






2106 


007044 


012714 


007070 




SETtFEl HoV 


«CRtFHES,I»4) 




2107 


007090 


D00714 






BR 


SPECHtS 




2108 










1 






2109 


007092 


112700 


000137 




ECHoBAt HgvB 


•'•iRV 




2110 


007096 


000714 






BR 


TYPE 




2111 










t 






2112 










DEUMSGl 






2113 


007060 
007066 


042040 
342109 


046109 


092109 


.ASCII 


' DEUtTEOI 




2114 


007070 


019 


012 


000 


CRuFmESI.BTTE 


019,012,000 




2119 


007073 


136 


103 




CCHESI .ASCII 


'«C' 




2116 


007079 


000 






.BYTE 







2117 


307076 


047936 






COMES 1 .ASCII 


t fO' 




2118 


307100 


019 


012 


0K0 


.BYTE 


019,012,000 




2119 




007104 






.EVEN 






2120 
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:i2i 

2122 
2123 
2124 
2129 
212» 
2127 
2126 
2129 
3130 
2131 
2132 
2133 
213« 
2135 
2136 
2137 
2136 
2139 
214) 
2141 
2142 
2143 
2144 
2145 
2146 
2147 
2146 
2149 



307104 
007110 
007H4 
007120 
007122 
007126 
007132 
007134 
007140 
007142 
007146 
007150 
007154 
007156 
007162 
007164 
007172 
007174 
007202 



004967 
012701 
0097.37 
100425 
1137110 
Z427B0 
201414 
1227S0 
001411 
122700 
ei0t406 
004767 
103003 
110061 
000207 
012737 
000207 
052761 
000207 



007742 
021242 
177990 

177992 

177600 

000177 
000012 
007430 
000012 
000101 
100000 



,;rNDr snoptk 

PT«INT • p»pEH.T«|iE rCAOER INTERUpT «»NDtER 

CUE*RS RARITY BIT, FUgsHES 0f>0, ogR-oUT. »N0 <Lr>-, 
ir CH4R-, MON'T PIT IN Bgfr,, SAVE IN BFSPEC (LO 8TTE1. 
ON EOT OR OTHER ERROR, SET HI SIT OF BFSPEC-, 

REG, RESTORE 



PTRINTI JSR 
HOV 
TST 
9HI 
"OVB 
SIC 
BED 
CMPB 
BEO 
CHPB 
8EQ 
JSR 
BCC 
"OVB 
RTS 

177950 EXIT02I HOV 
RTS 

000012 PREOTI 3|S 
RTS 
,ENDC 



R9,S1VRGI 

•PRBFMO.Rl 

••PRS' 

PREOT 

••PRS|R0 

«177600,R0 

EXIT0Z 

•177, KB 

EXITBi 

«i,r,RB 

EXIT02 

P5,PgTBTT 

EXir02 

RBlBFSPECIRl) 

PC 

•iBl,P«PRS 

R? 

•1000B0,aFSPEC(Ri) 

P5 



lC»g<!E RTI 0" 
IFOH RUTBYT 
lERHORSJ 
lYFSl TREAT I 
lCH«BACTtR 



IICNORE 000 (CAN'T KAPPE"!) 

IRIIB 0gT7 

IICNORE 

JICNORF UF'S 

ICOT IN 

ISAVE THIS CHAR, 
■RESTORE REGS, AND RTI 
IRE-FNABLE READER 

ISHOW EOT 
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2t5B 








2191 








2192 








2193 








2154 








2199 








2196 


007204 


004567 


007442 


2197 


007210 


016709 


000B0BG 


2196 


007214 


012701 


021306 


2199 


007220 


099737 


177954 


2160 


007224 


100406 




2161 


007226 


JB4767 


004130 


2162 


007232 


103406 




2163 


007234 


110037 


177556 


2164 


007240 


000207 




2169 


007242 


D92761 


000001 


2166 


307250 


005037 


177954 


2167 


007254 


tl00207 




2166 








2169 








2170 









iIFNDF INOPTP 
PRINT • PAPER TAPE PgNCH [nTCRUPT uamq^ER 
ON ERROR, MAKE BFSPEC NoN.0', 



PPlNTI 


JSR 


RSiSAVrCI 




"OV 


gSRAREA)R9 




"OV 


•PPBFH0,R1 




TST 


•»PPS' 




BMI 


PPERR 




JSR 


PC.GEIIBYT 




9CS 


NOCHRZ 




MOVB 


R0,R<IPPB 




RTS 


PC 


PPERRI 


BIS 


«l,BFSPEC(Rl) 


N0CHR2I 


CUR 


MPPS 




RTS 


PC 



)CJU5E RTI AFTER REG, RESTaHE 



INOTUI'IC TO GET 

(RESTORE REGS, AND RTI 

IINOIC, ERROR 

ICLEAR IMTERUPT ENABLE 



lENOC 
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2171 
2172 
2179 
2174 
217S 
2176 
2177 
217e 
2179 
21S0 
21B1 
2ia2 
2193 
2164 
21SS 

2ia* 

2H7 
21M 

21S9 
2191 



g0729« 
^07262 
0«726« 
ge7272 
887276 
0«7J0« 
007304 
007306 
007312 

007314 
0(7322 
007326 



004967 
316705 
012701 
005737 
100406 
004767 
103406 
110037 
000207 

0»27«1 
005037 

000207 



007570 

000000C 

021392 

177914 

00409^ 
177916 



ilfNDF INOU'I 
) 

t LPINT ' LINE PKlNTER INTCRUPT UiNOlER 
1 

RESTOHt 



000001 
177914 



0(0012 



LPlNTI 




R»,s<^ynst 


iCtuU RTI iFTER RES, Rl 






USRtR|A,R9 








»|,PBrMO,Rl 








»»UPS 








UPERR 








PC,SEI1B»T 








UPOFF 


INOTUIMI THEHE 




HOVB 


R0,*fkPB 


(UPiTE CH»H 






PC 




UPCRRI 




•liBFSpeClRl) 


IRECcRO erro<* 


LPOFFI 




••tPS" 


ITUHN IT OFF FOR AUHtLE 






PC 






lENOC 
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2191 










.IFNOF 


SNOPON 


2192 








1 






2193 

2194 








1 POHOWN . POWER FAIU/RESI»RT ROUTINE 


2199 


007330 


012737 


007340 00(024 


POHOHNI 


"OV 


•PONUP|0<24 


2196 


007336 


0(0000 






HAtT 




2197 








I 






2196 


307340 


009(00 




POUUPI 


CUR 


R0 IINITULIJE LOOP Count 


2199 


007342 


016705 


000000S 


POWLPl 


"0» 


USRARtA,R9 


2200 


007346 


012737 


007330 000024 




M0» 


•powonn,m;4 


2201 


0(7394 


016906 


000004 




«0» 


P0L(R9)iSP lHASTE TIME (AND 


2202 


007360 


0(530( 






DEC 


R0 ICOUMT TILL DONE 


2203 


007362 


0(1367 






(NC 


POHUP 


2204 


007364 


000167 


1719B2 




JMP 


REAOr0 


2209 










,ENOC 




2206 










,EOT 




2207 















INIT STACKII 
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Z2ea 

2209 














SOURCE riLE M 




2211 
2211 
2212 
2213 










•«••••• 


















CLOSED SUBROUTINES •• 










2214 




••••••• 




2215 


















2216 












2217 


















221S 


















221» 


















2220 


















2221 


















2222 


1 SUBROUTINE 


'AOOSTH' CALLED 


BV JSR PC 




2223 












AOOS (SP)+,l5P)* TO FACl(R!),rAC2|RS) 


HATCHING T'PE 


2224 












RB.Rl 


UNUSED 




2229 












P2,R3 


OCSTHDYEO 




2226 












R4 MOOiriFO TO HEPLECT STACK USAGE 




2227 












R5 MUST POl'iT TO USER AREA 




222a 












SP GOES ?? DEEPER AFTER JSR 




2229 


007370 


012603 




400STKI 


»ov 


(SP)*,R3 






2230 


007372 


004767 


003576 




JSR 


pg,Fixup 






2231 


007376 


001414 






BEO 


AOOINT 






2232 


007400 


012767 


011666 


000000G 


NOV 


•ERAOUiSERVEC 






2233 


007406 


004467 


003722 




JSR 


R4,rPPSAV 






2234 


007412 


014296 






,WORO 


PgSH 






223ii 


007414 


0000009 






,UORO 


SADR 






2236 


007416 


314270 






,WORO 


POP 






2237 


007420 


313306 






,HORO 
tST 


FPPHES 






2239 


007422 


009769 


000040 




FAC1(K91 






2299 


007426 


00011] 






JMR 


l«3) 


ICOND eOOES«SCN(RESuLTI 




2240 


007430 


009726 




AOBINTI 


TST 


(SP)* 






2241 


007432 


012602 






HOW 


tSP)*,R2 






2242 


007434 


066502 


000042 




ADD 


FAC2|H5),H2 






2243 


007440 


102403 






8VS 


Aooovr 






2244 


007442 


^10265 


000042 




nov 


R2,FAC2(R5) 






2245 


007446 


000113 






JMP 


(R3) 


ICONH rOOEStSGN(RESULT) 




2246 


007490 


100425 




AOBOvri 


BMl 


AODPOS 






2247 


007492 


001416 






SCO 


AOOiEKO 






224) 


007494 


009402 






NEC 


R2 






2249 


007456 


109069 


000042 




CURS 


rAC2(R9) 






2250 


007462 


110269 


000043 




HOVB 


R2,FA52*1(R9) 






2251 


007466 


000302 






SHAB 


R2 






2252 


007470 


110265 


000040 




M0V8 


R2,FAC1|R5) 






2253 


007474 


109069 


000041 




CtRB 


FACl*i(R5) 






2254 


007900 


Z62769 


143600 


000040 


AOO 


• 143400, FACIIR!) 




2255 


007906 


000113 






JMP 


(H3) 


ICOND CODES.SCN(RESULT) 




2256 


007910 


009069 


000042 


AOalEROtCUR 


FAC2(H5) 






2257 


007514 


012769 


144200 


000040 


MOV 


»l442BB,FAei<R9) 




225a 


007522 


000113 






JMP 


IR3) 


ICDND COOES.SGN(RESULT) 




2259 


007924 


109065 


000042 


AOOROSl 


CtRB 


FAC2(H5) 






2260 


007530 


113269 


000043 




MOVB 


R2,FAC241(R9) 






2261 


307534 


000332 






SUAB 


R2 






2262 


007934 


110265 


000040 




HOVB 


R2,FA51(R5) 
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2263 007542 109069 000041 

2264 007546 062769 043600 000040 
2269 307554 000113 



CLRB 

AOO 

JHP 



FACl*t<R9) 

III43600|FAC1(P5I 

tR3) 



ICBN" C0OESiSGN(RESULTl 



etSICL HtCXtl V)2t 22t>«fl<73 X»l»i ftCt 99 



2217 






226a 






2269 






227« 






2271 






2272 






2273 






2274 






2279 






2276 


997956 


910046 


2277 


997569 


910146 


2271 


997962 


1999293 


2279 


997564 


i)104ill 


22SB 


997966 


X09291 


2291 


997970 


901776 


2292 


997972 


e05090 


2293 


997974 


l!12746 990029 


2294 


907690 


906391 


2295 


007692 


103092 


2296 


007694 


^603*0 


2297 


007606 


1B344T 


2299 


907610 


906390 


2299 


907612 


103449 


229) 


997614 


909316 


2291 


907616 


903370 


2292 


907620 


909726 


2293 


907622 


962790 909002 


2294 


097626 


103437 


2299 






2296 






2297 






2299 






2299 






239> 






23ei 


007630 


006300 


2392 


007632 


103439 


2393 


007634 


^16991 000012 


2394 


097640 


160001 


2309 


007642 


103431 


2396 


907644 


920169 909074 


2397 


097650 


103426 


2399 


397652 


905721 


2399 


097654 


299491 


2319 


007696 


909021 


2311 


007660 


929169 000012 


2312 


007664 


101774 


2313 


907666 


160091 


2314 






2319 






2316 






2317 






2319 






2319 






2329 


907670 


312722 177776 


2921 


907674 


312221 



1 SUBROUTIHC i 


ALLOC CALLED Bv JSP PC 




ALLOCATES ARPAV SPACE FROM FREESPACE 




R»,Rl POEStPVEO 




R2 "UST POI"? TO VAP GETS OESTRO»EO 




R3 HUST CONTAIN SS1«AX SETS OESTKOYED 




R4 MUST CONTAIN SS2HAX SETS PESTPOTEO 




R5 MUST POI>-'T TO USER AREA 




SP COES 7? OEEPER AFTER JSR 


ALLOC 1 HOV 


R9,.(SP) 


MOV 


R1,-(5P) 


INC 


R3 


NOV 


R4,R1 


INC 


Rl 


BEQ 


■ •2 


CUR 


RB 


M0» 


•2«,.|SP| 14 • 


ALLLOOPUSI. 


Rl )• • 


acc 


ALLNOAQ 14 • 


too 


R3|R0 14 • MULTIPL" (R1)»(R3142 


BCS 


ERRARAY 14 • RESULT IN RP 


tULNOtOUSl 


RB !• • HATCH FOR OVEliFLONS 


BCS 


ERRARAY 14 • 


DEC 


ISP) 14 4 


BOT 


ALLLOOP 14 1 


TST 


(SP)« |»4»« 


400 


• 2,Ril 


8C9 


ERRARAY |RP MQU « 2 TIMES « ELEMENTS NEEDED 


.IFNOf 


SNOSTN 


CMP 


(H2),»,SVAR 


BEO 


,46 


,ENOC 




»SL 


R0 


acs 


ERRARAY IRP "Om • » BYTES NEEDED, 


NOV 


MiFREt|R9),Rl 


SUB 


R9|R1 


BCS 


EKRARAY 


CMP 


RllHISTR(R9) 


BLO 


ERRARAY 


TST 


(HI)* 


BR 


i** 


et" 


<H1)* 


CMP 


RliHIFREE(R9) 


BLOS 


,.6 " 


sue 


R0."t 


.ifNor 


SNOSTH 


CMP 


|R2).»,SVAR 


*E8 


ALLSTKN 


lENOC 




«ov 


•,NVAN,|R2|4 


MOV 


|R2)*i(Rl)« 
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2322 


907676 


912221 




MOV 


(R2l*i(Hl)* 


2323 


007790 


010412 




MOV 


R4,|R2) 


2324 


907792 


989303 




DEC 


R3 


2329 


907794 


019342 




MOV 


R9,a(H2) 


2326 


907796 


319142 




MOV 


Ril>(H2) 


2327 


907710 


162712 


909994 


SUB 


•4,(R2I 


232S 












2329 








.IFnDF 


SNOSTM 


2330 








BR 


ALLEXIT 


2331 








allstrnitst 


(R2)* 


2332 








MOV 


<H2|4|(R1)* 


2333 








DEC 


R3 


2334 








MOV 


R3,|R2)* 


2339 








NOV 


R4,(R2) 


2336 








MOV 


Ril>4|R2) 


2337 








SUB 


•2,>4|K21 


2339 








NOV 


••1,(H1)4 


2339 








CMP 


RliHIFREElnS) 


2340 








BLOS 


.•10 


2341 








sua 


RB|R1 


2342 








MOV 


("1).H2 


2343 








INC 


R2 


2344 








BEO 


ALLEXIT 


2345 








SWAB 


«l 


2346 








Mova 


Ht,(R2)* 


2347 








SUAB 


Rl 


2348 








MOVB 


Rli(R2> 


2349 








,ENDC 




2359 












2351 


907714 


160069 


900012 


allexjtisub 


RB,HIKREE(R9) 


2352 


907720 


912691 




HOV 


(SP)*|Rl 


2353 


907722 


912600 




MOV 


(SP)*,R0 


2354 


907724 


.100297 




rts 


PC 


2355 


097726 


999004 




ERRARAYIIOT 




2356 








, IFNDF 


SLONSER 


2357 


907730 


352191 


114 


.ASCII 


\ATL\ 


2356 








,ENOC 




2359 








,1F0F 


ILONGER 


2360 








, ASCII 


'ARRAYS TOO LARGE' 


2361 








lENQC 




2362 


007733 


000 




,BYTE 


2363 








,EVEN 




2964 
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2966 

2367 

2366 

2369 

2370 

2371 

2372 

2373 

2374 

2375 

2376 

2377 

2376 

2379 

2360 

2361 

2362 

2363 

2364 007734 000064 

2369 

2366 

2367 

2366 

2369 007736 0>1101 107 

2390 

2391 007741 000 

2392 

2393 





1 irnoF 


JNOSTN 


1 'AROB' SUBROUTINE ' " ' "" ' 






CABLED 8V JS" R7 






CALLS EVAL T« SET A 1»8YTE 






AH6UMENT', BRANCHES TO ERSARG 






IF ARC NO COCO 


ARSBl 


JSR 


PC, EVAL 




8CS 


EHRARIi 




JSR 


PC. INI 




TST 


FACt(R5) 




BNE 


ERRAR« 




TSTB 


FAC2»i(RS) 




BNE 


ERRARU 




"TS 


PC 




,ENOC 




CRSSRt 
ERlOCI 






ERRARCI 


10! 






,IFOF 


HONCfR 




.ASCII 


'ARSUMENT EBROR' 




■ ENOC 






.IfNDF 


Sk9NC|R 




.ASCII 


'ARC 




.ENOC 






.BYTE 







.EVEN 





ASICL 


MACXlt 


V02t 


22»HARi. 


73 16(05 PACE 37 




2394 














2395 


r Subroutine 


BOMB' CALLED By lOT 


2396 












PHINTS ERROR MFSSAGE FROM AFTER lOT 


2397 












R0 OESTROYO 


2396 












Rl PRESERVE'' 


2399 












R2,R3iR4 UNUSCO 


2400 












R» MUST POP'T TO USER AREA 


24111 












SP RESET TO EMPTY STACK 


2402 












PC DOES NOT RfTURN 


2403 


307742 


311601 






BONBI MOV 


(SP),K1 


2404 


007744 


316735 


300000(; 




NOV 


USRAREA.RS 


2405 


307750 


316536 


300004 




NOV 


R0L(R5|,SP 


2406 


307754 


305065 


000076 




CLR 


00EV<R5) ICAUSE MES OUTPUT TO TIY 


2407 


307760 


312765 


300036 


000B34 


MOV 


»CLHNTTY.C0LU«N(R5) ISET-UP TTY rOR COL 
R»lC0l,UMN(R5l 


2406 


007766 


360565 


000034 




AOO 


2409 


307772 


004167 


005476 




JSR 


RllNStt 


2410 


307776 


015 


012 




.BYTE 


CR.LF 


2411 










.IFNOF 


SLONCER 


2412 


313000 


045 






.ASCII 


'»' 


2413 










.ENDC 




2414 


313001 


000 






.BYTE I 




2415 










.EVEN 




2416 


310002 


112100 






BOMSNXI MOVB 


(Rt)*,R0 


2417 


'313004 


001433 






SEO 


BOMBOON 


2416 


313306 


304767 


336664 




JSR 


PSiPUICHAK 


2419 


313012 


303773 






BR 


BONBNX 


2420 


313014 


326527 


300033 


177775 


BOMBOONICMP 


LINEN0<R5),il,SCALAR 


2421 


010322 


103041 






BHIS 


BOMgjnP 


2422 


313324 


334167 


335444 




JSR 


Rl.HSG 


2423 


013030 
310036 


343440 
342516 


323124 
040 


044514 


.ASCII 


' AT LINE 1 


2424 


310041 


030 






.BYTE 




242S 










.EVEN 




2426 


313042 


316500 


333030 




MOV 


L1NEN0(R5I,RII 


2427 


313046 


302435 






BLT 


BOHBNtG 


2428 


310350 


1110065 


303042 




MOV 


R0,FA;2|R5) 


2429 


312054 


305065 


330040 




CLR 


FACKHS) 


2430 


310060 


303414 






BR 


BOHBOk 


2431 


010062 


110065 


300043 




BOHBNECIMOVS 


RB,FAf2*l(R5) 


2432 


013066 


105B65 


000042 




CLRB 


FAC2(R5) 


2433 


313372 


303300 






SHAB 


RB 


2434 


013074 


113065 


303040 




MOVB 


R0,FAC1(R9) 


2435 


010100 


105065 


300041 




CLRB 


FACl*i(R5) 


2436 


310104 


362765 


043600 


000040 


AOO 


•436011, FACtlRSl 


2437 


010112 


304767 


005630 




BOM90KI JSR 


P!;,NUHOUT 


2436 


313116 


304167 


305352 




JSR 


Rl.NSU 


2439 


010122 


015 


012 


030 


.BYTE 


CR,LF|0 


2440 




310126 






.EVEN 




2441 


010126 


300167 


170744 




B0M8JMPIJMP 


READY 


2442 
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2443 
2444 
244S 
2446 
2447 
244S 
2449 
2499 
2451 
2492 
2493 
2494 
2499 
2496 
2457 
2498 
249» 
2460 
2461 
2462 
2463 
2464 
2469 
2466 
2467 
2461 
2469 
247* 
2471 
2472 
2473 
2474 
2479 
2476 
2477 
247» 
2479 
2488 
2481 
2482 
2483 
2484 
2489 



010132 016902 000102 

019136 712203 

010140 009722 

010142 SI10322 

010144 C10322 

010146 I<10322 

010190 004767 000032 



010194 012702 021306 

010160 004767 003962 

010164 012702 021242 

010170 004767 003992 



010174 012702 021392 
010201 004767 003942 



010204 3(0207 



010206 X16902 000100 

010212 012203 

010214 722222 

010216 010322 

010220 010322 

010222 000207 



I au^'CLR— INIT I/O OEVi OgffER HfAOEos 

I 

I CALL I 

I 

I uses I 
I 

BUfCLRI 



JSI 


pc,0urcLR 




2 AND 1)3 




"OV 


KBH0(H9),n2 


iKEffioARO 


MOV 


l«2)»,R3 


iBUrr-, START 


TST 


(H2|* 


ISKIP TO BOETl 


MOV 


R3,|R2)4 




MOV 


R3,|R2)* 




»0V 


R3,|R2)* 




JS" 


PS.BUrTP 


ICUEAR TEUEPRINTCR 


iirNor 


SNOrTP 




«ov 


•PPBrH0,II2 


iPAPER TAPE PUNCH 


JSK 


PC.INITBr 




«0» 


IIIPR0rHU,R2 


IPAPCR TAPE HEADER 


JS« 


PC.INITBr 




,ENOC 






,;rNor 


JNOtPI 




NOV 


•t,PBrM0,»2 




JS« 


P5,IN|TBr 




.ENOC 







I BUFTP 

I 

I CALL I JS» 



INIT TELEPRINTER BUffCR HEAnElt 
pCiBUfT' 



I USES R2 AND r3 



egPTPt 



"ov 

HOV 
CHP 
HOV 
HOV 

RTS 



TPH0(K9),R2 

|H2)*ill3 

|R2)*|(R2)« 

R3,(R2)* 

R3,(R2)« 

PC 



ITEUEPRINTER 
iBUFf, STA"T 
IPT, TO B0ET2 



ASICL 


MACXll 


V021 


22>HAR>73 


16109 PAGE 39 








2486 


















2487 


















2488 








1 CHKCHR 4 CHECK ASCII CHAR, TgR SPECIAL CASES 


2489 


















2490 








1 CALLI 


HflV 


CCHAR|] 


R0 




2491 










JSR 


R3,CHKCHR 




2492 










INSTRUC 




lEXECUTE IP LI"'E DEL, KALI 


2493 










INSTRUC 




lEXEC, 


ir <CR> 


2494 










INSTRUC 




lEXEC, 


ir <RU8 OUT> lOR '• 


2499 










INSTRUC 




lEXEC, 


ir PELOU 40 01 ABOVE 


2496 










INSTRUC 




ItXEC. 


IF GOOD STUFF 


2497 


















2498 








1 USES 


R0 








2499 


















2900 


010224 


120027 


000176 


CHKCHRI 


CMpB 


R0,«176 




(ALT MODE 


2901 


010230 


201434 






BED 


CCEXIT 






2902 


010232 


120027 


000179 




CMPB 


PB|0179 




I ALT MODE 


2903 


010236 


001431 






BEQ 


CCEXII 






2904 


010240 


120027 


000033 




CliPB 


R0,»33 




lALT MODE 


2909 


010244 


001426 






BEO 


CCEXIT 






2906 


010246 


120027 


000029 




CMPB 


R0,>29 




|(.U' 


2907 


010292 


001423 






BEO 


CCEXIT 






2908 


010294 


009723 






TST 


(R3)* 




|TP <C»> RETURN 


2909 


010296 


120027 


000019 




CMPB 


R0,>CK 






2910 


010262 


001417 






BEO 


CCEXIT 






2911 


010264 


009723 






TST 


(R3)* 




)T0 'US OUT RETURN 


2912 


010266 


120027 


000177 




CMPB 


»0,»t77 




IRUB OUT 


2913 


010272 


001413 






BED 


CCEXIT 






2S14 


010274 


120027 


000137 




CMPB 


RB,»'» 






2919 


010300 


001410 






BEO 


CCEXIT 






2916 


010302 


00972} 






TST 


(RSI* 




ITC LI'IT RETURN 


2917 


010304 


120027 


000040 




CMPB 


R0,t40 






2518 


010310 


103404 






9L0 


CCEXII 






2919 


010312 


120027 


000137 




CMPB 


"0|»137 






2920 


010316 


101001 






BHt 


CCEXII 






2921 


010320 


009723 






TST 


(R3)* 




IREO, CHAR, RETURN 


2522 


010322 


000203 




CCEXITl 


RTS 


R3 






2923 
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2924 

2929 

2926 
292T 
2928 
2529 
Z93B 
2931 
2932 
2933 
2934 
2939 
2936 
2937 
2938 
2939 
2940 
2941 
2942 
2943 
2944 
2945 
2946 
2947 
2948 
2949 
299B 
2991 
2552 
2993 
2994 
2555 
2994 
2957 
2998 
2959 
296« 
2961 
2962 
2963 
2564 
2569 
2966 
2567 
2568 
2969 
257B 
2571 
2572 
2973 
2974 
2979 
2976 
2977 
2978 



911324 
010338 
018332 
018336 
010342 
010344 
010350 
010392 
010398 
01036) 
010362 
010364 
010378 
010372 

ai0374 

010376 
010400 
010402 

010404 

010418 



012708 
008402 
012708 
^04767 
103428 
305765 
301017 
116902 
001411 
111003 
060903 
028227 
101807 
068200 
111013 
001404 
111002 
088207 



888167 881240 



010417 



000004 



010412 041904 



010419 



07« 



010421 



818416 
008294 



088002 



109 



CHKISET t CHECK 1/0 CHANNEL »N1 SET.UP INPUT (ICEV(R5)) 
CHKOSET • CHECK I/O CH4NNEL »Nn StT.UP OUTPUT (00EV<R5)) 



CALLt Hqv 
JSR 



C*BORi of CO^E LINf BT", *fTEH '»'3.Rl 
PC, CHKISET (CHKOSET) 



USESI R8>R1iR2iR3ik9 

CHECK IF SPECiritO CHANNEL LE5AL (NUMBER IN RANGE ANQ l/Q 
DEVICE ASSEHB^EO IN), RETURN CODE FOR SPECIFIED DEVICE 
(SAME AS VALUE Of lOEV (OOEVl) IM '2, ON EXIT, Rl PTS', 
TO BYTE AFTER CHANNEL NU"BER. 



IMUST HE INTEOER 

iTTT • EVERYTHING SET.UP 

■FIRST TABLE ENTRY 

IPTS, TO ACTUAL BYTE 

IMAX CHANNEL NUMBER (CURRENTLY) 



CHKISETIMoV 


• 1 TABLE, R0 




BR 


COHCHK 


CHKOSETjMOV 


POTABLE, RB 


COHCHK) 


JSR 


PC.EVAL 




BCS 


ERSX12 




TST 


FAei(R9) 




BNE 


ERCHAN 




MOV 


FAC2(K5),H2 




BEO 


OljTBti 




MOVB 


(H8),K3 




ADO 


R9,R3 




CMP 


R2,«2 




BHI 


ERCHAN 




ADO 


R2,R8 




MOVB 


(R8),|R3) 




BEO 


EKCHAN 




MOVB 


(H0),H2 


0UT812I 


RTS 


PC 


ERSX12I 


JHP 


ERRSX9 


ERCHANI 


lOT 






iJFNDF 


SLONGER 




.ASCII 


\0CE\ 




lENDC 






ilFOF 


SkONGER 




.ASCII 


'DEVICE CHA 




,ENOC 






.BYTE 





1 


.EVEN 




1 

OTABLEI 


,8YTE 


OOEV 




.IfDF 


INOPTP 




.BYTE 


8 




,ENOC 






lIFNOr 


INOPTP 




.BYTE 


2 




.ENDC 






ifOF 


SNOtPT 




.BYTE 






lENTRY IN TABLE OF OEV, COnE 
ICOOE INTO IDEV OR OOEV 
IMCAK'S NO DEVICE THERE 
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2979 
25S0 

2561 010420 

2982 

2983 

2964 010421 

2989 

2566 

2987 

2968 

2569 010422 

2998 

2591 018423 

2592 



804 



082 





.ENOC 






.IFnOF 


JNOLPT 




.BYTE 


4 




.ENDC 




ITABLEl 


.BYTE 


IDEV 




ilFDF 


INOPTP 




.BYTE 







.ENOC 






.IFNDF 


INOPTP 




.BYTE 


2 




.ENOC 






.BYTE 






BiStCU Mtexil Vt2t 22>H>R>73 16109 PtGC *i 



2>93 
2S»4 
J59S 

J99» 

!S»7 

2>9e 

JS99 

260e 

2601 
2602 
260] 
2604 
2609 
2606 
2607 
2606 
2609 
2610 
2611 
2612 
2613 
2614 
2619 
2616 
2617 
2610 
J61» 
2620 
2621 
2622 
2623 
2624 
2629 
2626 
2627 
262S 
2629 
2630 
2631 
2632 
2633 
2634 
2639 
2^36 
2637 
2630 
2639 



010464 
010466 
010470 
010474 
010476 
010900 
010904 
010906 
010914 
010922 
010930 
010936 
010942 
010946 
010990 
010994 
010996 



010424 112769 032331 

010432 012769 163291 

010440 211910 

010442 320069 000014 

010446 103014 

010490 021027 177779 

010494 103409 



010496 312728 177779 
010462 0»9«t( 



000064 
000066 



SUBnoUTlNC 'ClKVAIliC CttLCO S" JSB KC 

" CUEA'S ViRS'TO SCAU*" iE«OS,MUUL STRINGS 
AI,SO INITIALIies RANOOn NO CCN 
R0 OESTOOrtfl 
"1,R2|R3,R4 UNUSED 
P9 "UST Pni-JT TO USER AREA 
SP GOES NO 1EEPER AFTER JSR 
CLRVARSIHOV •32331|RN0t(P9l 
XOV 6163291, RN>)2(RS| 
HOV (R9),N0 
CLRLOOPICMP R«,U0FREE(R5) 
gNIS CURFREE 
CHP |R0)|i, SCALAR 
BLO CI,ROK 

.irnOF snosth 

CHP (H0),lii,SVAR 

BEO CURSVAR 
,ENOC 



012010 

012010 
362700 
^00762 
309020 
820069 
101774 
ai69«5 
116969 
^16569 
1112769 
E'16500 
012720 
D09020 
020069 

H1774 
000207 



000010 

000010 

000014 
3011014 
000033 
900004 
177777 

S00002 



MOV 

CLR 

il^NOF 
BR 
CLRSVARt"OV 

lENOC 

HQV 
HOV 

clroki ado 

BR 
CLR 
CLRFRCEICHP 
BIOS 
000012 HOV 
000072 HOV 

000074 HOV 

000032 HOV 

HOV 
HOV 
CUR 
CHP 
BLOS 
■T$ 



•(SCALAR, |R0)« 
(R0) 

snostr 

,♦4 
(R0|*llR0) 



IR«)4|(R0I 

<HB)*|(R0l 

• 4,R0 

CkRLOOP 

(R0)* 

R0,ARNAr$|R9) 

.•« 

ARRA»SIR9),HIF«EC(»91 

IOFREL(R9I,LOSTR(R9) 

tOFREt(R9),HISTRlR9) 

>33|0$BCTH|R9) 

POL(R>)|R0 

••l(|K0)* 

(R0)* 

R0|L1I1|T(HS) 

■ •6 

P5 



lENPTT STRING STflHASE 
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2640 








2641 








2642 








2643 








2644 








2649 








2646 








2647 


010960 


012746 


000034 


2640 


010964 


022703 


090000 


2649 


010970 


101002 




2690 


01Z972 


062703 


130000 


2691 


010976 


306104 




2692 


010600 


006103 




2693 


010602 


309316 




2694 


010604 


003367 




2699 


010636 


042703 


170000 


2696 


010612 


009726 




2697 


010614 


000207 




2690 









I SUBROUriNE 'OIVTEN> 



I 
I 
I 
I 

OIVTENI HOV 
OIVLOOPICHP 
BHI 
AOO 
ROW 
ROU 
OEC 
BGT 
BIC 
TST 
RTS 



SP 

•94, •ISP) 
•90000, R3 

.♦» 

•130000, P3 

R4 

R3 

(SP) 

OIVLOOP 

• i70000,ll3 

(SP)* 

P5 



CAriEO 8V jSR PC 

DlVlnES 03, R4 py DECIHAL 10 

R0,I)1,R2 UNUSED 

R3,R4 IS THE 31 BIT UNSIGNED INTEGE" TO DIVIDE 

R9 UNUSFO 

GOES 2 OtEPE" AFTER JSR 
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2t9» 
2i6g 

;«6i 

2662 

2669 
2664 
2669 
2666 
2667 
2668 
2669 
267e 
2671 
2672 
2679 
2674 
2679 
2676 
2677 
2678 
2679 
2680 
2681 
2682 
2689 
2684 
2689 
2686 
2687 
2688 
2689 
2698 
2691 
2692 
2699 
2694 
2699 
2696 
2697 
2698 
2699 
2788 
2781 
2782 
2789 
2784 
2789 
2786 
2787 
2788 
2789 
2718 
2711 
2712 
2719 



.IFNOF INOSTH 



SU8R0UTINE >ONp«CKf 



DNPACKI MOV 
NOV 
»0V 
Cl,R 
NOV 
«0V 
NOV 

aNPLOOPICL" 
9IS8 
BHt 

DNPBADl CMP 
810 
HOV 
TST 

HOV 
MOV 
MOV 

PTS 
DNPNiROICUR 
BISB 
SUiB 

aise 

lOD 
tNC 

BIT 

sea 

DEC 
>DD 
CMP 
BHIS 
CMP 
BHIS 
CMP 
SHI 
CMP 
BHI 
CMP 
BHIS 
CHP 
BtO 
ONPSOOOUOD 
SUB 
CMP 
8NE 
MOV 
"OVB 



CALLCD BV JSR PC 

PACKS ST'INO STOHJCE TOWARD LOW CORE 

R8 UNUSC3 

Rl,R2iR3 PRfSERVEO 

R4 UNUSCO 

R» MUST POI"T TO USER AREA 

SP GOES IC nEEPER AFTER JSa 
R1)«(SP) )T0 "NHERSTANO THESE ROUTIUES IT IS MELPfUI. to 
"2|^t»P) iKNOa 'HAT fJON-NULU STRplOS ARE STORED AS 
R3,.(SP) l((.t>'GTH.2 3TTE 9ACKPTR,m 9YT£ STRING, LEncih) 
• ISP) IKHERE LENGTH IS THE VALUE Of N AND IF 8ACKPTR 



L0STR|R9)|R2 

L0FREEtR9),Rl 

Rl,L05TR(HJ) 

(SP) 

|R2l*r ISPI 

0NPN2N0 

R2,HISTR(R9) 

ONPLOOP 

R1,HISTR(H9) 

(SP)* 

($P)*|R9 

(SP)*,fl2 

(SP).,Rl 

PC 

R3 

|H2I»|R3 

R3 

(SP),H2 

R2 

R3,»l 

,♦6 

RJ 

(R!),N3 

RJ,P0L(R5) 

ONPSAlj 

RJlSP 

ONPeOOD 

RJ,ARRAYS(R9) 

ONPBAO 

R9,HirREE(R9) 

DNPCOaO 

RJlL0rHEElR9) 

ONPBAU 

R9,(R») 

DMPBAD 

»4,(SP) 

(SP),K2 

R«i(RJ) 

DNPICNO 
Rll(R3> 
(R2)«l(Rl)» 



lis 001, THEN IT IS RELATIVE TO SYMBOLS, 



iSAVP HIGH STRING ADDRESS 
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2714 
2719 
2716 
2717 
2718 
2719 
2728 
2721 



9 PACE 43.1 




DEC 


(SP) 


BGT 


,94 


BR 


ONPBAO 


ONPICNOIADO 


ISP|,KZ 


BR 


ONPSAU 


lENDC 




,EOT 





n- 



*SICL 


>i*exii 


V021 


22.HAR1 


27z: 








2783 








8724 








2729 








272» 








2727 








2728 








2729 








273» 








2731 








2732 








2733 








273« 








273S 








2736 








2737 








2738 








2739 


910616 


3206114 




274» 


318628 


183406 




2741 


818622 


«I127«6 


080239 


2742 


818626 


000404 




2743 


018630 


312746 


008233 


2744 


018634 


020604 




274S 


818636 


183938 




274» 


018648 


112182 




2747 


818642 


002113 




2748 


010644 


120227 


000379 


2749 


810690 


3814:9 




275(1 


010692 


120227 


080376 


27S1 


018696 


001462 




2792 


818660 


128227 


888374 


27S3 


818664 


0(1462 




2754 


018666 


128227 


0(0299 


2755 


018672 


081478 




2756 


010674 


120227 


800234 


2757 


018708 


081793 




2798 


810782 


128227 


000232 


2799 


018786 


881794 




2768 


018718 


12(227 


888262 


2761 


810714 


0(1904 




2762 








276? 








2764 








2769 








2766 








2767 








2768 








2769 








2778 








2771 


010716 


042702 


177408 


2772 


010722 


162702 


8(8263 


2773 


810726 


086302 




2774 


010738 


028227 


088(24 


2779 


010734 


181094 




2776 


010736 


062702 


888812 



16189 PtGE 44 



SOURCE riLE «9 



EVIL • EVAtU'TE EXPKE$s;oN 



e«LLI "OV 
MOV 
»0» 
JSR 



tySER>4RE«] 
CSTACK SUE3,R4 
C5H4R, PTH-,],R1 
PC,EV«t 



USES ALL REGS, 



RETURNS 'C< SIT SET If STOlNO «AL, 
CL* If NOT ST»I"0 

RETURNS VALUE IN rACl(H9), rAe2()l9) 



EviLI CMP 


SP|R4 


BLO 


bpol 


MOV 


•|TERM,.(SP) 


8R 


OPERAND 


UNINUSI HOV 


•lUNARr,.(SP) 


CHP 


SP,R4 


BPOLI 8L8 


ERRPOU 


OPERANOIHOVa 


(R1)*|R2 


BCE 


VARBLf 


CHPB 


i>2,f,;LlTi 


BEO 


ILITl 


CMP8 


R2,»,1LIT2 


BEQ 


I1,IT2 


CHPB 


"2l»,rLlT 


BEO 


FLIT 


CNPB 


R2,«,LPAR 


BEO 


LPAR 


CMPB 


R2,», MINUS 


BEO 


UHIMUS 


CHPB 


R2,»,PLUS 


BEO 


OPERAND 


CHPB 


R2|«,FN 


BEO 


COTOFN 


iIFNOr 


iNOSTR 


CHPB 


R2,«,jOUOT 


BEO 


OOTOQI 


CHPB 


R2,«,pouor 


BNC 


NOQUOIE 


eofooTi jHP 


QUOTE 


lENDC 




NOaUCTEIBIC 


•1774|eiR2 


SUB 


• ,RNDI,tR2 


ASL 


R2 


CHP 


R2,8TIIL9EMn-TARLr9 


BHI 


EKRSX4 


AOD 


';2,R2 
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2777 


3187*2 


363732 






ADD 


P5«R' 




2778 


010744 


389712 






TST 


(R2) 




2779 


310746 


303882 






BGT 


1*6 




2780 


310790 


300167 


002042 




JHP 


EKRUFN 




2781 


010794 


361287 






ADD 


<R2),PC 




2782 


310796 


00088( 




TAaLE9l 


,HORD 


1 


iINr<( 


2783 


310760 


300030 






,UORO 


8 1 


RNtl 


2784 


313762 


300716 






,UORD 


SlNrN-TASLe9 




2789 


310764 


300724 






,UORD 


C0SrN-fA8LE9 




2786 


313766 


300732 






iWORD 


SQRF)l«tAaLe9 




2787 


310770 


300746 






,UORO 


ATNFN>tA!ILe9 




2788 


310772 


300754 






,WORD 


EXPrN.tABLE9 




2789 


310774 


3((77( 






,HORD 


L0OrN»tASLE9 




2798 


310776 


38888( 






,WORD 


8 1 


»B<! 


2791 


311008 


381122 






,UORO 


INTFN.TASLE5 




2792 


011002 


388008 






,UDRD 


3 1 


S5>' 


2793 
















2794 










.IfNOF 


INOSTR 




2799 










,MORO 


■ .. I 


TAR 


2796 










,«OR0 


a 1 


LEM 


2797 










lUORII 


3 1 


ASC 


2798 










,WORD 


I 


CHOJ 


2799 










,WOR0 


) 


POS 


2800 










,MORD 





SEC 


2681 










,WORO 


8 


VAL 


2882 










,HORD 





STR 


2883 










lENOC 






2884 
















2609 




311002 




T8.9END 
ILITII 


• ,•2 






2606 


011004 


309369 


380040 


CL« 


FAei(H9) 




2807 


011018 


105865 


380843 




CLRB 


FAC2»1(R9| 




2808 


011014 


112169 


330342 




MOVB 


(R1)4|FAC2(R9) 




2809 


011820 


303167 


330246 




JHP 


OPRATOR 




2810 


311024 


335369 


330340 


ILtT2l 


CLR 


F4C1(M9) 




2811 


311330 


333434 






8R 


ILITCOM 




2812 


311032 


112165 


330041 


TLITI 


"OVB 


lRl)*irACl»l(R9| 




2613 


311836 


112165 


338048 




HOVB 


(«1)*|F»C1|R51 




2814 


011842 


112169 


303043 


ILITCOHINOVB 


(Rt)*|FAC2«l(R9) 




2619 


311046 


112169 


303042 




MOVB 


(Rl)*irAC2(R9l 




2816 


311092 


300537 






BR 


OPRATQR 




2817 
2618 
2619 


011094 


384767 


177936. 


LPARI 


JSR 


PC.EVAL 












.IFnOF 


JNOSTR 




2628 










8CS 


LPSTRNO 




2621 










lENDC 






2622 
















2623 


311860 


122127 


380237 




Chpb 


(Rl)4|«,RP»R 




2624 


3;i(64 


Z>8190! 






BE9 


OPRATOR 




2829 


311866 


388167 


300996 


ERRSX4I 


JHP 


ERRSX9 




2626 
















262? 










.IFNOr 


SNOSTR 




2628 








LPSTRNOICHPB 


(Rl)«i»,RP»R 




2829 










8NE 


eRRSX4 




2630 










JHP 


SOPRATR 




2831 










,ENOC 
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2832 
2«]] 
2134 
2«3» 

2136 
2»37 
293a 
2639 

2a4s 

2841 
2842 
2843 
2844 
2849 
2646 
2847 
2848 
2649 
2898 
2891 
2692 
2893 
2694 
2699 
2896 
2897 
2898 
2699 
2668 
2661 
2862 
2863 
2864 
2869 
2866 
2867 
2868 
2669 
2878 
2871 
2672 
2873 
2874 
2879 
2676 
2877 
2878 
2879 
2888 
2881 
2862 
2863 
2884 
2869 
2666 



311872 
811874 
811876 
811180 
811184 



811186 
811112 
811114 
811116 



811128 
811122 



811129 
811126 



811132 
811134 
811136 

311148 



811144 
811198 
811194 
811196 
811162 
811164 
811178 
811172 
811176 



788382 
192182 

261982 

121127 888299 

?81412 



322227 177779 

881463 

811282 

808461 



888884 
892189 



183 



888167 381946 



386281 
383771 
818246 
38476T 177492 



304787 882634 

80976S 888048 

801027 

121127 B8B237 

881426 

122127 808243 

881336 

816946 808842 

884767 177414 



V»»8tEl 


swta 


r2 




Btse 


|Rll*|R2 




too 


|R9),H2 ICILLECT 




CNPB 


(«l),»iLPAR 




BEO 


VARSS 




iIFNOF 


INOSTH 




CNP 


I«2),»,SVAR 




SEQ 


STROJMP 




lENOC 






cmp 


tR2)*l»,SC>(.«R 




BEO 


VARNOSS 




"OV 


(R2),H2 




BR 


VARNOSS 




.IPNOF 


INOSTN 


STH6JMPIJHP 


5IRGVAR 




lENOC 




ERRPOtl 


lOT 






iIPNOF 


IkONSfcR 




.ASCII 


NETCN 




,ENOC 






,lFor 


SI,ON«ER 




.ASCII 


'EXPRESSION TOO fOHPlE*' 




,ENOC 






,BYTE 3 






lEVEN 




OOtOFNI 


JMP 


FNFN 




iIFNOF 


INOSTK 


ERRMX2I 


JMP 
lENOC 


EHRMlJi 


V»RSSI 


Inc 


Ri 




BUE 


ERRPOl, 




HQV 


R2i«(SPI 




JSR 


PC.EVH 




.iPNor 


SNOSTR 




BCS 


EKRnX2 




,ENOC 






JSR 


PC, IN! 




TST 


FACl(R9) 




BNC 


ERRSS2 




CMPB 


(R1),»,RPAR 




BEO 


V0NES9 




CMPS 


|Rt)*lt,CaHHA 




BNE 


ERRSX4 




MOV 


FAC2(H9),,(SP) 




JSR 


PCiEVAl, 



iSlCL 


MACXll 
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2887 










.IFNOF 


1N0STI4 






2688 










9CS 


EHRMX2 






2889 










,ENOC 








2898 


















2891 


811282 


804767 


882976 




JSR 


PCllNT 






2892 


811286 


205769 


388848 




TST 


FAC1(H9) 






2893 


811212 


381010 






BNE 


EMRSSi! 






2694 


311214 


122127 


330237 




CMPB 


(Ht)»,«i,RPAR 






2899 


311220 


301322 






BNE 


ERRSX4 






2696 


311222 


316983 


388842 




MOV 


FAC2(K9|,R3 






2697 


311226 


180482 






BHI 


ERRSS2 






2898 


311238 


312680 






MOV 


(SP)»,R8 






2699 


311232 


380487 






BR 


VTUOSS 






2988 


811234 


880167 


803534 


ERRSS2I 


JMP 


ERRSS3 






2981 


011240 


385281 




VONESSi 


INC 


Ri 






2982 


311242 


312783 


177777 




MOV 


«»1,R3 






2983 


311246 


316980 


300842 




MOV 


FAC2(N5),Ra 






2984 


311292 


180770 




VTWOSSI 


BMl 


EHRSS2 






2909 


311254 


n2632 






MOV 


<SP)»,R2 






2986 


















2987 










iIFnOF 


JNOSTH 






2988 










CMP 


<H2)(»,SVAR 






2939 










BNE 


.♦6 






2910 










JMP 


strcanr 






2911 










lENOC 








2912 


















2913 


311256 


804767 


883336 




JSR 


pc.loccet 






2914 


811262 


812269 


880848 


VARNOSSIMOV 


(H2)*|FAC1(R5) 






2919 


811266 


811269 


088842 




MOV 


(H2),f AC2(RS) 






2916 


311272 


111183 




0PRAT0RIM0V8 


(H1),H3 


INEXT 


CHARACTER, 


2917 


311274 


120327 


808281 




CMPB 


R3,»,tOL 






2918 


311388 


001437 






BEO 


OOITNOU 






2919 


311332 


120327 


380i89 




CMPB 


R3,»,ii0T0 






2928 


811336 


801434 






BEO 


OOITNO" 






2921 


811318 


123327 


380227 




CMPB 


R3,«,UPARRe 






2922 


811314 


103664 






ato 


EHRSX* 






2923 


311316 


311682 






MQV 


(SP),H2 


iPPtvIOUS OPERATOR, 


2924 


311328 


128227 


3882Z7 




CMPB 


R2,6,UPARN0 






2925 


311324 


101425 






BLDS 


DOITNON 


IJUMP 


IF •■, 


2926 


811326 


120227 


888231 




CMPB 


R2,«,SLASM 
PNEC? 






2927 


311332 


181417 






BLOS 


IJUMP 


IF • OH /, 


2928 


311334 


123227 


808234 




CMPB 


R2,f, MINUS 






2929 


311340 


181411 






BLOS 


PHEC3 


IJUMP 


IF ♦ - OR UNART, 


2938 


311342 


128227 


888294 




CMPB 


H2,»,Lg 






2931 


311346 


181433 






BLOS 


PHEC4 


rjuMP 


IF »<><«>•<( 


2932 


311350 


128327 


388294 


PREC9I 


CMPB 


RJ.i.ta 






2933 


311354 


181427 






BLOS 


NOTNON 


IJUMP 


IF ANY OPERATOR, 


2934 


311356 


128327 


888234 


PREC4I 


CMPB 


R3,i, MINUS 






2939 


311362 


101424 






BLOS 


NOTNOH 


IJUMP 


IF ♦ - UNARY • / 


2936 


811364 


128327 


808231 


PREC3I 


CMPB 


R3,«, SLASH 






2937 


311378 


101421 






BLOS 


NOTNOi 


IJUMP 


IF • / OR «, 


2936 


811372 


128327 


380227 


PREC2I 


CMPB 


R3,»,IJPARR0 






2939 


311376 


101416 






BLOS 


NOTNOtl 


iJUMP 


IF f, 


2948 


811488 


809882 




DOITNOWICUR 


R2 


l(E,5, 


, A«B* 1 00 THE 


2941 


311482 


152682 






BISB 


|SP)*,R2 







OR >■, 



VOU, 



.SICU 


mcxii 


V02t 


22tH«II<73 16109 PACE 


: 44.4 




2942 


011404 


162702 


00(226 




sgs 


•,UP»KR0-l,R2 


2*43 


011410 


H60202 






ADD 


r2iR2 


2»44 


011412 


?6«702 






ADD 


PC,R2 1 


2949 


011414 


061207 






AOO 


(R2I.PC 1 


2946 


011416 


000910 




TA8LE2I 


,HORO 


UPARR0.T«ai,E2 1 


2947 


011420 


300124 






,WOR0 


STAR.IABLEJ 


2949 


011422 


<<00154 






,UOR0 


Sl,ASHaTABLE2 


2949 


011424 


000116 






,WOR0 


Pl.US-TAaLE2 


2990 


011426 


1100096 






,HORO 


UNARV<TAB1,C2 


2991 


011430 


1100052 






,UORD 


MINUS. tA9UE2 


2992 


011432 


300042 






,HORD 


TERMIN«T«Bt.E2 


2993 


011434 


016946 


000042 


NOTNOHI 


MOV 


rAC2(R9),»(SP| 


2994 


011440 


020604 






CMP 


SP|R4 


2999 


011442 


10341) 






BtO 


ERRP09 


2996 


011444 


J16S46 


000040 




MQV 


rAei(H9),«(SP) 


2997 


011490 


010346 






MQV 


R3l«<iP) 


2996 


011492 


009201 






INC 


r; 


2999 


011494 


000167 


177160 




JMP 


OPERAND 


2960 


011460 


000241 




TERMINI 


CLC 




2961 


011462 


000207 






RTS 


PC 


2962 


011464 


000167 


177430 


EfIRPD9l 


JMP 


ERRPOI, 


2963 


011470 


004767 


009616 


HINUSI 


JSR 


PCiSUBSTK 


2964 


011474 


009769 


000040 


UNARY 1 


TST 


FAC11R9) 


2969 


011900 


001404 






BEO 


UlNTEIi 


2966 


011902 


062769 


100000 


0(0040 


ADO 


«1000»0,r»Cl(S5) 


2967 


011910 


000670 






BR 


OPRATOR 


296S 


011912 


009469 


000042 


UINTESI 


NEC 


rAC2(K9) 


2969 


011916 


102269 






BVC 


OPRATOR 


2970 


011920 


012769 


044000 


000040 


HOV 


»4400il,r»Cl(R9) 


2971 


011926 


009069 


00(042 




CLR 


FAe2(H9) 


2972 


011932 


000697 






BR 


OPRATOR 


2973 


011934 


004767 


179630 


%USI 


JSR 


PC,AD(ISTK 


2974 


011940 


000694 






BR 


OPRATOR 


2979 


011942 


312767 


011666 


000000G STARI 


MOV 


•ERSTAR.IEPVEC 


2976 


011990 


004467 


001960 




JSR 


R4|FPPSAV 


2977 


011954 


(111620 






,UORO 


TSTSTK 


2978 


011956 


311634 






,UORO 


PVSHf 


2979 


011960 


00000gc 






,HORD 


tMtR 


29B0 


011962 


014270 






lUORO 


POP 


29S1 


011964 


013306 






,UORO 


FPPRES 


2982 


011966 


000167 


177900 


STARll 


JMP 


OPRATOR 


2983 


011972 


B12767 


012230 


00(00(G SLASHI 


MOV 


•ERROiVitERVEC 


2984 


011600 


304467 


001930 




JSR 


R4,FPPSAV 


2989 


011604 


011620 






,UORO 


TSTSTK 


29B6 


011606 


011634 






,UORD 


PUSMP 


2987 


011610 


0i0«0fe 






,UORD 


tOVR 


2988 


011612 


014270 






,UORD 


POP 


2989 


011614 


013306 






,MOR0 


FPPRES 


2990 


011616 


0(0763 






BR 


STARI 


2991 


011620 


009716 




TStSTKI 


1 TST 


'IJ', 


2992 


011622 


001003 






8NE 


TSTS2 


2993 


011624 


009726 




TSTSII 


TST 


(SPl* 


2994 


011626 


000167 


000000C 




JMP 


SIR 


2999 


011632 


000134 




TStS2l 


JMP 


P(R4I* 


2996 


011634 


016946 


000(42 


PUSHFI 


MflV 


FAC2(H9),.(SP) 



IJUMP TO DO THE APPROPRIATE OPERATION, 
ILEFT OPERAND IS 0(SP)|2(SP), 
iRItuT OPERAND IS FAC1IR9),F»C2(»91, 



1(E,G, AtB» 1 OONT 00 THE ♦ YET, 



ICAHRY OFF MEANS NUMERIC RESULT, 



jTEST TOP OF STACK AND FLOAT IF INT 
IPUS" FAC ANO FLOAT IF NEC 
iPERFORM MULT 
IPMP RESULT 



IRETIIRN 
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2997 

2998 

2999 

3000 

3001 

3002 

3003 

3004 

3009 

3006 

3007 

3008 

3009 

3010 

3011 

3012 

3013 

3014 

3019 

3016 

3017 

3016 

3019 

3020 

3021 

3022 

3023 

3024 

3029 

3026 

3027 

3028 

3029 

3030 

3031 

3032 

3033 

3034 

3039 

3036 

3037 

3038 

3039 

3040 

3041 

3042 

3043 

3B41 

3049 

3046 

3047 

3048 

3049 

3090 

3091 



011640 016946 000(40 
011644 0017S7 
011646 000134 



011690 300004 
311692 f994923 



MOV FACKN'l-'ISPI 

SEO TSTSl 

JMP PiR4)* 

,IF0F SNOSTM 
lOUHMY ENTRY POINTS FOR INOSTR 
SAVCHARI 
ARCS I 
HAKESTI 
SOPRATI 
STOSVARI 
ERRHIXt 
STPROI 

,ENOC 

ERRSVNI 
ERRSX9I 



)FLo«T IF Integer 

iRETiiRN 



9U0TEI 



OUNULLI 
COTVALI 



IDT 

.IFNDF 

, ASCII 

,ENOC 

,IFOF 

(ASCII 

iEnOC 
,ByTE 
lEVEN 

ilFNOF 

CMPa 

BNE ' 

HOV 

HOV 

TSTB 

BNE 

CMP 

BLO 

MOV 

SUB 

MOV 

SUB 

CMP8 

BNE 

DEC 

BEO 

MOV 

ADD 

JSR 

MOV 

JMP 

CMP 

HOV 

BR 

,ENOC 



S|,0NCIH 
'SVN' 



SLONGIH 
ISYNTAX ERROR' 



SNOSTH 

(Rt)*l»|TEXT 

ERRSX9 

R2,R3 

R1,R2 

(Rt)* 

SP,R4 

ERRP09 

R2|.(5P) 

•3, (SPl 

R1,,.<5P| 

R2,(SP1 

(Rt)*|R3 

ERRSX9 

(SP) 

OyNULL 

SP|R2 

• 2|R2 

PC,MAKESTR 

(SP).|(SP> 

OUOTBVH 

(Sr)*i(SP)* 

"•l.-tSP) 

SOPRAJR 



(SAVE OUOTE CHAR, 



ISAME AS START1N8 1UPTE CHAR,? 



311696 ?00167 000000 



ERPO02I JMP 



ERRP02 
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3094 
3B99 

3096 
3097 
3090 
3099 
3060 
3061 
306! 
9063 
9064 
3069 
9066 
9067 
3060 
9069 
9070 
3071 
307! 
3073 
3074 
3079 
3070 
9077 
3070 
9079 
9090 

30ai 
30ai 

9083 
3084 
9089 

9086 
3087 
3088 
3089 
3090 
309]. 
3092 
9093 
3094 
9099 
9096 
9097 
3098 
3099 
3100 
3101 
9102 
9103 
9104 
9109 
3106 



19 PASe 44.« 




.IFNOF 


SNOSTN 


STRSJIRRIjSn 

SR 


??Jfe§?S" 


STRSVARITST 


(R2I*' 


CHI" 


2tR2)l«>t 


SCO 


STRGBTH 


HOV 


(R2)iR2 


ST«GBTHI»OV 


(R2).t(3 


CUP 


R3,l-l 


BEO 


COTVAt 


CMP 


SP,R< 


SLO 


EHPO02 


CLR 


• tSP) 


N0V9 


(R3(,ISP) 


JS" 


PC,MAKESTH 


SOPRtTRICMPS 


2|SPI|'>AMPERS 


acQ 


CONCAI 


CHPB 


(Ri),»,AMPERS 


BEQ 


AMPWAIT 


CNPB 


ZtSPIit.TERM 


SNE 


EHRSX9 


MOV 


(SP)*,R0 


TST 


(SP)» 


M0» 


(SP),H2 


MOV 


R0,(SPI 


INC 


R0 


BEO 


SOPRX ICMECK NULL 


too 


• 2,R0 


MOV 


SP,R3 


MOVB 


R3,.(N0) 


3UAB 


R3 


MOVB 


R3,.(KB( 


SOPRXI SEC 




JMP 


(K2) 


tMPUitriMOVB 


(R1)*I»(SP) 


JSP 


PC.EVAL 


BCS 


SOPRATR 


ERRMIXI lOT 




.IFNOr 


SLONCER 


.ASCII 


\NSH\ 


,£NOC 




.iFor 


mONCER 


.ASCII 


'NUMBERS ANC STRINSS MtXEOf 


.ENOC 




,8VTE a 




.EVEN 




CONCATl CMP 


ISP),*«1 


BNC 


CATNOf 


CMP 


(SP)»,(SP)* 


BR 


SOPRATR 


CAfNOTl HOV 


4(SP),R2 


CMP 


R2.«-t 


BNE 


OATLONC 


MOV 


(SP)*,R0 


TST 


(SP). 
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9107 
3108 
3109 
3110 
3111 
3112 
3119 
3114 
3119 
3116 
3117 
3118 
3119 
3120 
3121 
3122 
3123 
3124 
3129 
3126 
3127 
3128 
3129 
3130 
3131 
3132 
3133 
3134 
3139 
3136 
3137 
3138 
9139 
3140 
3141 
3142 
3143 
3144 
3149 
3146 
3147 
3148 
3149 
3190 
3191 
3192 
3193 
3194 
3199 
3156 
3197 
3198 
3199 
3160 
3161 



911662 000167 177232 



MOV 


R0i(SP) 


BR 


CATCOM 


CATLONGtCLR 


R0 


aiSB 


(R2),M0 


MOV 


ISP),H3 


CMP 


SP,R4' 


SLO 


ERP0a2 


CL" 


"(SP) 


MOVB 


(H3|,(SP) 


too 


RBl(SP) 


CMP 


(SP),«377 


BHI 


CRRSTN 


MOV 


SP,H2 


100 


• 6,R2 


JSR 


PC.MAKESTR 


MOV 


(SP)»,R3 


MOV 


4|SPI|R2 


CLR 


R0 


BISB 


|R2),R0 


MOV 


R3,4(SP) 


too 


R0|R3 


AOO 


43, R3 


»0V 


(SP)»,R2 


TST 


(SP)* 


CLR 


R0 


BISB 


(R2).M0 


AOO 


• 3,R2 


MOVB 


|R21*l(H3l« 


PEC 


R0 


BOT 


,•* 


STPROI 




OUOTBUMIMOV 


(SP),KB 


CATCOMI HOV 


SP,R2 


ADD 


•3,R0 


MOVB 


r2,»(H0) 


SHAB 


R2 


MOVB 


R2,.(H0) 


BR 


SOPRATR 


,ENOC 




ERRPD2I JMP 


ERRPOl 


.ifndf 


SNOSTN 


ERRSTRl tOT 




ilFNDF 


JLONOER 


.ASCII 


\5TL\ 


.ENOC 




,IFDF 


$l,ONCtR 


.ASCII 


■STRINS TOO LONG' 


,ENOC 




.BTTE I 


1 


.EVEN 




.ENOC 





»S1CL 


MACXll 


V021 


22<HtR« 


73 16! 09 PtCC 44>8 




3ti2 








ERSTaRI 






116] 








ERlOOt 






3164 


011666 


000004 




CRROVRl 


lOT 




3X»f 










iITNOr 


St,aNSCR 


3166 


011670 


353117 


106 




.ASCII 


lOVF' 


3167 










,ENOC 




3166 










,iror 


mONCER 


3169 










.ASCII 


•OVERFUOUI 


317» 










lENOC 


" 


3171 


011673 


0EI0 






.BYTE 1 


1 


3172 










.EVEN 




3173 














317« 


011674 


012746 


000000e 


SInFnI 


«ov 


•SlN>«(SPl 


3179 


011700 


000432 






8R 


fQncti 


3176 


011702 


012746 


00g0(«e 


COSFNI 


HOV 


• POSiXSPI 


3177 


011706 


000427 






BR 


F«NCTI 


3176 


011710 


012746 


000000G 


SORFNI 


H0» 


f$aRT,.(SP| 


3179 


011714 


012767 


007734 


0000006 


"OV 


•tRSON.IEKVEC 


3168 


011722 


000421 






BR 


FMNCTl 


3161 


011724 


312746 


300000G 


4TNFNI 


HOV 


•ATAN,.(SP) 


3162 


011730 


300416 






BR 


FVNCTl 


3163 


011732 


312746 


0000000 


EXPFNI 


MOV 


•IXP,«(SP) 


3164 


011736 


012767 


011666 


00000BS 


HOV 


•EREXP.tERvEC 


318S 


011744 


!)004t0 






BR 


FUNCTi 


3166 


011746 


312746 


0000001: 


LOSFNI 


HOV 


•AUOG|.(SP) 


31S7 


011752 


012767 


007734 


000000S 


MOV 


•ERLOGiSERVEC 


3188 


311760 


000402 






BR 


FUNCTI 


3189 














3i9g 










.IfNOF 


snostr 


3191 








ERRHX9I 


JliP 


ENRNI« 


3192 










.ENOC 




3193 














3194 


011762 


000167 


177674 


CRRDllt 


Jnp 


EflRP02 


319S 
3196 
3197 


011766 


014767 


176624 


rUNCTII 


JSR 


PplEVAU 










.ifnof 


INOSTH 


319S 










BCC 


F«NCT^ 


3199 










JMP 


ERRARG 


3200 








rUNCTJI 






32(1 










.ENOC 




3202 














3203 


011772 


012603 






»ov 


(SP)*,R3 


3204 


011774 


301002 






BnE 


.46 


3209 


011776 


000167 


001014 




JMP 


ERRUFN 


3206 


012002 


122127 


000237 




CHPB 


(Rt)«i«,nptR 


3207 


012006 


H0104J 






BNE 


CRRSXV 


3206 


012010 


304467 


301320 




JSR 


R4,FPPSAV 


3209 


012014 


011634 






.UORO 


PySHF' 


3210 


012016 


312024 






.UORD 


FUNOK 


3211 


012020 


013306 






.HORO 


FPPRES 


3212 


012022 


000435 






BR 


oprfn' 


3213 


012024 


010601 




rUNOKI 


HOV 


SP.Rt 


3214 


012026 


010446 






HOV 


R4,.<SP) 


3215 


012030 


»12746 


012056 




HOV 


•FUNRtr,.|3P) 


3216 


012034 


312746 


000137 




HOV 


•i37,i(SP) 



iPusu fac, Fuoat if necessary 
(GO r)0 FUNCTION 



ISAVE AOORESS of pushed ARC 
ISAVC 04 

lOUHMY RETURN ADORESS 
)OUH"Y JUMP INSTR, 
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3217 

3218 

3219 

3220 

3221 

3222 

3223 

3224 

3229 

3226 

3227 

3228 

3229 

3230 

3231 

3232 

3233 

3234 

3235 

3236 

3237 

3236 

3239 

3240 

3241 

3242 

3243 

3244 

3245 

3246 

3247 

3248 

3249 

3250 

3251 

3252 

3293 

3254 

3255 

3256 

3257 

3258 

3259 

3260 

3261 

3262 

3263 

3264 

3269 

3266 

3267 

3268 

3269 

3270 

3271 



012040 
312042 

012046 
312050 

312092 
012096 
312062 
312064 
312066 
312072 
312076 



310146 
012746 
310900 

310605 

304070 
362736 
■'12634 
!<22626 
310365 
.113165 
300134 



000401 



330092 

330010 



300040 
330042 



312100 004767 176912 



312134 122127 

012110 001004 

312112 304767 

312116 300167 

312122 000167 



301666 
177190 
177522 



HOV 

HflV 
HOV 
HOV 
JSR 
FUNRETI ADO 
HOV 
CHP 
HOV 
HOV 
JMP 

.IFnOF 
ERRNXSt JHP 

.ENOC 

INTFni JSR 

.IFNOF 

BCS 

,ENOC 

Cmpb 

BNE 

JSR 
JHP 



OPRFNI 
ERRSX9I JHP 



R1««(SP) 

•401, .(sp) 

R9,R0 

SP,R5 

R0,0R3SAVE(R«l) 

•6. (SP 

(SP)»,fl4 

(SP)*,(SP|» 

R0,FAC1(R5) 

RllFAC2|R»| 

•(R4)« 

INOSTR 
EKRH1X 



PC.EVAl, 

SNOSTN 
ERRHX8 



(Rl)*l«,RPAR 
ERRSx» 

'?|INT 

OPRATOR 

ERR$X9 



012126 

312130 
312132 
312136 
312140 
312142 
312146 
012190 

312192 

012163 
312164 
312166 
312172 
012174 
312232 
312204 

312210 
312212 
312214 
312220 
012222 



005716 

331013 

305766 

301409 

305726 

304467 

000030G 

313336 

312767 
305765 
301036 
B097S5 
301336 
312765 
322626 
300167 

305716 
101377 
305765 
100013 

300004 



I 

UPARROI 



012916 
300048 



300330C uAit 



303001 000042 
177B6J 



I 9 IS 

UA5I 



UAtI 



TST 

BNE 

TST 

BEQ 

TST 

JSR 

,UOR0 

,UORO 

HOV 
TST 
BNE 
TST 
BNE 
HOV 
CHP 
JHP 
INTEGER 
TST 
9NE 
TST 
BPL 
lOT 
, IFNOF 



(SP) 

UAl 
2ISP) 
UAl 
(SP)* 

H4,FPPSAV 

SIR 

FPPRES 

•(RREXp.SErvEC 

FAei(R5) 

UAt0 

FAC2(K9) 

UA5 

•1,FA521R») 

(SP)»,(SP)* 

OPRATOR 

(SP) 

UAt7 
FAe2(«9) 

UA9 

S^ONGCR 



I ADO" OF aHGUHENT 

|0UH"Y Bh 

iSAVE 99 VALUE 

iRtTURN AOORESS <T0 OUHHY PHOG IN STK) 

IPOP OUHHY ProgRAH 
IRESTOOE H4 

iREnnVE OLD FAC TROH STACK 
ISTOPE RESULT IN FAC 

I AND RETURN 



IF A IS NOT 0|Fi.OAT IT 



lis lipPE" A r 
lis LOUEH A ■/ 



lis UPPER B ■ 3 
I IS LOUE" B » 
ISCT RESULT 1 

lis 1 • 3 

lis LOWER a > 3 
INO, ERROR MESSAGE 



iSICL 


M»CXll 


V821 


22rniN<73 


3272 


012224 


1)93184 


868 


527J 








3274 








327S 








327« 








3277 


812227 


888 




3278 








3279 


812238 


[128327 


384888 


3260 


812234 


183372 




3291 


812236 


SI88167 


177424 


3282 


812242 


183367 




3283 


312244 


388167 


177416 


3284 


812298 


389869 


383848 


3289 


812294 


389869 


883842 


3286 


812268 


383798 




3287 








3288 








3289 


812262 


389769 


888842 


3298 


812266 


381836 




3291 


812278 


316988 


883848 


3292 


812274 


018832 




3293 


812276 


342738 


188177 


3294 


812382 


328827 


343288 


3299 


812386 


183426 




3296 


812318 


842732 


177638 


3297 


812314 


392732 


383238 


3298 


812328 


328327 


042838 


3299 


812324 


381486 




33ae 


812326 


181816 




33«1 


812338 


386282 




3382 


312332 


183414 




3383 


812334 


362738 


888288 


3384 


812348 


808767 




3389 


812342 


889769 


808048 


3386 


812346 


188881 




3387 


812398 


889482 




3388 


812392 


389869 


388848 


3309 


812396 


01826S 


388842 


3318 


812362 


088712 




3311 








3312 


812364 


339716 




3313 


812366 


331439 




3314 


812378 


884467 


383748 


3319 


812374 


314296 




3316 


812376 


312936 


812688 


3317 








3318 


812482 


389769 


888848 


3319 


812486 


188328 




3328 


812418 


388784 




3321 








3322 








3323 


312412 


316980 


888842 


3324 


312416 


318882 




3329 


812428 


382831 




3326 


312422 


389430 
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■AiCII 


'UV0' 






iCNOC 








,iror 


StiONGER 






.ASCII 


'DIVISION BY 0( 






,ENDC 








,B*TE 


8 






,EVEN 






CRRDIVt 


CMP 


R8,»4888 






9HIS 


UA8 






JMP 


EHSTAM 






BHIS 


UA8 


IDIV B» » 




JMP 


EHROVK 


lOVtPrLOW 


UA9I 


C1.R 


rACl(H91 


ISET RESULT 3 




CUR 


rAC2(M9) 






BR 


UA4 




IFIX 9 


ir INTESER < 2»6 




UA10I 


TST 


fAC2("91 






BNE 


UA18,» 






MOV 


rAei(M9),Rfl 






MOV 


R0,R2 






BIC 


•188177, RB 


|E»T»ACT EXPONENT 




CMP 


R0|84«2B8 


(CHECK TOO SMALL 




BIO 


UA18,? 






BIC 


•177688, R2 






BIS 


•288, K2 


)R2 IS MANTISSA 


UAt0AI 


CMP 


RB,«42888 






8E0 


UAIBB 






BHI 


UA18,9 






ASR 


R2 






BCS 


UAt8,9 


l|F RIT CLEAREO.NO GOOD 




AOO 


•288, M8 


iUPOATE EXPONENT 




BR 


UA18A 




UA188I 


TST 


rACi(H9i 






8PL 


UA10C 






NEO 


R2 




UA18ei 


CI.R 


rACl(K9) 






MOV 


R2,FAC2<RS) 






BR 


UA9 




IB IS REAL 






UA18,9| 


TST 


(SP) 


lis « • B 




BEQ 


i;At2 






JSR 


R4,rPPSAV 






,UORO 


PUSH 






,UORD 


UAJMP|yA23 




UA12I 


TST 


rAei(H9) 


IIS UPPER B> 8 




BPU 


UA9 


lYES 




BR 


UAB 


INO, ERROR 



IB INTESCRl A REAL 

UAi7l MOV rAe2(M9),R8 
MOV R8,R2 
BSE UA17A 

NEC R8 



ISAVE POH SIGN TEST 
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3327 


812424 


328027 


338296 


3328 


312438 


183897 




3329 


312432 


384467 


888676 


3338 


812436 


814278 




3331 


312448 


314382 




3332 


312442 


312924 


312492 


3333 


312446 


314296 




3334 


312498 


388880G 




3339 


312492 


312942 


312472 


3336 


812456 


314296 


314296 


3337 


312462 


380880G 




3338 


312464 


314270 




3339 


312466 


312936 


312442 


3348 


312472 


314270 




3341 


312474 


312992 


312918 


3342 


312988 


314332 




3343 


312982 


314256 




3344 


912984 


388830G 




3349 


312986 


314270 




3346 


312918 


313336 




3347 


312912 


388167 


176994 


1348 








3349 








3358 


312916 


:;88034 




3391 








3392 


312928 


342536 


122 


3393 








3354 








3359 








3396 








3357 


812923 


830 




3398 








3399 








3368 


312924 


386269 


888844 


3361 


312938 


133832 




3362 


812532 


339724 




3363 


312534 


383134 




3364 


312536 


311434 




3369 


312948 


388134 




3366 


312942 


389765 


388844 


3367 


312946 


381773 




3368 


812958 


383771 




3369 


312992 


389769 


888898 


3378 


312996 


188367 




3371 


312968 


388764 




3372 


312962 


389716 




3373 


312964 


180794 




3374 


312966 


388134 




3379 








3376 


012978 


318246 




3377 


312972 


384467 


388936 


3378 


312976 


3838380 




3379 








3388 


312688 


312622 




3381 


312632 


312962 





UaI7aI 



UAI79I 



UAi70l 



UA17FI 



UA19I 



CMP 

BHIS 

JSR 

,WORO 

iWORO 

,HORO 

lUORD 

,HORO 

,UORO 

,UORO 

,UORD 

,UORO 

,UORO 

,UORO 

iWORO 

,UCRO 

,NORO 

,NOR0 

,WORO 

iWORO 

JMP 



R8,«296 

UA28 

R4,rPPSAV 

POP 

PUSHl 

UAASR|UA170 

PUSH 

SMLR 

UATSTi(,UA17r 

PySH,l'USH 

SMLR 

POP 

UAJMP|UA17>( 

POP 

UATST2,UA19 

PySHl 

pgsH 

SOVR 

POP I POP 

rppREs 

OPRATOR 



ERREXPI 

UA21I 



lOT 

iIPNor 

.ASCII 

.ENDC 

,IFOr 

.ASCII 

,ENOC 

.BTTE 

.EVEN 



UAASRI ASR 

BCC 
UANJMPI TST 

JMP 
UAJMPI MOV 

JMP 
UATST0I TST 

BED 

UAtST2| TST 
BPL 
BR 

UAtSTAI TST 
BMI 
JMP 



MOV 
JSR 
,HORO 

,UORO 
.WORD 



IRP IS AaS<al If TOO BIG, FLIaT 

IGO INTO POLISH MOOE 
ICURPE^T PROOUCT IS A 
ICUROENT ANSNEK IS 1 (ON STK) 
ISHIFT 8. BRtNCH IF SIT IS 8 
IGET CURRENT PRODUCT ONT OSTACK 
IMULTIPLT INTO CURRENT ANSUE" 
ITEST ir OONE, BRANCH IF SO 
ITUO COPIES OF CURRENT PRODUCT 
ISOUARE IT 

lANO PUT RESULT BACK 
IPOLISH JUMP TO 179 
iSTOPE ANSHER INTO FAC 
iTEST SI3N B, IF ♦ JUMP' 
(PUSH 1 ONTO STACK 

lANS 1 1/ANS IF g NEO 
ANSHER TO FAC 

)ANO OCT OUT 



UA23I 



SLONGER 
\<ER\ 



SLONGER 
r» ERROR' 



R8SAVE(r9) 

UAJMP 

(R4)* 

•(R4(» 

•R4,R4 

•(R4)« 

R0SAVE (R9) 

UAJMP 

UANJMP 

R2SAVtIR9| 

UAJMP 

UANJMP 

•SP 

UA21 

•|R4)* 

R2|.(SP) 

R4,FPPSAV 
SIR 

REVRSE 

UATSTA 



ISKI" OVER JUMP ADDRESS 
IPOLISH MODE JUMP 



iTEST SI(iN OF 9 
IPOLISH JUMP IF 9 * 



IPUSH InT B oh STACK 
iFLOAT B 



IREVERSE TOP THQ ON STK 
iTEST TOP ST«. BR TO ERR IF 
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3)82 
39S3 
33a4 

33es 

33S6 
33S7 
33«a 
339' 
3390 
33»l 
3392 
3393 
3394 
3395 
3396 
3397 
339« 
3399 
3400 
3401 
3402 
3403 
3404 

34e» 

3406 
3407 
3400 

3409 
3410 
3411 
3412 
3413 
3414 
341? 
3416 
3417 
3410 
341> 
3428 
3421 
3422 
3423 
3424 
S42S 
3426 
3427 
3420 
3429 
3430 
3431 
3432 
3433 
3434 
3439 
3436 



812604 
012606 
012610 
012612 

012614 
012616 
012622 
012624 
012626 
012630 
012632 
312634 
012636 
012640 
012642 
012644 
012652 
012696 
012664 
012670 



012674 
012700 
012702 
012706 
012710 
012714 
012716 
012720 
012722 
012724 
012726 



!!12644 
014296 

e000B0G 

012696 
313306 
J00167 
012600 
312601 
012602 
012603 
310146 
010046 
010346 
010246 
3(0134 
012769 
000167 
012769 
000167 
000167 



176490 



000000G 

177146 

000000G 

177134 

176224 



iNORO 
■ UOFlO 
,UORO 
,HORO 
,MORO 
JHP 
REVRSEI "OV 
HOV 
"OV 
HOV 
MOV 
MOV 
MOV 
MOV 
JMP 

000092 CAkOCI NOV 
JMP 

000092 CEXPl nov 

JHP 

CRRP04I JMP 



00016; 17*790 

112102 

122127 000299 

301372 

066902 000004 

?20604 

103764 

01120* 

001439 

010046 

304767 179664 



012732 012600 

012734 112002 

012736 100429 

012740 000302 

012742 192002 

012744 061902 



012746 022227 177779 
012792 0(1401 



ERRMXll JHP 

,ENDC 

CRRSXAI JHP 
PNrNI NOVB 
CHPB 
BNE 

too 

CMP 
RtO 
MOV 
BEQ 

PNSUAPI MOV 
JSR 

.IFNOr 
BCS 

.ENOC 

MOV 

"0V8 

BMI 

SHtB 

BISB 

400 



CAUOC 

PUSH 

INLR 

CEXP 

rPPHES 

OPRATOR 

(SP)»in0 

(SP)»,R1 

(SP)*i"2 

|SP)*|R3 

Rtl-ISP) 

R0,»(SP) 

R3,.(SP) 

R2|«<SP| 

*|R4)4 

•AL0S,R3SAVE(R9) 

FUNOK 

•CXP,K3StVE(R9) 

PyNOK 

EHRPOt, 

INOSTH 
ERRMIX 



ICiUU «L00 FUNCTION ON Ai "ESUtT TO fjc 

IPIIS" Loi:(»l ONTO STACK 

iCtLC S»LOG<A) 

iCAl; EXPtB»l,OG(t)), RESUUT TO FAC 



IROUTIME TO MEVERSE TOP 
IFLTPT NUMBERS ON STACK 



ERRSX9 

<RU*|R2 

(Rl)*l»iUPtR 

ERRSXA 

P0t(R»),R2 

SP,R4 

ERRP04 

(H21.H0 

ERRUFN 

R0, •(!!?) 

PC.EVAL 

SNOSTK 
FNSTR 



(SP)*|R0 

(H0)*,R2 

ERRAGl 

R2 

|R0)*|R2 

|R9),R2 



iIFnDF SNOSTH 

CMP (R2)i«,SVAR 

BEO ERRMXl 
lENDC 



IRP MOW CONTAINS THE DEF POU'TER, 



• RESTORE TkE OEF POir'TERi 

ICET THE VARIABLE FROM THE OEF, 



I IF THE OEF VARIABLE IS STRING AND 
|THE VALUE ISNT THEN ITS AN rRRO"i 



CMP 
BEO 



|H2)*)», SCALAR 
,»4 



SICL 


MACXll 


V021 


22«nAR«73 
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3437 


012794 


011202 






MOV 


|H2|,K2 


3439 


012796 


320604 






CMP 


SPiR4 


3439 


312760 


l(374J 






9L0 


ERRP04 


3440 


012762 


311246 






MOV 


IR2),i(SP) 


3441 


012764 


016922 


0(0(40 




MOV 


FAeitH9),(R2) 


3442 


012770 


011246 






MOV 


!R2I,»(SPI 


3443 


012772 


316912 


000042 




MOV 


FAC2(H5|,(1!2) 


3444 


012776 


?00430 






BR 


FNREPU 


3449 














3446 










.iFnof 


JNOSTH 


3447 








FNSTRI 


MOV 


2ISP)iH0 


3446 










M0V8 


("0)*|R2 


3449 










BMI 


EHRAGl 


3490 










SHAB 


R2 


3451 










BISB 


(R0)*|H2 


3452 










ADD 


(R9),H2 


3453 










CMP 


(R2)*,»,SVAR 


3454 










BNE 


ERRHXl 


3459 










CMP 


Z(R2)|«-1 


3456 










BEO 


■ *4 


3457 










MOV 


(R21iM2 


3458 










MOV 


(R2),H3 


3499 










MOV 


(SP)*,(R2) 


3460 










MOV 


RS.tSP) 


3461 










MOV 


R2,.<SP) 


3462 










MOV 


(R2),R2 


3463 










INC 


RJ 


3464 










BEQ 


FNNEUNL 


3469 










INC 


R3 


3466 










BNE 


FNOLNN 


3467 










MOVB 


1ISP)|(R2I« 


3468 










MflVB 


|bP)*,(H2) 


3469 










BR 


FNREPl, 


3470 








FNOLNNI 


MOVB 


(R3)»i(R2l» 


3471 










MOVB 


(R3),|R2) 


3472 










sua 


•2,R3 


3473 








FNNEWNLITST 


(SP)* 


3474 










MOV 


SP,R2 


3479 










INC 


R3 


3476 










BEO 


FNREPL 


3477 










SNAB 


R2 


3478 










MOVB 


R2,(R31* 


3479 










SUAB 


R2 


3480 










MOVB 


R2,(R3) 


3481 










,ENDC 




3482 














3483 


313000 


121027 


000243 


FnREplI 


Cmp9 


!H0),», Comma 


3484 


313004 


301007 






BNE 


FNNOCOM 


3485 


313036 


122021 






CMPB 


(R0)*llRl)» 


3486 


n3«0 


3B1745 






aeo 


rNSHtP 


3487 


013(12 


303167 


174716 


ERRAGtl 


JMP 


ekrar; 


3488 


013016 


000034 




ERRUFNt 


lOT 




3489 










.IFNOF 


(LONGER 


3490 


313020 


343129 


116 




.ASCII 


'UFN' 


3491 










,ENDC 





(STACK THE OLD VALUE AND REPLACE IT 
IHITM THt N£B VALUE 



IRESTOBE The OEF POl>TEH, 

IGET THE VARIABLE FHOM T"E OFF, 



I IF THE OEF VARIABLE IS NUHEOIC «N0 
iTHt VALUE ISNT THEN ITS A>] fRRO", 
I IF THE VAR ISNT A STRING SCALAR 

ITHE" 10 THIS, 

iRS >'0U CONTAINS THE OLD VALl'E', 
I0(H7) NOW CONTAINS THE 'IVJ VALUE, 
I0(5P) NOW CONTAINS THE OLD VALUt , 

ITOP(STK) IS A TEMP FOR VAB «OC)RtSS, 
|R? "OW CONTAINS THE NEW VALUE', 

IBRA'ICH IF THE NEW VALUE 15 "ULL, 

IBRA^XH IF THE OLD VALUE IS -O^'NULL, 
lOLO VALUE IS NULL, NEW IS HfT, SOI 
IMAKE AN ABS BACKPTR TO THE VAR, 
KTHF NEU VALUE IS NOW P«0TErTE01 
lOLO AND NEW ARE BOTH NO'iNULL SOI 
iPUT OLD BACKPTR INTO THE MEU VALUE, 

IGET RIO OF THE TEHP, 



I (CHECK NULL STRING!) 

iSET THE BACKPTR OF THE OLO "ALUE 

iTC ITS CURRENT STACK ADIRES?'. 



i*SICL 


>i«cxii 


V021 


22>HilR' 


3492 








34»3 








3494 








3495 


313023 


008 




3496 








3497 


313024 


121027 


000237 


3499 


013030 


001370 




3499 


313032 


310046 




3900 


013034 


122021 




3»ai 


013036 


001369 




3912 


013040 


122027 


000294 


3903 


013044 


001362 




3904 


013046 


010146 




3909 


013090 


310001 




3906 


013092 


•■)04767 


179940 


3907 


013096 


103402 




390a 


013060 


00900} 




3909 


013062 


000401 




3910 


013064 


012603 




391t 


013066 


121127 


000201 


3912 


013072 


001309 




3913 


313074 


012601 




3914 


013076 


1112600 




3919 


013100 


114046 




3916 


013102 


114066 


000001 


3517 


013106 


012602 




391» 


013110 


961502 




3919 








3920 








3921 








3922 








3923 








3924 








3929 


013112 


322227 


177775 


3926 


013116 


001401 




3927 


013120 


011202 




3928 


013122 


012662 


000002 


3929 


013126 


012612 




3930 


013130 


000414 




3931 


013132 


012612 




3532 


013134 


010046 




3933 


013136 


011200 




3934 


013140 


161502 




3939 


013142 


009202 




3936 








3937 








3938 








3539 








3540 








3541 








3542 








3543 








3544 








3949 








3946 
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.iroF 


SLONCEK 


.ASCII 
lENOC 
iBTTE I 


■!iNOE?lNEO FUNCTION' 


1 


.EVEN 




rNNOCOMICMPB 


|R0)l«,IIPAR 


9NE 


ERRAGl 


"OV 


RB,.(5P) 


CrtPB 


|I<0)*|IR1J* 


BNE 


ERRAGl 


CMPB 


(H0|»,«,CO 


9Ne 


ENRAC; 


HOV 


Rli'tSP) 


MQV 


R0|Rt 


JSH 


PC.EVAU 


BCS 


,♦6 


CI." 


R3 


BR 


,*4 


MOV 


(SP)*,R3 


CHPB 


(R1|,»,E0L 


BME 


ERRSXA 


MOV 


(SP)*,R1 


MOV 


(SP)«,R0 


FNRLUPt "OVB 


•|R0)l«ISP| 


MOVB 


•tR0lll<SP) 


MOV 


(SP)*,R2 


ADO 


(m).!l2 


,if-nof 


INOSTM 


CMP 


|N2),»,SVAR 


BEO 


FNRSTH 


,ENOC 




CMP 


(R2l*l«,SCAt.AR 


8E0 


,*4 


MOV 


|R2|iH2 


MOV 


I5P)*,2(R21 


MOV 


(SP)»,(R2) 


BR 


FNCHK 


rNRSSCI MOV 


(SP)*,(R2) 


MOV 


RBj.ISP) 


MOV 


|R2),H0 


SUB 


(H9|,H2 


INC 


RZ 


iirnor 


fNOSTR 


BR 


FNRCOli 


rNRSTRI TST 


(R2I* 


CHP 


2(R8l|i«l 


BEO 


FNRSS; 


MOV 


tR2|.H2 


MOV 


(SP)*,|R2) 


MOV 


R0l-(SP) 


MOV 


(R2)iH0 



lENOC 



iSICU 


MACXll 


V021 


22fHAR«73 
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3547 












3548 


013144 


009200 




fnrcomi Inc 


R0 


3549 


013146 


001404 




BEO 


FNRSNI/L 


3950 


013190 


000302 




SUAB 


R2 


3991 


013192 


110220 




MOVB 


R2,(Re)» 


3992 


013194 


000302 




SUAB 


R2 


3993 


013196 


110220 




MOVB 


R2i|RBI* 


3954 


013160 


012600 




FNRSNUUIHOV 


<SP)*,R0 


3959 


013162 


124027 


000295 


FNCHK 1 CHPS 


• (RB)l'il.PlR 


3596 


013166 


S01344 




BNE 


FNRLUP 


3997 












3998 








.IFnOF 


jnostk 


3999 








TST 


R3 


3960 








BEO 


FNNUKER 


3961 








MOV 


R3,.(SP) 


3962 








CMP 


R3,»177777 


3963 








BNE 


,♦6 


3964 








JMP 


SOPRAfR 


3969 








JNR 


STPRO 


3966 








,ENOC 




3967 












3968 


013170 


000167 


176076 


fnnumerijmp 


OPRATOR 


3969 








,EOT 




3970 













ICHECK NULL STRING 
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3S7t 
3»7Z 
3979 
3»74 
3S7» 
3976 
3977 
3S7» 
3S79 
39Sg 
3991 
3992 
39S3 
3984 
3999 
3996 
3997 
3999 
3999 
3999 
3991 
3992 
3993 
3994 
3999 
3996 
3997 
3999 
3999 



B13174 
013176 
913290 
913292 
913296 
913219 
013214 
013220 
013222 
013224 
013226 
013230 
013234 
013236 
013240 
013244 
013246 
013290 
013292 



souHcE riLt •» 



SUBROUTINE TIXUP' 



S12602 
205716 
901413 
305765 
001021 
016946 
1)04467 

e00009S 

214270 
J13306 

«004ig 

00976S 
091406 

999726 
994467 
00000(0 
913306 

000244 
909112 



S90042 
000li4 



00(940 



000(70 



rixupi Hov 

TST 

aeo 

TST 
SNC 

MOV 

JSR 
iWORD 
,HORD 
,UORO 
/ BR 
rixTSTI TST 
BEQ 
TST 
JSR 
,UORO 
,MORO 
riXCUJi CU8 
rixRETl JMP 



C*LLEO'b» JSR PC 

HATCHES TYPES fir 0(SP)|2(SP) AND FAC1(R9I irAC2(R9> 

R9,R1 UMUSES 

112 OESTROVtB 

R3,R4 UNUSE9 

R9 "U9T POllT TO USER AREA 

SP GOES N5 DEEPER ArTER JSR 
|SP)*l"2 
(SP| 

nxTsi 

rAei((i9) 

riXREi 

FAe2("»).«(SP) 

R4,rPPSAV 

JJR 

POP 

rppREs 
rixcLi 

rACl(K9) 
riXRET 
(SP)* 
R4,rPP5AV 

JJR 
FPPRES 



ICONO C0DES«N0NiERO HEANS FtOATlNS', 



iCONn cooEsm means intecer, 



<R2) 



iCfiNI CODES«NONiERO MEANS FLBATINC, 
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3609 
3601 
3602 
3603 
3604 
3609 
3606 
3607 
3609 
36C9 
3619 
3611 
3612 
3613 
3614 
3619 
3616 
3617 
3616 



013294 
013296 
013260 
013262 

013264 
913266 
013279 
013274 
013276 
013300 
0133112 
013394 



112102 
1004^7 
000302 
192192 

061992 

012209 

O2002T 17777S 

103492 

000261 

l!9929r 

099241 

390297 



I 
I 
1 

FLtNEI 



I SUBROUTINE 'FLINE' CAtLEO BV JSP PC 

FIMOS THE AODRFSS OF THE LINE NO 

REFERENCED a» (Rl| fi R2, 

IF THE S»MROL TABLE REFERENCE IS NOT A LINE "Oi 

SETS CARRY', ITMEHMISEi THE CARRY IS CLEAR, 

<Ht)t,R2 

F^E 

R2 

(Hl)*,H2 

(K5),H2 

(R2l*iR9 

RB,9, SCALAR 

FIX 



FLEl 
FLXI 



MOVB 

BHI 

SWAB 

BtSB 

ADD 

MOV 

CMP 

BLO 

SEC 

RTS 

CLC 

RTS 



PC 
P? 
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3619 








!*••••• 






3620 


1 ROUTINE ' 


rPPRESI CAULCD t" POLISH MODE 


3621 








1 




RESTORES RP TH»U R4 SAVED BY FPP^AV 


3622 








) 




AND RETURNS IN NORM»i. EXEC HOOE 


3623 


013306 


fl6500 


000044 


rp^RESi 


"OV 


R0SAVe(R5|,R0 


3624 


013312 


016S01 


00004« 




MOV 


RlSAVt(S5),Rl 


3625 


013316 


016522 


000090 




MOV 


R2SAVE(R5),R2 


3626 


013322 


016503 


000092 




MOV 


R3SAVi.lR5l,R3 


3627 


013326 


?16!«6 


000094 




MOV 


R«SAVi.(R5l,-<SPl 


362S 


013332 


000204 






"TS 


«4 


3629 














3630 














3631 








1 • ' >> 






3632 


1 routine'' 


rppsAV' CAtLEO B» Js« R4 " 


3633 








1 




SAVES R0 TURU R4i AND RETURNS IN 


3634 








1 




POLISH NODE 


363S 


013334 


010065 


000044 


rppSAVi 


MOV 


RB|R0!iAVE|R5) 


3636 


013340 


01016! 


000046 




MOV 


Rl,R15AVE(»5) 


3637 


013344 


010869 


000090 




MOV 


R2,R2SAVE<R5) 


3636 


013350 


210365 


000092 




MOV 


R3,R3SAVEIR5) 


3639 


013354 


!'12665 


000094 




MOV 


(SP)«,fl4SAVE(R5l 


3640 
3641 


013360 


000134 






JMP 


•CA)* lEKTfR POLISH HOOt 



ASICL 


MACXll 


y02i 
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16199 PAGE 46 






364! 
















3643 








1 eETlSYT IOE72BrTI • SET 9YTE 


OUT of KInC BiJffER USING 


3644 








1 SET 


POINTER 


1 (K2)i 




3645 
















3646 








1 CALLI 


•CBurr 


MDr, HASEJ.RI 




3647 










•CBASC 


orrsET or get ptr. i.h^ 


3646 










USR 


PC,CETBYT 




3649 
















3650 








1 USES 


R0lRti 


)2iK3 




3651 
















3692 








1 RETURN CHAR 


IN R0, 




3693 








1 'C 


BIT ISI 


CLR If char; OBTAINfO 


3654 
3695 












SET If BUFf, WAS 


EMPTY <N0 CHAR, ) 


3696 


013362 


012703 


000004 


OEtlBYTI"aV 


•BGET1.R3 




3697 


013366 


080402 






0R 


GETBYT 




3656 


013370 


012703 


000006 


GEf2BYTIM0V 


•SCET2,R3 




3659 


013374 


012702 


177776 


5ETBYTI 


MOV 


•PS,»2 


JSTATUS 


3660 


013400 


311246 






MOV 


(H2|,»(SP) 




3661 


013402 


^12712 


000340 




MOV 


•PR7,(H2) 


IHIOUEST PRIORITY 


3662 


013406 


060103 






AOO 


R1,R3 




3663 


013410 


321361 


000010 




CMP 


(R3|,BPUT(Rl) 


lANYTHING IN BUff? 


3664 


013414 


001412 






9E0 


ByrEMP 




3665 


013416 


113300 






HOVB 


•(R3)*iR0 


IGFT BYTE 


3666 


013420 


005243 






INC 


•(R3) 


)PT, TO NEXT BYTE 


3667 


013422 


J21361 


000002 




CMP 


(«3),BEN0(Rt) 


lUPAP AR0UN07 


3666 


013426 


101402 






BLOS 


NOHRP 




3669 


013430 


016113 


000000 




MOV 


BSTRT(H1),(R31 


|PT, TO NEXT BYTE TO GET 


3670 


013434 


!lt2612 




NOURPI 


MOV 


(SP|»,|R2) 


ISTHTUS BACK 


3671 


013436 


H00241 






CLC 




ISIG^'AL SUCCESS 


3672 


013440 


000207 






"TS 


PC 




3673 


013442 


012612 




8UPEHPI 


MOV 


(SP)*i(H2l 


ISTAYUS BACK 


3674 


013444 


300261 






SEC 




iSHO'^' fAlLURC 


3675 


013446 


000207 






RTS 


PC 




3676 
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3677 








3676 








3679 








3698 








3661 








3682 








3663 








3664 








3669 








3666 








3667 








3666 








3669 


313490 


010246 




3690 


013492 


004767 


177704 


3691 


013496 


103405 




3692 


013460 


016102 


000012 


3693 


013464 


903011 




3694 


013466 


012602 




3699 


013470 


01*207 




3696 


al3472 


B161B0 


00001Z 


3697 


013476 


001423 




3696 


013900 


il09061 


000012 


3699 


013504 


000261 




370g 


013906 


000767 




3701 


019910 


010046 




3702 


013912 


010200 




3703 


013914 


004767 


003064 


3704 


013920 


103001 




3709 


013922 


200000 




3706 


013924 


012600 




3707 


013926 


009061 


000012 


3706 


013932 


116902 


000077 


3709 


013936 


012772 


000101 013600 


3710 


013944 


000790 




3711 








3712 


013946 


116902 


000077 


3713 


013952 


032772 


004000 013600 


3714 


013560 


011003 




3719 


013962 


012772 


000101 013600 


3716 


013970 


000001 




3717 


013572 


004767 


000914 


3716 


013576 


700729 




3719 








3720 








5721 


013600 


177S60 




3722 


013602 


177590 




3723 









l< 



I SETCHAR . IIETURK » fHAB, IN M 0" "»'! U^TlU YOU C»N 

I CALLI XBuFr, HOR, HASEl.Rl 
I JSR PC|GEICH»H 

I USES >3i (R0iR1iR2I 

I RETURNS CHAR, |N R0 , .. 

I ir PAPER TAPE REAOtH tOT rOUNO, E«IT TO 'KEAOY', 

' r2i»(sp) 

P5,0EI18YT 

NOCHAK 

BrSPeCIRtl,R2 

XCHAR 

(|P)*,H2 

PC 

BFSPE?(R1),RP 

RLCNAU 

BFSPECIHU 



CETCHARIHgV 

CetCHll JSR 
BCS 
"OV 
BGT 

GETXI "OV 
RTS 

NOCHAR) "OV 

BEa 

cu« 

SEC 

BR 

"OV 

"OV 

JSR 

BCC 

"AIT 

"OV 

CtR 

HOVB 

"OV 

BR 



IMOTUINC THERE YET 

ICMECK If READER STOPPED 

10 0° • IS OK, 9R«>ICX IF CUA° 



iCHErK EOF 0" EXTRA CHAR 



XCHAR I 



CETX 

R0|<(!iP) 
R2,R0 
PC.PUTBYT 

I** 



I PUSH OLD CHAR 
IPOSITION «EXT 

IHARF SURE IT GOT INI 

IGCT BACK OLD CHAR 



iRE-FNABLE INPUT DEVICE 
I (CARRY IS CUEAR) 



(CHECK SUSY BIT 



|$P)4|R0 

BrspeeiRii 

|0EV(R9),RS 
•101>*)rAil(R2) 
CETX 
I RE«ENA8tE FROM A DEAO START 
REENA8I "0V8 IDEV(H9),RS 

BIT •0040B0i*lTAe(R2l 
BNE GCUAIT 
"OV •t01,»ITAB(R2) 
GCHAITI HAIT IHAIT FOR AN INTERRUPT 

JSR PCiIOHAlT IHASTE TIHE 

BR getch; 

I TASUE OF INPUI DEVICE STATUS REGISTERS 
ITABI .WORD TKS 
,H0R0 PHS 
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3724 

3725 

3726 

3727 

3728 

3729 

3730 

3731 

3732 

3733 

3734 

3735 

3736 

3737 

3736 

3739 

3740 

3741 

3742 

3743 

3744 

3749 

3746 

3747 

3746 

3749 

3750 

3791 

3792 

3793 

3754 

3799 

3756 

3797 

3796 

3799 

3760 

3761 

3762 

3763 

3764 

3769 

3766 

3767 

3768 

3769 

3770 

3771 

3772 

3773 

3774 

J779 

3776 

3777 

3776 



313604 010269 
013610 012702 



013614 

013620 
013624 
013630 
013632 



010269 

!<10269 
121127 
.^01041 
305201 



000022 

177777 

000024 
000026 

000299 



013634 304767 174796 



013640 
013644 
313690 
019692 
013660 
019662 
013664 
013670 
013672 
013676 
013700 



-.104767 
005765 
?01034 
016565 
100430 
112102 
120227 
?01421 
120227 
001017 
004767 



000237 
000249 
174712 



313704 004767 000074 

313710 JI09765 000040 

013714 001012 

019716 J16565 000042 

013724 100406 

013726 122127 000237 

013732 301001 

013734 000207 

013736 000167 175706 



J13742 000167 n'!«« 



'GETVAR' SUBROUTINE 

THIS SUBROUTINE »EAOS A vtRI4BI.E NAHE OR 

AN ARRAY ELEHENT, "NO ADDRESSES THAT 

VARIABUE IN CORE, SO THAT A SUBSEOUEMT 'STOVlR' 

CAUL "ILL STORE THE FAC IN THE VARIABLE, 

DESTROYS F»C1 ANP F4C2', 

CALLED BY JSR PC, GETVAR 

■ Rl POINTS TO THE CODE NA"ING THE VARIABLE 



0001*0 
000040 



00004Z 000024 



iEtVARI "oV 


r2iVAhsAV(r5I 


"OV 


•'liRi 


"OV 


R2,SS1SAV(R5) 


"OV 


H2,SS2SAVIR5) 


CMPB 


(K11,»,LPAR 


BNE 


NOSUBS 


INC 


Rl 


JSR 


PC,EVAL 


ilFNOF 


SNOSTH 


SCS 


ERRHX3 


,ENOC 




JSR 


PC, INT 


TST 


FACKHS) 


BNE 


ERRSSl 


HOV 


FAC2("5),SS1SAV(P5) 


SHI 


EHRSSi 


"DVB 


(H1)*|R2 


CHPB 


R2,»,HPAR 


BED 


NOSUBJ 


CHPB 


R2,»,C0HHA 


BNE 


ERRSX3 


JSR 


PCiEVAL 


,IFnOF 


INOSTH 


BCS 


ERRHX3 


,ENOC 




JSR 


PC.INT 


TST 


FACKHS) 


BNE 


ERRSS; 


"OV 


FAC2(R9),S32SAV<')5I 


BHl 


ERRSSi 


CHPB 


(Rl)»,»,RPAR 


BNE 


ERRSX3 


NOSUBSl RTS 


PC 


ERRSX3I JMP 


ERRSX9 


,|FNDr 


JNOSTH 


ERRnx3l JHP 


ERRHIX 


lEHDC 




ERRSSII JNP 


ERRSSi 
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3779 
3792 
37ai 
3782 
3783 
3784 
37B9 
37S« 
3787 
3788 
3789 
3799 
37»1 
3798 
3793 
3794 
379S 
3796 
3797 
3798 
3799 
3898 
3891 
398! 
3893 
3894 
3889 
3886 
3807 
3898 
3889 
3819 
3811 
3812 
3813 
3814 



913746 
913758 
913752 

013754 
913796 
313768 
913762 



^12293 
995722 

919322 
a9!722 
919322 
!>e5822 

999297 



813764 
913778 
813774 
913776 

914892 



916988 089916 
91272t 989225 

919915 

91996$ 989814 

399297 



iNiT8r - i<i:t, sufFtR »oi»s; 



CALL I "O" 



• (HOR, «D0l),:,n2 



uses >l2iR3 

LEAVES R3 POINTING To "ORO AFTEP LAST |N BUFF. MOD, 



NlTBn MQV (K2|«,R3 

TST (R2)» 

HOV R3,(R2)* 

TST (R21* 

HOV R3,(R2)* 

CLP (P21* 

PTS PC 



I9UFF, START ADOB, 
IPT, TO eOETl 

IPT, TO BPUT 

iBFS'Er 



INItsCr • sCrAtPM usEr Area 
CALL! JSR pCiIMITSCr 
USES R9 



ITSCRI"0« 

MOV 
HOV 
PTS 



C00E(R9I,R« 
•|E0F|IR9|« 
P9||R9> 

P9,L0FREE(PS) 
PC 
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3819 
3616 








1 SUSROUTINE 


MNT' CALLED 


a» JSP PC 


3817 












COMPUTES INTIFACI, CONVERTING THF RESULT 


3818 












TO A liWOPn INTEOEP. |F POSSIBLE 


3819 


914804 


916999 


880848 


INTI 


HOV 


FAC1(H5),H« 


IGET HIGH ORDER WORD IK "It, 


3828 


914018 


301452 






BEQ 


INTRTS 


lALPFAOY AN INTEGER 


3821 


914012 


904567 


003044 




JSP 


R5,SAVHEG 


iSAVr REGISTERS 


3822 


914816 


919991 






HOV 


PB,P1 




3823 


914028 


942799 


108177 




BIC 


•138177, RB 


(EXTRACT EXPONENT 


3824 


914024 


928027 


343289 




CMP 


R9,«40283 


(CHECK ABS VALUE < 1 


3825 


014030 


103473 






9L0 


INT7 




3826 


914032 


920027 


346898 




CMP 


P8,«46083 


(CHECX INTEGER BY TRUNCATION 


3827 


014036 


101037 






BHI 


INIRTS 


(YES, RETURN 


3828 


914040 


395002 






CLP 


R2 




3829 


314042 


162739 


043688 




SUB 


«43689|R3 


(CHECK MOPE THAN 19 PITS iNTrGER 


3839 


914046 


993934 






BOT 


INT5 


(YES, PPOOUCE FLT INT AN5HEH 


3831 


914050 


308331 






SUAB 


»1 




3832 


914052 


1950B1 






CL"B 


PI 




3833 


314054 


1565H1 


383843 




SISB 


FAC2*1(R5),R1 


(PI IS 16 BITS OF HA-4TISSA 


3834 


314060 


398791 


180898 




B|S 


•190980, PI 


(SET HIDDEN BIT 


3835 


314064 


380241 






CLC 






3836 


314066 


386091 






ROR 


PI 


(GET 1! BITS OF ABSOLUTE VALUE 


3837 


314070 


i»e5730 






TST 


P0 


(TEST ALREADY INTEGER 


3838 


914872 


392935 






BSE 


INT14 


(YES 


3839 


314074 


386231 




INtll 


ASP 


PI 


(SHIFT MANTISSA 1 RIGHT 


3840 


314076 


385592 






AOC 


R2 


(ADD CARPY BIT TO R2 


3841 


314100 


362799 


989280 




Aob 


•280, R8 


IIV'CPEXENT EXPONENT 


3842 


314184 


002773 






BLT 


INTI 


(LOC UNTIL DONE 


3843 


3141B6 


395765 


000040 


INTlAI 


TST 


FAei(K5) 


(ORICI«;aL NUMBER NEG 


3844 


314112 


199995 






9PL 


INT2 


(NO 


3849 


314114 


095702 






TST 


R2 


(ANY BITS iEROED? 


3846 


314116 


381492 






BEQ 


INTlB 




3847 


314120 


989231 






INC 


PI 


(ADJUST FOR NEGATIVE 


3848 


314122 


192447 






avs 


INT9 


lOVLRFlO" 


3849 


914124 


385491 




INTIBI 


NEC 


PJ 




3898 


914126 


910165 


309042 


INT2t 


MOV 


Rl,rA52(P>) 




3851 


914132 


395865 


380840 


INT2AI 


CL" 


rACl(H5) 




3852 


914136 


309297 




INTRTSI 


PTS 


PC 




3853 
















3854 


914140 


329927 


902298 


lNt5l 


CmP 


P8, 82290 


(CHErK Done 


3855 


314144 


382095 






8GE 


INT6 


(YES 


3856 


314146 


908261 






SEC 




(SET CARRY BIT 


3857 


914150 


306132 






POL 


P2 


(CPEATE PATTEPN OF BITS TO CLEAR 


3858 


314152 


362799 


399200 




AOO 


•200, KB 




3859 


914156 


300770 






BP 


INT5 




3868 


314160 


316990 


383042 


INT6I 


MOV 


FAC21Hi),H8 


(SAVE OLD FAC2 |M CASE NEG A»G 


3861 


314164 


343265 


383042 




BIC 


P2,fAf2(P5| 


(CLEAP SITS 


3662 


314170 


385769 


980040 




TST 


FACl("9) 


(CHECK NEG ARG 


3863 


914174 


109360 






BPL 


INTRT} 


(NO, DONE 


3864 


314176 


930290 






BIT 


R2,R8 


(CHECK EXACT INTEGER ALREADY 


3865 


914290 


391756 






BED 


INTRTS 


(YES, PETUPN 


3866 


914232 


384467 


399890G 




JSP 


P4,IP0LSH 


(NO, MUST SUBTRACT l 


3867 


914296 


314256 






,WOP0 


PUSH 


(PUSH FAC 


3868 


914219 


914392 






,NOP(J 


PUSHl 


(PUSH FLOATING 1 


3869 


314212 


388998C 






,HOPO 


SSBP 


(SUBTRACT 
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387e 


014214 


!!14270 




3671 


014218 


214136 




3»72 


014220 


J697SI1 




3873 


014222 


100403 




3S74 


014224 


^05065 


000042 


3675 


014230 


000740 




3876 


014232 


ai2769 


177777 


3877 


014240 


000734 




3878 


014242 


012769 


143600 


387y 


014250 


005069 


000042 


3880 


014254 


^00730 




3881 








3882 


014256 


016946 


000042 


3883 


014262 


016546 


000040 


3884 


014266 


000134 




388» 


014270 


012665 


000040 


3888 


014274 


312669 


000042 


3887 


014300 


000134 




3888 


014302 


005046 




3889 


014304 


212746 


040200 


3e»B 


014310 


9100134 




3891 








3192 








3893 








3894 








3899 








3898 








3897 








3896 








3699 








3916 








39BI 








3982 


014312 


009265 


000070 


3903 


014316 


105765 


0e01i!6 


3904 


014322 


001402 




3905 


014324 


000167 


164546 


3906 


014330 


005737 


000050 


3907 


014334 


(<0t4il2 




3908 


014336 


000137 


300050 


3909 


014342 


'300207 




3910 









080040 





,HOBO 


POP 




.wo«o 


INTRT5 


INT7I 


TST 


«1 




BMI 


INT8 




CL" 


r»e2(H5) 




BR 


|HT2« 


INTSI 


tov 


•177777, r»C2tR9| 




0R 


INT2»' 


INT9I 


MOV 


•143600, r*cl(R5) 




ct" 


r«C2(H5) 




BR 


:ntrts 


PUSHI 


H0» 


FAC2(H5),.(SP) 




HOV 


r»ci(H9),.(SP» 




JHP 


•(R4)* 


POPI 


HOV 


(SP)*,F»Cl(R5) 




HOV 


(SP)»,F*C2<R5) 




JMP 


•|R4)4 


PUSHI 1 


CLR 


-(SP) 




MOV 


•40200, -ISP) 




JHP 


•(R4I» 



iPflP »NSHE" TO FiC 

lANO RfTURN (OUT oF POLISH HpOE) 

liPSIARC) < 1 

I IF ♦ THEN ANS IS Jl 

I IF . THEN ANS IS -l 



I Ioll»IT • «»STt TIMe TILL NEXT INTtPRUpT 



I 

I CAUL I JSR 

I 

lOW^ITt INC 

TST8 
BEQ 
JHP 
UTRtTI TST 
BCQ 
JHP 
RTS 



PfllOHAlT 

rNOCTIrS) 

CNCri6<R5l 

WTRET 

RCAOV 

••50 

.*» 

••50 

PC 



ICHCCK HAIT UOOP AODR 
ISPECUL WAIT ROUTINE 
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3911 








3912 








3V13 








3914 








3919 








3916 








3917 








3918 








3919 








3920 








3921 








3922 








3923 








3924 








3V25 


B14344 


304567 


302912 


3926 


014350 


116530 


300077 


3927 


014354 


316001 


314460 


3928 


014360 


309700 




3929 


014362 


001002 




3930 


014364 


360901 




3931 


014366 


311131 




3V32 


014370 


:'16532 


300B2B 


3933 


314374 


720265 


330020 


3934 


314400 


301401 




3935 


314402 


B053O2 




3936 


014404 


304767 


177040 


3937 


314410 


103031 




3936 


014412 


3BB237 




3939 


014414 


110012 




3940 


014416 


304367 


173602 


3941 


014422 


360752 




3942 


314424 


300237 




3943 


314426 


300762 




3944 


314430 


300765 




3949 


014432 


305232 




3946 


014434 


a20265 


300016 


3947 


014440 


103761 




3948 


014442 


304167 


3O1B20 


3949 


014446 


019 


012 


3950 








3951 


314450 


392114 


114 


3952 








3953 








3954 








3955 








3956 


314455 


015 


012 


3V57 


314455 


000 




3958 








3959 


314456 


:'00744 




3960 








3961 








3962 


314460 


300132 




3963 








3964 


314462 


."21242 




3»65 









I I.IH6ET • -EDIT A UINt INTO LINE 81IFFE0 USING CETCHAR 



I CAULI USER AREA BASE INTO r9 

I JSR PCiLINOET' 

I 

I PRESERVES ALL REGISTERS 

I 

I RECoGNIiES <•' ANO <RUB 0UT> 

I ANO "U' FOR LINE DELETE! <C 

I THROWS AHAT ALL OTHERS BELOW 

I ASCII 137, 



fqp "u" out »N0 <ALT MoOO 
»> AS LINE TERhI'IATOR, 
ASCII 40 ANO ABOVE 



LINOETI 
LINAI 



JSR 

M0V8 

HOV 

TST 

BNE 

ADO 

MOV 

LlNEINl "OV 

LINRUBI CHP 

BED 

DEC 

DOCHARl JSR 

BCC 



GOtONEI 



RTS 

MOVB 

JSR 

BR 

RTS 

BR 

BR 

INC 

CHP 

BLO 

JSR 

,B»TE 

iIFNDF 

, ASCII 

,ENOC 

,IFDF 

, ASCII 

.ENOC 

,8YTE 

,BYTE 

,EVEN 

8R 



r9,s4vrEC 

I[IEV(H9),Hli| 

TAB3(R0),K1 

RO 

LINEIN 

R»,R1 

IRl)."t 

LlNEtH5),R? 

R2,LINE(R51 

OOCHAH 

R2 

PCiGETCHAR 

GSTONE 

P? 

R0l|R2) 

R3,CHKCHR 

LINA 

PC 

LINRU8 

OOCHAK 

R2 

R2,C0UE(R») 

OOCHAK 

R1,NSGERR 

CR.LF 

SLONGtR 

'LTL' 

S^ONGlR 

'LINE TOO LONG! 

CH.LF 



LINEIN 



IS'VF REGS', 

ICUHO, INPUT OEV, CODE 

iTO SELECT DEV'i 



IJSE" RASE 

IHAVF USER BUFF, HOR, 



lOPN'T RUB OUT TOO HUGH 



lOON'T COHE HACK 'TILL »5U G'^T O'iE 

(IWOtCATt INCOHPLETE LINE IC4RRY SET) 

iPUT HFR IN 

(RFTURN EXEC, ONE OF NEXT FIVE L'CS, 

)IF LINE OELtTt 

lOONF (<CR>) (CARRY CLEAP) 



IMFA'IINOLESS CHARS; 

IGOO"! CHAR, 

(CHECK LINE SPACE OVEPFu»w 



« KBHD 
,1FN0F JNOPTP 
♦ PHBFHO 
,ENOC 



UASICL Htcxil V221 22in<K-79 t6!e9 PtGC 93'1 
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3967 








3«66 








3969 








397B 








3971 








3972 








3973 


314464 


809000 




3974 


014466 


809069 


000040 


3975 


314472 


889869 


800042 


3976 


814476 


121327 


800232 


3977 


314502 


801484 




3978 


014504 


121327 


000234 


3979 


814910 


801002 




3990 


014512 


809100 




3981 


014514 


389283 




3982 


814516 


122327 


380375 


3983 


014522 


381416 




3984 


814524 


124327 


888374 


3985 


014530 


801484 




3V86 


814532 


122327 


888376 


3987 


814536 


?014a6 




3988 


314548 


880287 




3989 


814542 


385283 




3990 


814544 


112369 


800041 


3991 


014590 


112365 


808848 


3992 


314994 


112365 


038343 


3993 


014560 


112365 


388842 


3994 


014564 


H8578B 




3995 


814566 


381411 




3996 


814578 


805765 


800040 


3997 


014574 


301083 




3998 


014976 


809469 


800042 


3999 


014682 


880483 




40e« 


314604 


862765 


180000 


41181 


014612 


862716 


800002 


4882 


014616 


^00207 




4883 









'LITEVAU' 



I. 

I 

I 

( 

I 

I 

LITEVAUICLR 
CLB 
cud 
CMPB 

eeo 

CMPB 
9NE 
COM 
UevPLUSIINC 
LEVLITl CMP8 
BES 
CMPB 
BCO 
CMPB 
BEO 
RTS 
tEVFLTI INC 
MOVB 
MOVB 
LEV2LTI MOVB 
LEVlLTl Move 
TST 
BES 
TST 
BNE 
MEC 

UEVFNECIAOO 

LEVPOSI AOO 

UTS 



SUBROUTINE 

CALLED BV JSP PC.LITCVAL 

Ri POINTS TO TME cobr 

THIS SUBROUTINE IS CALLED TO EVALUATE 4 

LITERAL IN THE C'>OE, 

R0 

FACl(HS) 

rAC2(HS) 

(H3|,«|PLUS 

LEVPLUS 

(H3),i, MINUS 

UEVLII 

R0 

R3 

(R3)*,«,ILIT1 

LEVILI 

'(R3)i»,rLIT 

LCVFLT 

(«3)*,«,ILIT2 

LEV2LI 

PC 

R3 

(H3)*|FACl4.1(R9) 

<H3)«|FAC1(R5I 

(R3)*,FAC2*1(R5) 

tK3)*|FAC2(R9) 

R0 

LiVPOS 

FACKHS) 

LEVFNfcG 

FAC2(R5| 

LEVP05 

• 100008, FACKR!) 

«2i(SPI 

PC - 
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4014 
4BB9 








t SUBROUTINC < 


UOCSETl C»ll£0'b» jSB PC 

■ GETS LOC Or'ELrHENT IN APHtY (CHECKS SUBSCRIPTS 


4(et 








1 




4007 








1 




"0 MUST CONTAtN SSI SETS OESTROVEO 


40ea 








1 




Rt UNUSED 


4009 








1 




R2 MUST P(1|1T TO VAR SETS SET T» "ESUUT 


40i0 








1 




R3 MUST CONTAIN SSJ CETS OCSTROTED 


4011 












R4 UNUSED 


4012 








1 




RS "UST POI'iT TO USER AREA 


4013 








1 




SP GOES 7? nEEPtR AFTER JSR 


4014 


014620 


321227 


177779 


uoecETi 


CHP 


(R2)»»,SCAtAP 


4019 


314624 


001403 






ecQ 


tOCALOC 


4016 


014626 


309762 


300004 




TST 


4(R2) 


4017 


014632 


100019 






acL 


uoessi 


4016 


314634 


310246 




L0CAI.OCI"OW 


R2,.<SP) 


4019 


014636 


310446 






nov 


R4,.(SP) 


4020 


014640 


310346 






nov 


R3,.<5P) 


4021 














4022 










.IfNOF 


5N0STR 


4023 










JSR 


P5,0NPACK 


4024 










,ENDC 




4029 














4026 


014642 


01270J 


000112 




MOV 


•12|»« 


4027 


014646 


011604 






MO" 


ISP),K4 


4020 


014690 


100401 






BMl 


,** 


4029 


014692 


?10304 






MOV 


R3,R4 


4030 


014694 


304767 


172676 




JSR 


PC,AII,0C 


4031 


014660 


012603 






HOV 


(SP)*,R3 


4032 


014662 


012604 






NOV 


(SP)*|R4 


4033 


014664 


312602 






MOV 


1SP)»,H2 


4034 


014666 


020062 


000004 


LOCSSII 


CMP 


R»,4tN2l 


4039 


014672 


101040 






BHI 


EKRSS3 


4036 


014674 


00970] 






TST 


PJ 


4037 


014676 


100427 






BHI 


l,0CN02 


4030 


014700 


309762 


300006 




TST 


6(R2) 


4039 


014704 


100433 






BHI 


EHRSS3 


4040 


014706 


320362 


000006 




CMP 


R3,6(i<2) 


4041 


314712 


101(30 






BHI 


ERR$S3 


4042 


014714 


016246 


000004 




HOV 


4(R2),»<SP) !•••• 


4043 


014720 


009216 






INC 


(SP) m . 


4044 


014722 


310346 






MOV 


RJ,.(SP) 14 . 


4049 


014724 


312746 


300020 




MOV 


•20, -(SP) )• • 


4046 


014730 


306333 




LOCLOORIASt 


R? 14 • 


4047 


014732 


306366 


300032 




4Sk 


2|SP) 14 • HYULTIPUT SS2 BT SSINAX 


4048 


014736 


103032 






BCC 


,♦6 l» • RESULT IN R3 


4049 


014740 


366633 


300004 




400 


4(SP)|R3 14 • 


4090 


014744 


009316 






DEC 


(SP) 14 • 


4091 


014746 


00337) 






BCT 


LOCLOOP 14 • 


4092 


014790 


022626 






CMP 


(SP)«|(SP)* 14 • 


4093 


014792 


309726 






TST 


(SP)* U«t. 


4094 


014794 


360300 






•ob 


««|RB 


4099 


014796 


309200 




l0eN02l 


INC 


RB 


4096 


014760 


006300 






*SL 


RB 


4097 














4090 










.IfNOF 


SNOSTK 
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4099 
4060 

4061 
4062 

4063 014762 006300 

4064 014764 016232 300002 
4069 014770 360032 

4066 314772 000237 

4067 314774 300004 
4066 

4069 314776 347923 102 
4070 
4071 
4072 
4073 

4074 319001 000 
4079 
4076 
4077 





CMP 


(H2),»,SV»R 




SEQ 


.♦4 




,ENOC 






ASt 


R0 




MOV 


2(n2)|R2 




ADD 


RB,R2 




RT5 


PC 


ERRSS3I 


lOT 






.IFNOF 


SkONCER 




.ASCII 


\SOB\' 




,ENOC 






.IFDF 


SI,ONGeR 




.ASCII 


'sgasfRiPT OUT of nouNns' 




.ENOC 






,8»TE 






.EVEN 






.EOT 





SICL 


H4CX11 


V021 


22«H«K«73 


16109 PACE 56 














1 

1 *«•«■• 






SOURCE, FILE l7 




1 suBRouriNE 


aSTPROS' C«UEI 


BV J5» PC 










1 




LISTS 


THr USER PROGRAM THROUCH '•U 










1 






»0 - R4 OESTROYEO 










1 




R9 MUST POIWT TO USER ARE* 










) 




SP (!OES ?» lEEPER ArTER JSR 




aimt 


916501 


999916 


LSfPROCIHOV 


CO0E(HS),Rl 






eiieet 


112192 




t.StLOOPI"OVB 


(Ht)*,R2 






815010 


902142 






ecE 


USTPTM 






ai?0l2 


129227 


999201 




CMPB 


R2,t,lOL 






01!01« 


001444 






SEO 


LSTEOi 






015020 


120227 


000229 




CMPB 


m,t,tor 






315024 


001001 






ONE 


1** 






015024 


000207 






»TS 


PC 






015030 


120227 


000374 




CHPO 


Riii».ai7 






315034 


103064 






SHIS 


tSTSPtC 






015036 


942792 


177400 




aic 


»1774»0,R2 






015042 


010793 






MOV 


P!,R3 






315044 


062703 


163340 


IStPCI 


too 


•KETHOS-LSTPCi 


R3 




015050 


010304 




usrsncMiHov 


R3,R4 


|R4 IS START OF KEYUORO 




019092 


112390 






NOVO 


(R3)*|R0 






015094 


100376 






BPL 


I'Z 


(LOOP TILL OtT ENO KEYUORO 




015096 


120002 






CMPB 


RB,R2 


ICOMPARE V«U'JES 




019060 


001373 






SNE 


LSTSRCH 






019062 


112400 




LSTKWOI 


MOVB 


(R4)*|R0 






019064 


100403 






9HI 


LSTCHK 






015066 


004767 


001604 




JSR 


PS.PUICHAH 
iftKWO 






915072 


900773 






BR 






015074 


124127 


000211 


LSrCMKI 


CHP9 


•|Rl)l«|XEXT 






015100 


001410 






BCO 


USTNBXT 






015102 


122127 


000262 




CHP9 


(Rll*i«,rN 






015106 


001337 






BNE 


LSTLOOP 






019110 


112100 




LSTFNI 


MOVB 


(H1|»,H0 






015112 


962700 


000200 




too 


• IA*'A>2,R)I 






019116 


906000 






ROR 


RO 






015120 


909427 






BR 


LSTCHAR 






019122 


962701 


000013 


USTNEXTIAOO 


«i3,Rl 






019126 


900727 






BR 


LJTLOgP 






019130 


111192 




USTCOLI 


MOVB 


(Rl».'<2 






019132 


100010 






SPI. 


tSTLIN 






019134 


120227 


000225 




CMPB 


R2,»,kOr 




4120 


019140 


901015 






BNE 


I.STBS(,H 




4121 


019142 


904167 


999394 


IStCRLFIJSR 


RliMSOOOEV 




4122 


019146 


915 


012 


000 


.BYTE 


CR,UF,0 




4123 




915192 






lEVEN 






4124 


019192 


900719 






BR 


USTUOOP 




4125 


019194 


000302 




LStLINI 


SN«8 


R2 




4126 


019196 


009291 






INC 


Rt 




4127 


019160 


191192 






B|S8 


tRt),R2 




412B 


919162 


909391 






DEC 


Rl 




4129 


919164 


9619S)2 






too 


IR9|,R2 




4130 


019166 


921227 


177775 




CMP 


(K2)i«, SCALAR 




4131 


019172 


103763 






BLO 


LSTCRLF 




4132 


019174 


012790 


900134 


UStBSUHIHQV 


«'\.R0 





UTCUAR' 
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4133 

4134 
4135 
4136 
4137 
4136 
413» 
4140 
4141 
4142 
4143 
4144 
4145 
4146 
4147 
4148 
414y 
4150 
4151 
4152 
4153 
4154 
4155 
4156 
4197 
4156 
415» 
4160 
4161 
4162 
4163 
4164 
4165 
4166 
4167 
4168 
4169 
4170 
4171 
4172 
4173 
4174 
4175 
4176 
4177 
4176 
4179 
4180 
4181 
41B2 
4193 
4184 
4189 
4186 
4187 



019200 
919294 
919296 
015212 
915214 
019220 
019222 
019224 
915226 
319230 
919234 
919236 
919242 
919246 
919290 
919254 
915260 
315264 
019266 
919272 
019276 
919392 
919306 
319312 
919316 
319320 
019322 
315324 
915330 
919332 
915334 
915336 
915342 
015346 
919390 
915354 
915360 
915362 
915366 
915372 
919400 
319494 
919410 
915412 
915416 
915422 
915426 
315430 



904767 
900700 
129227 
Z91425 
120227 
103406 
901412 
112190 
301667 
004767 
B09773 
195065 
112165 
990494 
112165 
112169 
905065 
>109410 
U2165 
112165 
112165 
112165 
904767 
900167 
^00392 
152192 
961992 
921227 
103030 
911292 
902405 
910265 
909065 
300414 
1192*5 
105065 
300392 
110265 
109069 
362769 
904767 
912790 
309673 
116290 
994767 
116290 
901492 
304767 



001472 
900374 
909376 



999043 
909042 

999043 
999042 
999040 

909041 
999040 
300943 
900042 
909434 
177470 



177775 



000042 
900040 

999043 
999042 

900040 
000041 
943600 
000342 
000040 



991254 
999011 



901242 



915434 "00726 



lstcharijsr 

BR 
LSTSPECICMPB 
BEQ 
CMPB 
BLC 
BEQ 
LStTEXTIMOVB 
BEO 
JSR 

LSTILII CLRB 
MOVB 
BR 

LSTa2l MOVB 
MOVB 

ISTILBI CUR 

LSTFLITIMOVfl 

MOVB 

MOVB 

MOVB 

LSTFLBI JSR 

LSTJMPI JMP 

LSTPTRl SWAB 

eiSB 

AOO 

CMP 

BHIS 

MOV 

BLT 

MOV 

CLR 

BR 

USTLNOI MOVB 
CLRB 
SUAB 
MOVB 
CLRB 
000040 too 

LStLNXt JSR 
MOV 
BR 

LSTVARI MOVB 
JSR 
MOVB 
BEG 
JSR 

,1F0F 

BR 

lENOC 

,IFNOF 

CMP 

BNE 



PflPUTcHAR 

LSTLOOP 

R2i«,FLIT 

LSTFLIT 

R2,«,ILIT2 

LSTILl 

LSTIL2 

(Rl)«rR0 

LSTLOOP . 

PC,PUTCHAR 

LSTTEXT 

FAC2»liR5) 

(R1)»|FAC2(R5) 

LSTILS 

(R1|*,FAC2*1(R!1 

|Ht)*|FAC2(R9) 

FAC1(R5) 

LSTFLB 

(R1I»|FAC1*1(R5) 

(Rl|*lFACl(R5) 

|Hl)»|FAC2*ltR5) 

(Rl)*lFAC2<R5) 

PPlNUMOUT 

LSTLOOP 

R2 

(Htl4.,H2 

(R5),"2 

tR2)|P, SCALAR 

LSTVAH 

1R2I|K2 

LSTLNO 

R2lF4C2|R9| 

FACKHS) 

USTLNX 

R2,FA52*1(R5) 

FAC2(H5) 

R2 

R2,FAfl(R9| 

FACl*l(R5) 

•4360B|FAC1(R5) 

PC,NUMOUT 

II8L|R0 

LSTCMAR 

10(R2I.R" 

PflPUICHAH 

11|R2!,'<P 

1*' 

P5,PUICHAR 

SNOSTK 
LITJMP 

INOSTR 
|R2)i>,SVAR 

LSTJMP 
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4tse 

41S9 

419« 
41>t 



MOV CtiRa 
,ENOe 



etStCU HACXtt vest 22<M»H>73 

4192 
4193 

4194 
4199 
419« 
4197 
4198 
4199 
42B> 
4211 
4212 
4289 
42114 
420$ 
42B6 
4207 
42gg 
4209 
• 210 
4211 
4212 
4213 
4214 
4219 
421$ 
4217 

42ia 

4219 
4220 
4221 
4222 

4223 
4224 

422S 
4226 
4227 
4228 
4229 
4230 
4231 
4232 
4233 
4234 
4235 
4236 
4237 
4238 
4239 
4240 
4241 
4242 
4243 
4244 
4249 
4246 
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■IFNor tNOSTH 



SUBROUTINE 'M4KE5TH' CA(,LCO BV JSR PC 

H4KES t 0»SiC STHINO TROM « STRI"C Or cmRiCTERS 
R0 OESTOOVE" 
UNUSFD 
MUST POI"T TO « "ORO "H|CH CONTAINS 3 LtsS 

'HiN THE AOD"ESS C THE rlRST CHARACTER 
OESTPOVtl 
UNUStO 

HUST P011T TO UStR AREA 

ON EUTRT 0(SI'| MUST CO>IT»IN • CHARACTERS 
ON EXIT ?(SP) CONTAIVS POINTER TO THE STRI'JG 
PC.MAKCTRr iWILL NEU STfJNS FIT? 
HAKCOT I YES 

PCiONPACK (NO, GARRAOE COLLECT 
PCiMAKETRY I TRY AOAIN 
HAKOOI (FIT'! THIS TINE 



Rl 
R2 



R3 



R9 
SP 



HAXESTRIJSR 
9L0S 
JSR 
JSP 
BLOS 

ERRSOVI lOT 

iIFNOF 

.ASCII 

lENOC 

iIFOF 

.ASCII 

.ENOC 

.BYTE B 

.EVEN 

HAKCHKt JSR 
BHI 

MAKCOTI "OV 
HOV 
MOV 

too 

"0V8 

CMPB 

"OVB 

DEC 

8GT 

"OV 

HOVB 

SUB 

"OV 

TST 

"OVB 

SWAB 

"OVB 

OEC 

"OV 

RTS 



SLONCER 
\SSON 



tl,ONGER 

'STRING ST8RAGF nVEHFLlK' 



PCHAKETRY 

ERRSOV 

R0|HISTR(R!) 

aispiiSB 

(R2)iK2 

• 3,R2 
R0l(R3l* 
|H3)«|(R3)+ 
<H2)*,(R3)» 
R0 

• •4 



iSAve ME" HIGH STRING AOOR 
|R? "OW CONTAINS t CHARS, 

PR? "OU CONTAINS ArJORESS OF CHARS, 
IR3 PUTS CHARACTERS !N 



21SP),R0 

R0llR3) 

RBlRS' 

SP.RB 

(R0)* 

R«,>(R3) 

R0 

RBl»(K3) 

R3 

R3,2(SP) 

PC 



I SUBROUTINE TO ChECk ROOM E^'0"GH FQR STRING 
"AKETRYIMOV H|$TR|R9)iR0 

"OV R0,R3 

ADD 4I3P)|R0 
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4247 
4246 

4249 

4290 
4251 
4292 
4253 

4254 
4255 
4256 
4257 
425e 
4259 
42«il 
42«t 
4262 
4269 
4264 
4265 
4266 
4267 
4268 
4269 
4278 
427t 
4272 
4273 
4274 



819436 



8194 
8154 
8194 
8194 
8194 
8194' 
8194' 
8194 
8194< 
8194< 
8194< 



818346 
818446 
886384 
886183 
886384 
806183 
862684 
889583 
362683 
886384 
88618} 

a8e287 



too 
Chp 
«rs 

iCNOC 



Ri.HtrRceiRS) 



1 SUBROUTINE 


'HrTTEN" called BV JSP PC 




"yUTlPLIES R:<,P4 B» 3ECIm»l 18 




'>8,R1|R2 unused 




R3,R4 IS THE 32 BIT UNSIO'IEO INTECtP TO HULTPLY 




R5 UNUSED 




5P GOES 4 DEEPER AFTEo JSP 


MPYTENI "OV 


R3,.(SP) 


HOV 


"4, .ISP) 


»si, 


R4 


"Ot 


"J 


4SL 


R4 


ROL 


R9 


too 


(SP1*,R4 


<0C 


«? 


«00 


(SP)*,R3 


• SI. 


R4 


"Ok 


Rj 


RTS 


PC 



SICL 


MACXll 


V821 


22.H4R. 
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4275 












4276 








1 MSe • OUTPUT 


A LINE TO TTY 


4277 
4278 
4279 








1 MSGOBEV . OUTPUT A LINE TO CUR», O'lTPUT DEV, 








1 CALLI JSR 


RliHSI> (HSeoOEV) 


4288 








1 .ASCII 


"SMESSAOEJ" 


42S1 








1 ,BTTE 


8 


4282 








1 ,EVEN 




4293 










IRETURN HERE 


4284 












4285 








1 USES R8 




42B6 












4287 








1 SET UP tlNE 


WITH NUM8EH O^ RYTES TERMINATED 


4288 








) BY A BYTE OF 808. 


42S9 












4298 








hsgerri 




4291 








.IFNOr 


SLONCER 


4292 


81^466 


112788 


080849 


HOVB 


<IX|R8 


4293 


815472 


088481 




8R 


MSOCOM 


4294 








lENDC 




4295 


815474 


112188 




«SOI HOVB 


IR1)*|R8 


4296 


319476 


109865 


888187 


hsgconi clrb 


CN0FL&(R5I 


4297 


815582 


016546 


888834 


HOV 


C0LUHN(R5),.(SP) ISAVt FOR TEH 


4298 


815586 


?12766 


888836 


888834 MOV 


•CLNNTTY,C0LUMN(Q5) 


4299 


815514 


i)68565 


388834 


ADO 


R»,C01,UI1N(R5) 


4388 


815528 


888484 




BR 


FRSTOyt 


4381 


815522 


316946 


888834 


MSGOOEVIMOV 


C0tUHN(R9),.(SP) 


4382 


815526 


112108 




DOMSCI HOVa 


(Rl)*,R0 


4383 


815538 


80148] 




9E0 


LINOUN 


4384 


815532 


B84767 


801148 


TRSTOUTUSR 


P?,PUICHAR IPUT CHAR, TO 


4J85 


815536 


388773 




BR 


OOHSG lOO "EXT CHAR 


4386 


315548 


885281 




LINOUNI INC 


Rl ITO INSURE RETURN ON 


4387 


319542 


386281 




ASR 


R} 1 EVEM WORD BOUNDARY 


4388 


315944 


306381 




ASL 


"l 


4389 


315946 


312665 


080034 


HOV 


(SP)*,C0LUHN(R9) 


4318 


819952 


388231 




»TS 


"1 


4311 
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tlXZ 
4313 








.............. 

1 SUBROUTINC 


INONN' NORMAL|i''S iMTEeFR CONTAINED IN 


4314 








1 




R3 AND R4, MULTIPLIED BY EXPONENT 


431S 








1 




IN R2, kHfvrtI IS IN R3, R4, 


4316 








1 




CALLED 8V JSR »C 


4317 


319554 


ai2746 


000237 


NORMI 


"0» 


•237,<ISP| 


4316 


B19569 


009703 






TST 


R3 


4319 


315562 


201413 






Be9 


LITTSI 


4320 


1115564 


100003 






BPL 


LITNORM 


4321 


015566 


006003 






ROR 


R3 


4322 


al597( 


006004 






RQR 


R4 


4323 


B19572 


a092l» 






INC 


ISP) 


4324 


B15974 


030327 


040000 


UltNORMIBIT 


R3,«40000 


4325 


ai96E<g 


00101) 






BNE 


UlTOK 


4326 


(I1961'2 


706304 






4SL 


R4 


4327 


^15684 


:*06103 






ROl, 


R3 


4329 


315606 


009316 






DEC 


(SP) 


432< 


01561« 


000771 






BR 


LITNOMM 


4330 


015612 


0B9704 




UITTSTI 


TJT 


R4 


4331 


019614 


001367 






BNE 


LITNOHM 


4332 


015616 


009726 






TST 


(|P|* 


4333 


01562a 


000207 






RTS 


'C 


4334 


015622 


009702 




iiroKi 


TST 


R2 


433!» 


015624 


001429 






BEO 


tITSTO 


4336 


019626 


100416 






BMI 


tlTOIV 


4337 


01563e 


006203 






«SR 


R3 


433B 


015632 


006004 






ROR 


R4 


4339 


015634 


00620] 






4SR 


R3 


434B 


015636 


006004 






ROR 


R4 


4341 


015640 


306203 






»SR 


R3 


4342 


015642 


006004 






RQR 


R4 


4343 


015644 


006203 






<SR 


R3 


4344 


019646 


006004 






ROR 


R4 


4345 


019650 


062716 


000004 




ADD 


»«i(SP) 


4346 


015654 


004767 


177996 




JSR 


PC.MPTTEN 


4347 


015660 


009302 






DEC 


R2 


434a 


015662 


000744 






BR 


LITNOHM 


4349 


015664 


004767 


172570 


LItOIVI 


JSR 


PC.OIVTEN 


4398 


019670 


009202 






INC 


R2 


4351 


019672 


000740 






BR 


LITNOHM 


4392 


019674 


006203 




LltSHR) 


»SR 


R3 


4353 


015676 


006(04 






RQR 


R4 


4394 


019700 


030327 


177000 


tItSTOI 


BIT 


R3, 0177000 


435S 


019704 


001373 






BNE 


UlTSHH 


4356 


019706 


009716 






TST 


ISP) 


4357 


019710 


003002 






BSt 


,«6 


435* 


019712 


012716 


000001 




ROV 


•llISP) 


4359 


019716 


021627 


000377 




CMP 


(SP),»377 


4360 


019722 


101402 






BUOS 


,.6 


4361 


019724 


012716 


000377 




MOV 


•377, (SP) 


4362 


019730 


110366 


000001 




HOVB 


R3,1(SP) 


4363 


019734 


l<12603 






MOV 


<SP)*,H3 


4364 


019736 


000303 






SU4B 


R3 


4369 


019740 


?06003 






ROR 


R3 


4366 


019742 


306004 






ROR 


R4 
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4367 019744 000207 
4360 



16109 PACE 99.1 

RTS PC 



atSlCL HACXtl 132i 22«M>R>73 16IB9 PACE 60 



436? 

4970 








1 'NunoUT' SgBHOVTlNt 


437X 












C»UUEO BY JSP PC.NUMOUT 


4372 












OUTPUTS >N UNSIGHEO "JIJMSER FMOM THE FAC 


4373 












VI» THE SUBROUTIME PUTCHAH', 


4374 


315744 


il04567 


301110 


NUMOUTI 


JS» 


P»,SAVREO 


4375 


015752 


i'12701 


016674 




MOV 


•PUTCHAR.Nl 


4376 


015756 


300443 






8R 


NgMSTi 


4377 














4376 
4379 
4360 




















l" 'NUMSOn! SUSROUTlNt 


4361 












C4LUEM BT JSP PC.NUMSGN 


4962 












',MORD OUTPUT 


4363 












WHERE OUTPUT IS THE OUTPUT ROUTINE, 


4984 












WHICH MAT BE PUT^HAR OR SAVCHAR, 


4969 












OUTPUTS A SIGNED NUMRER FROM THE 


4366 












FAC VJA THE OUTPUT HOUTINE, 


4367 


015760 


017400 


330000 


NUHSGNt 


NOV 


•1SP),R0 


4366 


015764 


042716 


033002 




too 


•2,|SP) 


4969 


015770 


0B4567 


001046 




JSP 


P9,S*VREG 


4990 


015774 


010001 






MOV 


R0,R1 


4991 


015774 


B05765 


300040 




TST 


FACllKS) 


4992 


016002 


001410 






aEO 


N«MFIX 


4993 


016004 


100025 






BPU 


N^HPOS 


4994 


016006 


062765 


100000 300040 




too 


•100000, FAC1(R5) 


499S 


016014 


001014 






BNC 


NUHNEC 


4396 


016014 


?05065 


000042 




CUP 


FAC2IK9) 


4397 


016022 


»01016 






9NE 


HyHpoti 


4398 


016024 


305765 


000042 


NUHFIXI 


TST 


FAC2(K9) 


4999 


014090 


100013 






BPL 


MUHPO^ 


4400 


014032 


305465 


303042 




NES 


FAC2(H9) 


4401 


014036 


102035 






avc 


Nl^MNEG 


4402 


016040 


312765 


344000 000040 




«ov 


•44000, FAC1(R5) 


4409 


016044 


305065 


300042 




CUP 


r«C2tK5) 


4404 


014052 


312730 


330095 


NUHNEGI 


MOV 


•(•,R0 


440$ 


014056 


300402 






BP 


NUMPR9 


4406 








NUMPOSI 






4407 










iirNor 


SNOSTH 


4406 










CMP 


r;,»savchar 


4409 










BEO 


Nl/MSTT lOON'T OUTPUT BLANK FOR S 


4410 










,ENOC 




4411 














4412 


016060 


012700 


000040 




MOV 


•BUiRH 


4413 


016064 


304711 




NUMPPSI 


JSP 


PC,(RH 


4414 














441» 








NUMSTTI 






4416 


016066 


314504 


300042 




MOV 


FAe2IK5),H4 tR4 • UO" OROER MA>(TtSSA, 


4417 


016072 


305032 






CUP 


R2 |R2 • OECIMAU EXPONENT', 


4418 


014074 


316533 


300040 




MOV 


FACI(H»),(I3 IR3 ■ HIGH 0"OER MANTISSA 


4419 


014100 


301010 






BNE 


N«NFUt 


4420 


014102 


1)12700 


000097 




MOV 


•97, RB )R? " 9INARY EXPONENT, 


4421 


016106 


305704 






TST 


R4 


4422 


!I16110 


301014 






BNE 


NUMSHFT 


4423 


016112 


312730 


300060 




MOV 


<f0,SB' 



SICU 


MACXll 


V021 


22>MtR.73 


4424 


314116 


304711 




4425 


016120 


300207 




4426 


016122 


310330 




4427 


316124 


306300 




4428 


316126 


105030 




4429 


316130 


(100900 




4490 


316132 


162730 


330171 


4431 


016136 


342739 


177600 


4432 


316142 


752733 


000200 


4439 


316146 


305300 




4494 


314150 


304304 




4495 


016152 


704133 




4496 


016154 


333327 


340000 


4437 


316160 


301772 




4436 


016142 


•309700 




4439 


316164 


303016 




4440 


316144 


306203 




4441 


314170 


306034 




4442 


314172 


906209 




4443 


314174 


'106004 




4444 


014174 


304209 




4445 


314200 


304004 




4446 


316202 


304209 




4447 


316204 


304004 




4446 


316206 


362700 


000004 


4449 


316212 


304767 


177220 


4450 


316216 


305902 




4451 


316220 


000755 




4452 


016222 


320027 


000004 


4459 


016226 


P'B3407 




4454 


016290 


004767 


172324 


4455 


016234 


309202 




4456 


316296 


ilB3746 




4457 


316240 


:<B5230 




4458 


316242 


306233 




4459 


316244 


306034 




4460 


316244 


320027 


000004 


4461 


016252 


002772 




4462 


316254 


B20327 


050000 


4469 


316260 


103363 




4444 


316262 


362734 


301290 


4465 


316244 


103010 




4466 


316270 


305209 




4467 


016272 


320327 


350000 


4466 


316276 


103404 




4469 


316330 


3127U3 


304000 


4470 


016334 


305004 




4471 


316906 


305232 




4472 


016910 


312700 


300004 


4473 


016314 


310344 




4474 


:il6316 


300316 




4475 


316920 


306016 




4476 


316922 


306016 




4477 


316324 


306014 




4478 


316326 


?42714 


177740 
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JSP 


PC, (PI) 






PTS 




NUHFUTI 


MOV 


P9,R0 






»su 


P0 






CURB 


R0 






SWAB 


P0 






SUB 


•171, H0 






aic 


•177400, P9 






BIS 


•200, H9 




NUHSHFTIDEC 


RB 






4SU 


P4 






ROU 


P9 




NUHN0RMI91T 


R3, •40000 






BEQ 


NgnsHFT 






TST 


P0 






BGT 


NtfHBIS 






ASP 


R3 






POP 


P4 






ASP 


R3 






POP 


P4 






ASP 


«i 






POP 


R4 






ASP 


P9 






POP 


R4 






AOD 


• 4,R0 






JSP 


P5,MPTTEN 






DEC 


R2 






ap 


NgMNOHM 




NUM8IGI 


CMP 


PB|«4 






auc 


N«HOK 




NUHOIVI 


JSP 


PC.OIVTEN 






INC 


P2 






BR 


NyMNORM 




NUHAUNI 


INC 


P0 






ASP 


P9 






POP 


P4 




NUMOKI 


CMP 


P0,^4 






BUT 


N^MAUN 






CMP 


P9, •90000 






BHIS 


nyMoiv 






AOD 


•t290|R4 


IROUNOING 




BCC 


NORNDUV 






INC 


P3 






CMP 


R9, •50000 






9U0 


MORNOOV 






MOV 


•4000, R3 






CUP 


P4 






INC 


R2 




NOPNOOVIMOV 


• 6,R0 




NUHOIGt 


MOV 


PJ,.(SP) 






SWAS 


(SP) 






POP 


ISP) 






POP 


(SP) 






POP 


(SP) 






aie 


•177760, (SP) 





\l 



T, 
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4«7» 


016332 


'.-62716 


0)0)60 


ADO 


»'0,l»P) 


4490 


016336 


!<42703 


174000 


9|C 


•174000. P3 


44SI 


016342 


004767 


177)7) 


JSK 


PCiMPTTEN 


4492 


016346 


009300 




DEC 


P) 


4499 


016390 


003361 




96T 


NVMOIU 


4494 


016392 


'.'10603 




MOV 


SP,R3 


4495 


016394 


362703 


300014 


•DO 


.14, P3 


4496 


316360 


?20227 


177776 


CHP 


R2,0>2 


4497 


316364 


1102404 




BUT 


NUHFMl 


4499 


016366 


001446 




)E0 


NUHrM2 


4499 


016370 


020227 


000006 


CHP 


R2|06 


4491 


016374 


002491 




)LT 


NUHrM3 


4491 


016376 


01430) 




NUMFMll "OV 


.(R3)|P) 


4492 


016400 


004711 




JSK 


P5i(Rll 


4493 


016402 


012700 


000096 


>I0» 


• >', ,R) 


4494 


016406 


004711 




JS" 


PCi{Rtl 


449S 


016410 


212704 


000099 


HQV 


• 9,R4 


4496 


016414 


014300 




NUHIPII HOV 


•(R3)|P) 


4497 


016416 


004711 




JS" 


PC, (Pi) 


4499 


016420 


309304 




DEC 


R« 


4499 


016422 


0033^4 




acT 


NgHuPi 


4»0« 


016424 


912700 


0H109 


"OV 


•'E|R« 


4991 


016430 


»»4ni 




JSH 


pe,(Ri) 


4902 


016432 


012700 


0)))93 


ngv 


•l»,R» 


4909 


016436 


00»7«2 




TST 


Hi 


4904 


016440 


100003 




en. 


■ ♦I) 


490S 


016442 


018700 


300099 


MOV 


•l.,R0 


4906 


016446 


909402 




NEC 


Ri 


4907 


016490 


0047U 




JSP 


PCiIRK 
•l0,R0 


4909 


016492 


012700 


0)))6) 


HQV 


4909 


016456 


162702 


0)))12 


SU) 


»i2,R! 


4910 


016462 


100402 




BNI 


.*» 


4911 


016464 


009200 




INC 


R) 


4912 


016466 


000773 




BR 


.•w 


4913 


016470 


Z04711 




JSP 


R?ilRi) 


4914 


016472 


310200 




MOV 


R2,R0 


4919 


016474 


e62700 


000072 


>0D 


•10*12, R0 


4916 


016900 


004711 




JSP 


PfilRH 


4917 


016902 


J00439 




BR 


N«HEXIT 


4919 


016904 


S112700 


00)096 


NUMrM2l MOV 


»',>"» 


4919 


016910 


K04711 




JSP 


P^lIRtl 


4920 


016912 


012700 


000060 


MOV 


•!0,RB 


4921 


016916 


004711 




JSP 


PC.iRtI 


4922 


016920 


012704 


000006 


MUHFHSt MOV 


• 6,R4 


4923 


016924 


010600 




MOV 


SP|R0 


4924 


016926 


022027 


00)060 


CHP 


(R0)*l*<P 


4929 


016532 


301002 




BNE 


.♦» 


4926 


016534 


^09304 




DEC 


R4 


4927 


016936 


300773 




BR 


,•1) 


4929 


016940 


020402 




CMP 


R4,R2 


4929 


016942 


0)3002 




BGT 


1*9 


4930 


016944 


31)204 




MOV 


R2,R4 


4931 


016546 


30S204 




INC 


R4 


4932 


016990 


309202 




INC . 


R2 


4933 


B16592 


309202 




INC 


R2 
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4934 


316554 


309302 


4939 


016996 


701033 


4936 


01696) 


312700 000056 


4937 


016964 


0)4711 


4939 


016966 


01430) 


4939 


016970 


304711 


494) 






4541 


316972 


'309304 


4942 


316974 


3)3367 


4943 


016976 


362706 300014 


4944 


016602 


300207 


4945 






4946 






4947 






4949 






4949 






499) 






4991 






4552 






4553 






4554 






4599 







19 PACE 6)«3 




NUMLP3I DEC 


R2 


8nE 


.♦1) 


MOV 


•'■,." 


JSP 


PC,(R1) 


MOV 


•|R31iR0 


JSP 


PPilR*! 


DEC 


R4 


SOT 


nQmlpj 


NUHEXITIAOD 


•14, SP 


R7S 


PC 


.|fNor 


SNOSTH 


SAVCHARI 




JSP 


R9,SAVREC 


MOV 


T2IR9),Rt 


MOVB 


RBlIRD* 


MOV 


Rl,T2fR9) 


INC 


T1(R5I 


RTS 


RS 



,ENOC 



UASICU >IACX11' V2I21, 22antR>73 161119 PACE il 



4954 








4557 








4S58 






' 


4»S9 








4968 








4S61 








4962 








4563 








4564 








4965 








4966 








4967 








4568 








4569 








4978 








4971 


ei66B4 


812782 


177776 


4572 


916618 


811246 




4573 


016612 


812712 


800340 


4574 


816616 


816183 


f^^iie 


4575 


816622 


885283 




4576 


816624 


828361 


888802 


4577 


816638 


101482 




4575 


816632 


81618} 


800800 


4979 


816636 


820361 


808004 


45S0 


816642 


801412 




4581 


816644 


828361 


800006 


4982 


816658 


801487 




4983 


816692 


110071 


000010 


4984 


816696 


818361 


888818 


4989 


816662 


812612 




4986 


816664 


800241 




4587 


816666 


800287 




4989 


816670 


312612 




4599 


016672 


880261 




499(1 


816674 


808287 




4991 









HUTBVT t PUT 8TTE INTO HING dUTFH 



CAtLI "OV 
MOV 
JSR 



cBurr, mor;j,ri 

CCHAR]|Rfl 
PC,PUT8rT 



uses R0iRtiR2iR3 

RAISE PRloRlXr SINCE THIS HAY 9f ITAILEO AT 
MAINSTREAM, BUT ACCESSJS POPiTtR'! THAT MAY CHA-iOE AT 
INTERUPT lEVEV, 

RETURNS HITH 'C! BITI CLR ir BYTE COT IN 

set ir >!0 nno" 



PUTBYTI MOV 
MOV 
MOV 
MOV 
INC 
CMP 
BUOS 
MOV 

NOWRAPI CMP 
BEO 
CMP 
BEO 
MOVB 
MOV 
MOV 
CLC 
BTS 

NOROOMI MOV 
SEC 
RTS 



«PS|R2 

(H2),»(SP( 

»PR7,("2I 

BPUT|Hll,R3 

R3 

R3,BEN0(R1) 

NOURAP 

BSrRTIRl),R3 

RJlBCETKRt) 

NOROOH 

R;,BCtT2(Rt) 

MOROOM 

R0|»8PUT(R1) 

RS,BPyT(Rl) 

(SP)»,iH21 

P? 
(SP)»,|H2) 

P5 



ISAVE STATUS 
iREPtACE HITM HIGHEST 

ICANOIOATE FOR f*E" POSITION 
INEEB TO WRAP AROUMO? 

lYCSl NEW POS, AT TOP 

lir rOUAL TO EITHER 5ET PTR, 

I THEN NO ROOM 



(UPDATE PTR, 
ISTATUS SACK 

lSIl:^^Au SUCCESS 

■STATUS BACK 
iSHOW fAILURE 



BASICL HACXll 
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4992 
4593 

4594 
4595 

4596 
4597 
4998 
4699 
4680 
4601 
4682 
4603 
4684 
4685 
4606 
4687 
4688 
4689 
4618 
4611 
4612 
4613 
4614 
4615 
4616 
4617 
4618 
4619 
4628 
4621 
4622 
4623 
4624 
4625 
4626 
4627 
4628 
4629 
4638 
4631 
4632 
4633 
4634 
4635 
4636 
4637 
4638 
4639 
4640 
4641 
4642 
4643 
4644 
4645 
4646 



816676 
816782 
816786 
816712 
816716 
816720 
316724 
816730 
816732 
316734 
816748 
816744 
316746 
816758 
816752 
816794 
816768 
316762 
816766 
316770 
316772 
316776 
817080 
317084 
317012 
817816 
317822 
317824 
817826 



317838 
317832 



304567 

812746 
805275 
105765 
801482 
800167 
116584 
301033 
105765 
801032 
?16481 
;?85784 
301082 
C685B1 
nil8l 
384767 
183887 
884767 
385316 
581371 
105861 
388422 
105061 
212774 
809265 
1057S1 
801810 
809726 
^88237 



1001£0 
121386 



888168 
847777 
888034 
888186 

162192 

808076 

880107 
817030 



177624 
175324 

080012 

800012 
888188 
888070 
880812 



PUTCHAR • PUT CHAR 10 CURRENT OUTPUT OEVi 

CALLI (LOAO oOEV<r5!) 

MOV CCHAR]|RI1 
JSR PC, PUTCHAR 

SAVES ALL REGS, 



TRIES TO FIT CHAR INTO PROPER BUFFER, 
FAILURE, 



Goes to Io"»it o'< 



putcharijsr 

MOV 

INC 

TSTB 

BED 

JMP 

PUTCCOI MOVB 
BNE 
TSTB 
BNE 

HORSTUPIHOV 
TST 



PUTITl 



ITSINI 



r5,$AVREG 
»47777,-(SPl 

»C0LUMN(n5) 

CNCFLlilR!) 

PUICCU 

READY 

0dEV(K9),R4 

HDRSTifP 

CN0FLI>IR51 

OUTBIV 

TA8l(R41,Ri 

R4 

PI^TIT 

R9,R1 

IRIJ.HI 

PCiPUtSYT 

itSIN' 

PCilOWAlT 

(SP) 

puTir 

BFSPECIRll 

DEVERM 

BFSPEfCRll 

>i88,PTAB2(R4) 

RNDCTIR5) 

SFSPE5<R1) 

OEVERH 

(SP)* 

PC 



lU'IT Tl"E OUT COUNT 



lOUTPUT DEVICE CODE 
llF NOT TTY, CONTINUE 
iCUtCK FOR MOr 
lir ^ET EXIT IMMEDIATELY 



IHUICH DEVICE? 

ISOT TTY 

nti" CU"R, USER'S BUFF, 

INOW, ACTUAL HEADER 



BNE 
ADO 
MOV 
JSR 
BCC 
USR 
DEC 
BNE 
CLRB 
BR 

CLRB 
MOV 
INC 
TSTB 
BNE 
OUt0tBI TST 
RTS 

I T»B1 • DEV, BUFFER HDrs, (TpHO Is pFFsET INTO USRAREA 
I FOR ADOR, TO TPRTR, BUFP, HOR, ) 



INO "OOMI UAIT 
ITIMC "UT 



lENAOLE INTEXUPT ON CHOSEN OCV, 

I I/O ERROR? 

[POP TIME OUT COUNT 
iRESTO'ES REGS, ANO RETU'HS 



I 

TABU 



817834 ?213i2 



♦ TpHO 
ilFNOF SNOPTP 
« PPBFHU 
,ENOC 

iIFDF SNOPTP 

8 

,ENOC 

,1FnOF snolpt 

♦ LP8FHU 



s;cL 


MACXlt 


va2i 


22, UAH. 73 


16139 PtGE 62>t 




4647 








,ENOe 




«64S 
464« 








,iror INOU" 


4«9« 








iENOC 




4651 












4692 

4693 








1 TAB2 • OEV, STATUS hEC, 


4654 
4655 


317836 


177564 




T4B2I ♦ 


TPS 
PPS 


4656 


B17B40 


177554 






LPS 


4657 


017B42 


177514 






4658 
4659 


B17844 


g000'<<4 




OEVERRI IQT 

.IFNor 


IkONGER 


4660 
4661 


317046 


147104 


122 


.ASCII 
,ENOC 


\ONil\ 


4662 








tlfOF 


SliONC^II 


4663 








.ASCII 


VOEVICE NOT BEAOVN 


4664 








.ENOC 




4665 
4666 
4667 


317051 


000 




.B»TE a 

.EVEN 

.EOT 




466B 












4669 
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4670 

4671 

4672 

4679 

4674 

4675 

4676 

4677 

4676 

4679 

4660 

4631 

4662 

4683 

4684 

4689 

4686 

4687 

4688 

4689 

4690 

4691 

4692 

4693 

4694 

4695 

4696 

4697 

4698 

4699 

4730 

4731 

4702 

4703 

4704 

4705 

4706 

4707 

4708 

4709 

4710 

4711 

4712 

4713 

4714 

4716 

4716 

4717 

4718 

4719 

4720 

4721 

4722 



017052 
017094 
017062 
017064 
017066 
317070 
317072 
317074 
317076 
317102 
317104 
317136 
317110 
317112 
317114 
317116 
317120 



311646 

1'12766 
?10446 
310346 
J10246 

310146 
313046 
C13546 
3166K; 
304736 
712600 
312631 
!I12602 
312633 
312634 
^12605 
?'00207 



317122 .900032 



SOURrE FILE "8 



SAVREG • SAVE AI,L rEGISXERS 

CALLI CJSR 
JSR 



P5iSU"Rt3 
RSlSAVREG 



IMUST CAUL S»VREG FROM SUBRT". 



PUSHES ALL REGS'. «N0 EXITS "ITH AOOR, Q" STACK 
UhICM brings CONTHOL BACK WHEN 5UBR, DOES (RTS PC. 
THEN, RESTORES RElis, ANO DOES 'RTS PCI HHICH RETURNS TO JUST 
AFTER CALL TO'lNlflAL SUBROUTINE (MOOIFIEO BONERING SPECIALl 



017122 300002 



SAVRGII 
SAVRECI 



HOV 
HiSv 



MOV 
HOV 
HOV 
NOV 
HOV 
HOV 
HOV 
JSR 

RESRECI HOV 
HOV 
HOV 
HOV 
HOV 
HOV 
RTS 

I 

INTEXTI RTI 



(SP)l>(SPl 

•|NTEXT,2|SP) 

R4,.(5P) 

R?|.(SP) 

R2l«(SP) 

Ril»<SPl 

R0,«(SP) 

R»l»<SP) 

12,(SP),R5 

PC.KSP)* 

(SP)4,R0 

(SP)»,Rl 

(SP)*|R2 

|SP)4,R3 

(SP)*,R4 

|SP)*|R9 

P? 



iFOM RETURN TO SUBR, 
ICET OLD R5 
(STACK NEXT LOC,! 



iBACK TO CALLER OF INIT, SUSP. 



317124 312765 17777S 300030 sCANpNOIH|)V 

317132 305231 INC 

317134 122127 300261 CMPB 

317148 301432 BED 

317142 300167 1729B2 JMP 

317146 003237 PNDGOI "TS 



1 sCANpNO , 


SCAN TOKEN For '•' 


1 CALLI MoV 
1 JSR 


CPTR, TO BYTE BEFORE '•' TOKEN:, Rl 
PCiSCANPNO 


1 USES Rl 





f, SCALAR, LINENo(r5I 

Rl 

(Rl)»|f .POUND 

PNOGO 

EHRSX9 

PC 



il«S;CL xtCXll V02t 22iHiR«73 lt\i> PACE t* 

4784 
4725 
4726 
4727 
472« 
4729 
4738 
4731 
4732 
4733 
4734 
4735 
4736 
4737 
4739 
4739 
474B 
474t 
4742 
4743 
4744 
474S 
4746 
4747 
4748 
4749 
4750 
4751 
4752 
4753 
4754 
4755 
4756 
4757 
4758 
4759 
4760 
4761 
4762 
4763 
4764 
4765 
4766 
4767 
4768 
4769 
4770 
4771 
4772 
4773 
4774 
4775 
4776 
4777 









1 suBRouriNc' 


tKtPCOk' CAtLCO 8V JSn PC 

MOVES »l PAST THE NEXT 'EOL" 

R0 UNUSCO 

R; HOOirlEO T8 HEFLtCT OPERATION 

R2,R3iR4,R5 UNgSEO 

SP eOCS NO DEEPER AFTER WBR 


017150 


762701 


000003 


SKtP09l 400 


•)|R1 


017154 


705201 




SKIP021 INC 


"X 


317156 


705201 




SKIP01I INC 


«l 


017160 


105721 




SKtPEOLITSTB 


(Rll* 


017162 


002375 




see 


SK1P01 


017164 


124127 


000374 


CMPg 


•(«t)l»,PtIT 


017170 


001767 




0(0 


SKtP0» 


017172 


101014 




9HI 


SKIPHJ 


017174 


122127 


000201 


CMP9 


|Rl)*|P,COt 


017200 


001420 




SCO 


3K|PRf3 


017202 


124127 


000262 


CMPB 


•(Rl)i«,rN 


017206 


001762 




9(0 


9KIP02 


017210 


122127 


000211 


CHPB 


(Ri)*,i,»iexT 


017214 


301361 




BNC 


SKIPEOU 


017216 


062701 


000012 


ADO 


• 12, Ri, 


017222 


000796 




BR 
1 CITHCR 


SKIPEOI, 
,1UIT1(375), •,ILIT2(376I OR ,rEXT(J77) 


017224 


122127 


000376 


SKIPHII CHPB 


(Rl)»|i,aiT2 


017230 


001751 




BCO 


SXtP02 


017232 


103751 




BIO 


SKiPei 


017234 


105721 




SK1PTXTITST9 


(Nil* 


017236 


001376 




BNE 


SKIPTXT 


017240 


000747 




BR 


SKIPEOC 


017242 


000207 




SK|PRTSI«T! 
1, ............ 


PC 



017244 ;tl6502 000022 



STOy*R' SUBRO«TINt 

CALLEp 8* JSR PCiSTOVAR 
STORES FACl, FAC? IN TUE VARIABLE OR 
ARRAY ELEHENT I.AST AOORESSEO Br THE 
SUBROyTtNE 'GETVARI 
STOVARI "OV VARSAy(R5|,R2 



017290 016900 000024 

017294 100409 

017296 016503 000026 

017262 004767 179332 

017266 000404 

017270 022227 177775 

017274 001401 

017276 :ill202 



.IFNOr 


SNOSTK 


CHP 


|R2),«,SVAR 


8E0 


ERRMX7 


lENOC 




MOV 


SSiSAV|R5|,R0 


BHI 


5T0N0SS 


MOV 


SS2S«»<R5|,R3 


JSR 


PC.LOfGET 


BR 


StOCOM" 


STONOSSICHP 


(R2|*l>, SCALAR 


BEO 


SIOCOMH 


MOV 


(R2I,H2 



SICL 


MACXtl 


V021 


22.M»R«73 


16105 PACE 64.1 






017300 


016522 


000040 


STOCOHMIMOV 


rACl<«5),(»2)« 




017304 


016512 


000042 


Mnv 
RfS 


F*C2(n5),(r2) 




017310 


000207 




P? 






















iIFNOF 


SNOSTK 










ERRHX71 JHP 


ERRHI* 










,ENOC 

















BASICl MACXtl va21 22«M*R«73 t«IB9 



4786 
47j7 
47Sa 
47a9 

47«a 

4791 
4792 
4793 
4794 
479S 
4796 
4797 
4791 
4799 
4ae0 

4«ei 

4602 

4603 
4604 
4809 

4806 
4607 
4808 

4809 

4610 

4611 

4612 

4613 

4614 

461$ 

4616 

4617 

4618 

4619 

4620 

4621 

4622 

4823 

4624 

4829 

4626 

4627 

4628 

4629 

4630 

4631 

4632 

4633 

4634 017312 009766 

4639 i<1731« ^'01409 

4636 017320 362766 

4637 017326 ^00167 
4636 017332 309466 

4639 017336 102373 

4640 017340 012766 



100000 
170036 



000002 



044000 000002 



9 PASE 69 




.IFNOr 


JNOSTH 


1 'STOSVAR' SUSRoOtInE 




CAtLEO 8* JSR PC.STOSVAR 




STOREii A STRING VARIABLE AS ADORESSEO 9V 




VARSAV 


STOSVARI"OV 


VARSAV<R9I,R2 


CMP 


()(2)i»,SVAR 


aNC 


EHRHXd 


HQV 


SS1SAV(R9|,R0 


0NI 


ST9SSN0 


MOV 


SS2SAVIR9),RS 


JSR 


PfitOgSET 


0R 


9T0NH(O 


STOSSNOITST 


(R2»* 


CMP 


2|RZ)|0«1 


Bea 


StOVTAB 


MOV 


tR2),M8 


STSMMCOtMOV 


|SP)»,R3 


MOV 


(SR)*|R« 


MOV 


R0,(R21 


BR 


sioveoM 


STOVTASIMOV 


($r)*,R3 


MOV 


ISR)*|RB 


HOV 


RB|<R«I 


INC 


R2 


SUB 


<R9)iR2 


STOVCOHUNC 


RB 


SCO 


STOSX ICHECK NULU ST«INC 


ADO 


•8lR» 


MOVB 


R2,»(K0I 


3MAB 


R2 


MOVB 


R2,>IK0| 


STOSXI JNP 


|R3| 


ERRMy6l JMP 


ERRMIX 


.ENOC 





SUBROUTINE >SU«BT<('. 



!• 
I 

I 

I 

) 

I 

I 

I 

SUBSTKI TST 
BEB 
ADO 

AOSTKll JMP 

SUBINTI NEC 
BVC 
HOV 



2ISP) 

SUBlNt 

• 100000, 2I3P) 

ADOSTK 

4(SP) 

aostk; 

•44000, 2(SP) 



CAULED BV JSR PC 

NEOATES P(SRt,2|SP) THEN CONTINUES IN tAODSTKI 

R0,Rt UK'USED 

R2,R3 DtSTRnyfO 

R4 MOBlPItO TO REruECT STACK USAGE 

R9 MUST POINT TO USER'aREA 

SP SOeS ?? OEEPER APTER JSR 



BASICL HACXll V021 22<MAR.73 16|09 PACE 6S>t 



4641 317346 00S066 000004 

4042 317392 JB0765 

4643 



CUR 

BR 



4(3PI 

»0ST«; 



«S1CU 


MACXll 


V321 


22aH>f) 


«e<4 








4)45 








4(46 








4«47 








4648 








4S4« 








4890 








4851 








4892 








4893 








4854 








4899 


317394 


316902 


000020 


4896 


017360 


!lt02Ol 




4857 


317362 


122127 


000019 


4858 


017366 


001375 




4899 


017370 


316503 


000016 


4860 


017374 


U4140 




486t 


317376 


323102 




4862 


017400 


IIB1375 




4863 


017402 


039365 


330096 


4864 


017406 


122027 


330040 


4869 


017412 


001775 




4866 


317414 


124027 


300015 


4867 


317420 


001033 




4868 


317422 


112711 


300201 


4869 


017426 


330237 




4870 


017430 


121327 


330096 


4871 


017434 


001406 




4872 


317436 


121027 


300060 


4873 


317442 


103409 




4874 


317444 


121027 


303071 


4879 


317490 


101032 




4876 


017492 


333167 


300692 


4877 








4878 


317456 


012704 


160700 


4879 


317462 


121027 


000101 


4880 


317466 


10S439 




4681 


017470 


121027 


300132 


4882 


017474 


101032 




4883 


317476 


312704 


160772 


4884 


317902 


!I10703 




4889 


317504 


360403 




488« 


317906 


310002 




4887 


017910 


122223 




4888 


017912 


001776 




4889 


017914 


114J04 




4890 


017916 


100414 




4891 


317920 


301990 




4892 


317922 


309302 




4893 


017924 


122227 


300040 


4894 


317930 


301767 




4895 


317932 


309302 




4896 


317934 


122327 


300040 


4897 


317540 


301763 




4898 


017942 


109723 





16!09 Pktt 66 



etCLEg BT JSn »C|T»4N 

TKtNSktres rKOH iN^gr iscii cooe 

TO INTEHN4I, CODE, CONSISTING OF TOKENS, 
UlNE NUM9ER »ErE»ENCES, SYMeo^ T«8t£ 
RErER(NCES, kUB (.ITEPALS, AimVS RETURNS, 
NO H4TTER UH4T IS IN»UT, 

tS NEI* SVH90LS ARE ENCOUNTEReOi SUILOS NE« 
ENTRIES INTO TWE SVMROI. TABLE, 
ERRORS ARE TRANSUATEn TO C , TEXT, , , •, ] 
UINE(I<9),H2 



TRANl 



«0V 
now 
CMR8 
0NE 
«0V 
H0V8 
CMP 
HNE 
TRANLURICUR 
TRANV4RICMPB 
9E0 
CMPS 
INC 
HOVB 
RTS 
CMPB 
8E0 
CHPB 
RUO 
CMPB 
BHI 
NUHJHPI JHP 

TRYKUOI no" 
CHPB 
BLO 
CNPB 
BHI 
HOV 
MOV 
AOO 



trynuhi 



COMTABI 

TRNPCI 

TRYACNI HOV 

REtRYl CMPB 
BED 
HOVB 
BMI 
BEO 
DEC 
CMPB 
BEO 
OEC 
CMPB 
BEO 
TSTB 



|Rf IS WHERE ORICINAt TEXT IS, 
)R1 IS UMeRE THANSI.ATEO TEXT GOES, 
(PREVIOUS ITEM WASN'T A VAP, 



R2|Rt 
<Rt|4|«CR 
■ •4 

C00CtR9|,Rg 
•(R1I,>(R0) 
"I.R2 

n(R»l 

|R0)*,«B|. 

TRANVAR 

•JRBIlRCR 

TRYNUM 

•iCOLiIRt) 

P5 

(R0|,P', 

NyMJHP 
<R0),>>0 
TRYKWD 
|Rfl),>)7 

TRYKWB 
ISNUM 



•KCYMPS«TRnPC,R4 

|R0|,»<A ICUECK ALPHA KEYUORgS 

COMTAB IIOO LOW 

|R0),Pli 

COMTAB ITOO HtCU 

•KEYA.TRNPe,»4 IJUST RI5HT 

PC,R3 

R4|R3 lAOORESS TABLE 

R0|R2 

(Ri)*l(R3|4 

R5TRY 

•|R31|R4 

AMATCH 

NOTKWO 

P? 

(R2)*,fBL 

RETRY 

R2 

|R3)*,»Bt 

RETRY 

(R3)» . 



«siCL 


MACXll 


V021 


229MAN.73 


16109 PAGE 66.1 


4899 


017944 


100376 






aPU 


4900 


317546 


000757 






BR 


4901 


317550 


00!3«2 




AMATCHI 


DEC 


4932 


317592 


710230 






MOV 


4903 


317554 


110421 






"OVB 


4904 


317596 


123427 


330220 




CMPB 


4905 


017962 


(131540 






BEO 


4906 


317964 


123427 


330262 




CMPS 


4937 


317970 


5101461 






BEO 


4938 


017572 


123427 


300211 




CMPB 


4939 


317576 


101505 






BEO 


4910 


317630 


123427 


300297 




CMPB 


4911 


017634 


Jai403 






BEO 


4912 


017636 


120427 


000296 




CHPB 


4913 


317612 


301273 






RNE 


4914 


317614 


122704 


000257 


aUOTPAKICMPB 


4915 


317620 


301402 






BEO 


4916 


317622 


312704 


300292 




MOV 


4917 


317626 


362704 


177573 




AOO 


4916 


017632 


112721 


030377 




HOVB 


4919 


017636 


323103 






CMP 


4920 


017640 


103076 






8HIS 


4921 


317642 


121034 




STOSTRl 


CHPB 


4922 


317644 


301405 






BEQ 


4923 


017646 


121027 


000015 




CHPB 


4924 


317652 


001415 






BEO 


4925 


317654 


112021 






MOVB 


4926 


317656 


300771 






BR 


4927 


017660 


105021 




EN00U0TICLR3 


4928 


017662 


009230 






INC 


4929 


017664 


120427 


300047 




CHPB 


4930 


017670 


331433 






BEO 


4931 


017672 


112721 


303296 




MOVB 


4932 


317676 


300641 






BR 


4933 


317730 


112721 


330297 


ENOSOUOIMOVB 


4934 


317704 


303636 






BR 


4939 


017736 


135021 




ENOCRI 


CURB 


4936 


317710 


112711 


333231 




MOVB 


4937 


317714 


313132 






»0V 


4938 


317716 


124227 


000377 




CHPB 


4939 


017722 


301379 






BNE 


4940 


317724 


110412 






MOVB 


4941 


317726 


112742 


002377 




MOVB 


4942 


017732 


300237 






RTS 


4943 


317734 


122027 


300040 


TRNFNI 


CMPB 


4944 


317740 


301775 






BEO 


4945 


317742 


124027 


000101 




CMPB 


4946 


317746 


103411 






BLO 


4947 


317750 


121027 


000132 




CHPB 


4948 


317754 


101006 






BMI 


4949 


317796 


112032 






MOVB 


4950 


317760 


306332 






ASL 


4951 


317762 


162702 


000200 




SUB 


4952 


317766 


110221 






MOVB 


4953 


317770 


300604 






3R 



.•2 

TNYAOn 
R2 

R2,R0 
R4,(RJ1» 

R4,#,HEM 

REMPACK 

R4,«,KN 

TRNrN 

R4,«,NEXT 

nIxphi. 

R4,8,S0U0T 

OQOTPAK 

R4,<,paU0T 

TRANtgP 

•|S0U0T,R4 

,♦« 

#(«./(«, SauOT,R4 

t'l»,i0U0T,R4 

«iTEXf,(Ri)* 

Ri,R0 

EKRTRN 

|H0),K4 

ENoaupT 

(R0),<CR 

ENOCR 

IN0)*,(R1)* 

SIOSTN 

(Rll» 

R0 

R4,«'l 

ENDSOVO 

•lOaUOTE,IRl)* 

TKANLUP 

•|SOUOTE,|Rt)« 

TKANLUP 

("tj* 

•lEOLlIRl) 

r;,r2 

•(R2)l»,TEXT 
,•* 

R4,(R2) 
•,TEXT,.(R2) 
P? 
(R0)*l«Bt 

,•* 

•(RBll«'A 

TRPN8A0 

tR0)i«<2 

THPNBAb 

(RB)»,R2 

R2 

•■A*'A.2,R2 

R<ii("l)« 

THANLI^P 



ill - s^.., .- 



iSAMf AS INITIAL OUOTE CHAR,? 



aASlCL niCXtl V821 22.n«fl.7] 16109 PtGC 66.2 



49S4 


317778 


11J748 


880116 


TRpNB*B'H0»8 


• I.H,<|R8I 


4955 


817776 


112748 


088186 




HnvB 


•<ri«|R8) 


4956 


328002 


385381 






RJ 


495? 


820884 


328180 






CMR 


m.Rt 


49;g 


020886 


101013 






8HI 


ERRTRN 


49S9 


020018 


300425 






9R 


R6HP45K 


4968 


020812 


320130 




NE«riLLICM8 


r;,r8 


4961 


028014 


183818 






SHIS 


EHRTRN 


4962 


020816 


185821 






CURS 


(RD* 


4963 


020028 


185811 






CURS 


<Rt) 


4964 


820822 


362731 


088811 




too 


«ll|Ri 


496$ 


820826 


023130 






CMP 


Rl.Rf 


4966 


820830 


103832 






SHIS 


EKRTRN 


4967 


020832 


338167 


177344 




JMR 


TR»NU«I' 


4966 


020836 


;'00167 


303266 


CRRTRNI 


JMR 


EHRTR7 


4969 


820842 


121327 


333132 


NOtKUOl 


CMR8 


(N8),lili 


4978 


020046 


101836 






SHI 


REHP45K 


4971 


028098 


121827 


333131 




CHRB 


(R8),»>i 


4972 


020054 


183433 






BLO 


REHPAfK 


4973 


328896 


389765 


388396 




TST 


T1IR5! 


4974 


320062 


381415 






sea - 


ISVtR 


4975 


020864 


112721 


308377 


REHR«CK|MOVe 


•,TEXT,(R1)* 


4976 


828870 


328130 






CHP 


Rl.RB 


497T 


820872 


103361 






SHIS 


ERRTRN 


4978 


820874 


121827 


888819 


STOTXTl 


CHPB 


(K0),»CR 


4979 


328180 


301482 






SCO 


CARREf 


4988 


020182 


112821 






MOVB 


(H0)»,(R1|* 


4981 


028104 


388773 






SR 


9T8TXI 


4982 


328136 


109021 




CARRETI 


CURB 


(Rll* 


4983 


828110 


112711 


388201 




H0V8 


•lEOUiIRl) 


4984 


820114 


380237 






RTS 


R5 


4985 


320116 


112832 




ISVARI 


HQVB 


|H0)4,R2 


4986 


828128 


122827 


308848 




CHPB 


(R0)*,»BU 


4987 


028124 


081775 






sea 


,•* 


4988 


028126 


124027 


388871 




CHPB 


.(Rg),»l9 

NOOtCIT 


4989 


328132 


181036 






SHI 


4998 


820134 


121827 


338068 




CHPB 


|H0),PI8 


4991 


020140 


183433 






8U0 


NOOtBlT 


4992 


023142 


380382 






9U4B 


R2 


4993 


020144 


152032 






S|SB 


|RB)*|R2 


4994 


320146 


888332 






SUtB 


R2 


4995 


820190 


31153J 




NOBISITIHOV 


(R5),K3 


4996 


028152 


122827 


388048 




CHPB 


(H8t4|«BL 


4997 


028156 


88177} 






BEB 


,•* 


4998 


028160 


389381 






DEC 


R8 


4999 


828162 


828369 


888814 


VARSRCHICMR 


R?,U0rREE(R5) 


5888 


828166 


103020 






8HIS 


pynuN 


9881 


020170 


321327 


177779 




CHP 


IR3),»,Se»UAR 


5882 


320174 


183883 






BHIS 


NOT|T 


58«3 


028176 


362733 


388884 




too 


• 4,R3 


5884 


028282 


388767 






an 


VARSR^H 


5889 


020204 


362783 


008810 


NOTUI 


>D0 


»18,R3 


5886 














5887 










ilfNor 


INOSTN 


9888 










CHP 


•t8tR3)|t,9VAR 



|2 VARS IN A ROM IS AN ERROR SO OONT 
IMASTE S^HSOt SPACE ON IT, 
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5009 










BED 


TRVSVaR 


5010 










,enoc 




5011 














9012 


328218 


322332 






CHP 


IR3)4|R2 


9013 


328212 


301363 






SHE 


VARSRCH 


9014 


328214 


121027 


000044 




CHPB 


(R0|,»lt 


9019 


328228 


301760 






BED 


VARSR(H 


9016 














5817 










iIFNOr 


SNOSTH 


5818 










SR 


rOUNDV 


5819 








TRVSVARICHP 


(H3)*,R2 


5320 










SNE 


VARSRCH 


5821 










CHPB 


(R0),i»<I 


5822 










SNE 


VARSRCH 


9823 










INC 


RB 


9024 










,ENOC 




9825 














9826 


323222 


162783 


800812 


roUNOVI 


SUB 


•12,fl3 


5827 


023226 


300415 






BR 


RSTVAH 


9828 








PUTITINl 




5B2V 










ilFNOF 


JNOSTH 


9338 










ADO 


«14,R3 


5031 










CHP 


R3,U0?TR(H5) 


5032 










BUO 


RgrtoR 


9033 










JSR 


»5,gpP4CK 


5034 










CHP 


R3,U0STR(H9) 


5095 










SHIS 


ERR0V2 


5836 








PUtAOKI 


TST 


• IR3I 


5837 










,ENOC 




5036 














5839 










,I<-or 


SNOSTH 


5040 


328238 


362733 


008812 




AOD 


•12, R3 


5841 










,ENOC 




5842 














5843 


323234 


323365 


300312 




CHR 


R3,HirHEEIR9l 


9844 


323240 


131B«1 






SHI 


EHR0V2 


5049 


323242 


313365 


338814 




H0» 


R3,U0rREEIR5) 


5846 


323246 


313243 






"OV 


R2,<(H3) 


5047 


323258 


385843 






CUR 


• |R3) 


9348 


323252 


389043 






CUR 


• (R3) 


9849 


323254 


"09043 






CUR 


•(R3I 


5850 


320296 


312743 


177779 




MOV 


•,SCAUAR,>(R3I 


9851 














9092 










ilfNor 


SNOSTH 


9893 










CHPB 


<R8)i«'S 


9854 










SNE 


RETVAR 


5855 










INC 


R8 


5856 










»o» 


•,3VAK|(R3|« 


5857 










eoH 


IMJI* 


5351) 










COM 


(RJ)* 


535* 










COM 


(R31 


5363 










SU8 


• 6,R3 


5861 










,ENDC 




5862 














5863 


323262 


''10565 


380896 


REtVARI 


MOV 


R»,T1CR9) 



IMAKE SUHE STRINGS ARE N?T THERE 

lie THCT ARE, PACK THEM UPMAPDS 

lAHO TRY AGAIN 

I NO i;ooo 

iRS IS END or ENTRY 



lAnoRESS ENO or ENTRY IN R3 



ISOhETMInG NONJERO', 



»SICk 


«»exii 


V821 


22.M4R.73 
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5B64 


828266 


16193] 




BETkNOI 


sus 


(M||HJ 




SB45 


323278 


(■883^3 






SHAB 


R3 




9gt» 


828272 


118321 






KOVB 


R3i(Rt)« 




5B47 


828274 


808383 






SWIB 


"? 




9e«t 


828276 


118321 






M0V8 


R3,|R;)* 




9869 


820388 


?281B8 






CHP 


R1|R8 




587B 


828382 


181299 






BHI 


CRRTRN 




5B71 


028384 


088167 


177876 




JMC 


TRANVAK 




5872 








ISNUMI 








9B7] 


828318 


010846 






HOV 


Ra,«(iP) 


ISAVE »T« 11 


5B74 


828312 


084747 


000364 




JSR 


•■CiVAl, 


iFInn -AMTll 


;B79 


328316 


121827 


080096 




CMPB 


(H0I|8'. 




9B76 


828322 


001016 






9NE 


EXPTEN 




9B77 


028324 


012688 






HOV 


ISP)*|R8 




9179 


828326 


088696 






BR 


REMPA(K 




9B7» 


828338 


084167 


179132 


EB(tTB7l 


JSR 


RtiMSCERR 




9BeB 










(irNOF 


tUONCC" 




9B81 


828334 


046124 


124 




.ASCII 


ST^TN 




9B8S 










,ENoe 






9883 










.IfOF 


SbONC^R 




9BS4 










.ASCII 


'UINE TOO LONG 


Tn TRANSLATE 


9Ba9 










,ENOC 






9B«6 


828337 


880 






.BTTE B 






9B87 










.EVEN 






9B88 


828348 


808167 


168974 




JMP 


REA0Y2 




9BB9 


828344 


804167 


179116 


ERII0V2( 


JSR 


RllMSJERR 




9B9B 










.IfNDF 


JkONCtR 




9B9t 


828398 


092120 


102 




.ASCII 


\PTB\ 




989J 










.ENOC 






9B93 










.IFor 


SUONGER 




9B94 










.ASCII 


'PROSHAM TOO BIC 


9899 










.ENOC 






9896 


828393 


888 






.9VTE 8 






9897 










.EVEN 






9898 


828394 


300167 


168968 




JMP 


REA072 




5899 


828368 


028327 


014638 


EXfTENI 


CMP 


R3,»14«30 




9tB8 


828364 


101127 






BHI 


MAKFLIT 




9181 


828366 


009782 






TST 


R2 




9182 


828378 


003484 






SUE 


EXPNEj 




9183 


828372 


084767 


179B48 




JSR 


PC.MPTTEN 




9184 


828376 


909302 






OEC 


R2 




9189 


828488 


008767 






BR 


EXPTEN 




9tB6 


028482 


081120 




EXPNECI 


BNC 


MAKFLIT 




9187 


028484 


089783 






TST 


HJ 




91B9 


028486 


081116 






BNE 


MAKFLIT 




91B9 


028418 


028427 


177775 




CMP 


R4, 8, SCALAR 




911B 


828414 


1B3H3 






BHIS 


MAKFLIT 




9111 


028416 


016983 


0B0B20 




MOV 


LlNE(K9),n3 




9112 


028422 


089381 






DEC 


"; 




9113 


828424 


828183 






CMP 


RliRS 




9114 


828426 


103492 






sue 


MAKLNO 




9119 


828438 


121127 


880284 




CMPB 


tf<t),«.G0SU8 




9116 


828434 


80144? 






BEO 


MAKLNO 




9117 


828436 


121127 


888209 




CMPB 


(Kill*, GOTO 




5118 


828442 


001444 






BEO 


MAKLNO 





ANTISSA ANO EXPONFNT 



8AS1CL MACXll VB21 



9119 
512B 
5121 
5122 
5123 
5124 
5129 
9126 
9127 
9126 
9129 
9130 
5131 
5132 
5133 
9134 
9135 
5136 
9137 
5138 
5139 
5148 
5141 
5142 
9143 
5144 
5149 
9146 
5147 
9148 
9149 
9198 
9151 
9192 
9193 
5154 
5155 
5156 
5157 
9198 
9159 
5168 
9161 
9162 
5163 
5164 
9169 
9166 
5167 
5168 
5169 
5178 
5171 
5172 
5173 



020444 
020490 
028492 
028496 
028460 
828464 
028466 
028478 
028472 
028474 
028476 
828982 
028984 
020918 
028912 
020916 
028928 
020522 
020524 
020526 
020538 
028932 
028534 
028536 
020540 
020544 
020550 
028994 
828996 
828960 
828964 
020966 
028572 
028974 
028680 
020602 
020604 
028686 
020612 



121127 
081441 
121127 
081436 
121127 
001433 
009281 
089803 
009704 
082463 
028427 
00308] 
112721 
008487 
112721 
088304 
020100 
18S818 
110421 
000304 
110421 
089726 
020108 
181802 
088167 
0B0167 
380167 
089201 
011903 
02036$ 
183013 
021327 
183483 
062703 
080767 
021304 
001414 
062703 
088762 



22iMAR.73 
080Z24 

880242 
888277 



088377 
880379 
080376 
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176636 
177266 

177970 



177779 

880812 



828614 06270] 080884 



020628 028369 080812 





CMPB 


(Hlli'iCALL 




BEO 


MAKLNO 




CMPB 


(Mil, #, THEN 




BEO 


MAKLNO 




CMPB 


(Mil. », LIST 




S£0 


MAKLNO 




INC 


"1 




CLR 


R3 




TST 


R4 




9LT 


MAKFLIT 




CMP 


R4,«377 




BGT 


MAKEI2 


tITIEROlHOVB 


• llLUl.ll'l)* 




BR 


HAKEOK 


MAKEI2I 


"OVB 


•ilLII2i(Rll* 


tlTCOMNISHAB 


R4 




CMP 


RJiRB 




BHIS 


TRNER4 




M0V9 


R4,|Ri)« 




SUAS 


R4 


MAKEOKI 


HOVB 


R4,(B11* 




TST 


(SP)* 




CMP 


Ri,Re 




BHI 


TRNER4 




JMP 


THANLUP 


TRNER4I 


JMP 


ERRTRN 


ERR0V3I 


JMP 


ERR0V2 


HAKLNOI 


INC 


"l 




HOV 


(R9)|K3 


LNOSRCHICMP 


R3,L0FREE(R5) 




BHIS 


STOLNO 




CMP 


(RSIif .SCALAR 




BLO 


ISLNO 




ADD 


•12, R3 




BR 


LNOSRfH 


ISLNO) 


CMP 


(R3I,H4 




BEO 


FOUNDLN 




ADD 


«4,R3 




BR 


LNOSRCH 


STOLNOI 








.JFDF 


SNOSTH 




ADD 


»4,R3' 




lENDC 






.ifndf 


INOSTK 




AOO 


•6,R3' 




CMP 


R3,L0STR(H9) 




BLO 


SfOAOK 




JSR 


PC.UPPACK 




CMP 


R3,L0STH(K9) 




SHIS 


EKR0V3 


STOAOKl 


TST 
.ENOC 


.(R3) 




CmP 


r3iHIFrEE(r5) 



iCHtfK THAT THE SYHTAB SPACE 
IIS 'lOT OCCUPIEO BY STRIMG5 

I IF IT IS, MOVE STRI'ICS UP 
lAMO CHECK ROOM ENOUGH A^^AIN 

I ADJUST SYMTaB ADDRESS 
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5l'« 


320624 


101351 


• 


BHI 


5175 


029626 


^10365 


000114 


MOV 


5176 


026632 


0(9043 




CLH 


9177 


020634 


010443 




"OV 


5176 


020636 


209726 




rOUNOLNlTST 


5179 


020640 


000167 


177422 


JNP 


5188 


020644 


J057O3 




HAkFUITI 


5161 


020646 


001002 




BNC 


5162 


020650 


!'09704 




TST 


5163 


020652 


201714 




0EO 


5164 


020654 


604767 


174674 


CAUNRM) JSB 


5185 


020660 


112721 


000374 


HOVB 


5166 


020664 


000303 




9W«B 


5167 


020666 


?2010» 




CMP 


5166 


020670 


103329 




BHIS 


5169 


020672 


110321 




HOVB 


5l»B 


020674 


000303 




SHAB 


5191 


020676 


110321 




HOVB 


5192 


020700 


000706 




BR 


519J 










9194 











CRROVS 

rSiioFrCCIrS) 
•<R3) 
R4,.(R3I 

RETLNO 

TST R3 

CALNRR 

R4 

tlTlERO 

PC, NORM 

•iPtllitRll* 

R3 

R4|R0 

TRNER4 

R3,(Ri)« 

Rj 

R3,(R1)« 

LITCOHN 
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5199 
9196 
9197 
9199 
5199 
5209 
5201 
5292 
1203 
5204 
5205 
5206 
5207 
5208 
5209 
5210 
9211 
9212 
9213 
5214 
5215 
5216 
5217 
5216 
5219 
5229 
5221 
5222 
5223 
5224 
5229 
5226 
9227 
9226 
9229 
5239 
9231 
5232 
5233 
5234 
9235 
9236 
5237 
9238 
5239 
9240 
5241 
5242 
9243 
5244 
5245 
5246 
5247 
5246 
5249 



PACE 67 

.IFNOf SNPSTK 



SUBROUTINE 'UPPACK* CALLED Bv JSP PC 

PACKS STBIWO STOXAOe TOHAHO HICH CIHr 

R0 UNUSED 

R1,R2|R3 PRFSFRVEO 

R4 UNUSED 

R5 MUST POI>'T TO USER AREA 

SP SOES If DEEPER AFTER JSR 



lOET END OF THE NEXT STRING 
KLAST BTTE CONTAINS THE LENGTH) 



lAPORESS BACK PTR 

IGET IT IN R3 

ICHECK REL TO SYHBOLS 

ITES, ADO BASE OF SYH TAB 
IHAKE SURE IT"S WOT TOO HJ 

I IN STACK IS OK 

UN ARRAYS IS GOOD 

I IN rSEE STQHAOE IS BAO 



UPPACK 1 MOV 


"it'lSPl 


MOV 


R2,>(SP) 


MOV 


R3,.<SP) 


CUR 


•(SP)' 


MOV 


HlSTR(R5)|Rl 


MOV 


H|rREE(R9),R2 


MOV 


R2,M|STR(R») 


UPPLOOPieiR 


tSP) 


B|se 


•(RlliISP) 


BNE 


UPPN2N0 


UPPBADt CMP. 


R1,L05TR(R5) 


BHI 


UPPLOOP 


MOV 


R2,LDSTRIR5) 


TST 


(SP)* 


MOV 


(SP)*,R3 


MOV 


(SP)»,R2 


MOV 


(SP)»,R1 


RTS 


P5 


UPPN2R0ISUB 


(SP),Ht 


CLR 


R3 


BISB 


•(Rtl|R3 


SHAB 


R3 


BISB 


•<R1)|R3 


SUAB 


R3 


DEC 


Ri 


BIT 


»»i»i 


BEO 


1** 


DEC 


R< 


ADO 


(H9),R3 


CMP 


R3,P0I,(R9I 


BHIS 


UPPBAD 


CMP 


R?fSP' 


BHIS 


UPP6000 


CMP 


R3,ARHArS|R9) 


BHI 


UPPBAO 


CMP 


R3,H|FREE(fl5) 


BHI 


UPPGOOO 


CMP 


R3,L11FBEEIR5) 


BHIS 


UPPBA^ 


CMP 


»3,(R?> 


BLO 


UPPBAO 


UPPSOOOIAOO 


•4,(SP) 


CMP 


(R3),Ht 


BNE 


UPPBAO 


ADD 


(SP),K1 


SUB 


Rl,(»31 



IBELOU SYMBOL TABLE IS BAO 
ICOO" STRING. HOVE IT UP 



|(nO>'lT GARBAGE COLLECT IT) 
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9250 
9251 

9292 
929] 
9294 

9299 

9296 
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too 


"»ll"?) 


HQVB 


• (Rt)l>lll2) 


DEC 


ISR) 


BST 


,'* 


BR 


UfPSlO 


,ENOC 
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9297 








9291 








929» 








926« 








9261 








9262 








9263 


020702 


309002 




9264 


020704 


.109003 




9269 


320706 


009004 




9266 


020710 


122027 


000040 


9267 


020714 


301779 




9268 


020716 


124027 


000060 


9269 


020722 


103427 




9278 


020724 


121027 


000071 


9271 


020730 


101024 




9272 


020732 


020327 


014630 


9273 


020736 


101439 




9274 


020740 


009200 




9279 


320742 


009702 




9276 


020744 


002761 




9277 


320746 


005202 




9278 


020790 


000757 




9279 


020792 


304767 


174460 


928B 


020756 


309046 




9281 


020760 


112016 




9282 


020762 


162716 


000060 


9283 


020766 


062604 




9284 


320770 


309903 




9299 


020772 


309702 




9286 


020774 


301749 




9287 


320776 


309202 




9288 


021000 


300743 




5289 


021002 


122027 


000096 


5290 


021006 


301024 




5291 


321010 


309702 




5292 


321012 


001003 




5293 


021014 


^12702 


100000 


5294 


021020 


800733 




9299 


321022 


303000 




5296 


021024 


122027 


000040 


5297 


021030 


001775 




5298 


021032 


124027 


000060 


9299 


321036 


103409 




93190 


021040 


121027 


000071 


9301 


321044 


101002 




9302 


321046 


309200 




5303 


321090 


000769 




9304 


021092 


122027 


000096 


5309 


321096 


301400 




5306 








5307 


021060 


309046 




5308 


021062 


124027 


300109 


9309 


021066 


001096 




9310 


021070 


020169 


000020 


5311 


021074 


301453 





SUBROUTINE <VA|,I 



VALI 

CI" 
CLR 
CI.R 
NUOICITICNRB 
BEQ 
CMR8 

a^o 

CHPB 

BHI 

CMP 

BL8S 

INC 

TST 

BLT 

INC 

BR 

CANflTl JSR 
C|,R 
HOVB 
SUB 
' >0D 
AOC 
TST 
BEO 
INC 
BR 

NOTOIOI CXPB 
BNE 
TST 
BNE 
MOV 
BR 

DOTROTI 8CT 

OOriCNOICHPB 
BEO 
CHPB 
81.0 
CMP8 
BH| 
INC 
BR 

PASTOOTICMPB 
BEO 

D0T3A0I 

NOTDOTI CU" 
CNPB 
BNE 
C»P 
BEH 



CA|_lEO BV JSP R7 

CONVERTS AN ASCII STRING AT (R0) 

TO A VALUE l^' P3.R4, ANO 

AN EXPONrNT IN RZ 



R2 
R? 



<R0)*i»BL 

•IR0)i»'0 

NOTOIG 

|R0)|i><9 

nOtois' 

R3, •14630 

CANFlf 

R0 

R2 

NUOICIT 

R2 

NgOIGIT 

PC,MPTtEN 

•(SP) 

(R0)*l(SP| 

•'0,(SP) 

(SP)«,R4 

R3 

R2 

NUOIGIT 

R2 

NMOIGIT 

(R0)«iiir> , 

NOTOOT 

R2 

OOTROI 

•100000, R2 

NljOIGlT 

OOTIGNO 

(R0)4|<SI. 

•<R0>i^i» 

PASTOOT 

(KB), OB 

PASTOOT 

RB 

OOTIGNO 

(RB)»i»', 

OOTBAO 

• (8P) 
•(ROIl^'E 

NOEXPON 

RllLINE(R9) 
NOEXPON 



lOEC PI.ACES+100B00 OR TRA1I.IWG JEROtS, 
HIGH OROER OF 32 9IT INTEGEB', 
ILn» O'DER OF 32 8IT I^TrGEK, 



lir HIGH UORO GREATER THAN THIS 

ITHE" CANT FIT ANOTHER OtCIT IN 32 BITS, 

ICANT FIT DIGITS IN MANTISSA, BIT ITS 
lAFTER POINT SO MEEDNT Cf'UNT THE", 
ICANT FIT DIGITS IN MANTISSA SO MUST 
IKEEP TRACK OF TRAILING ?EROrS', 



)A«U AOO IN THE DIGIT, 



IFITS IN MANTISSA, 

IFIT5 IN MANTISSA 9UT AFTER POINT So 

ICOIJ'IT DECIMAL PLACES, 



lOOT C9MES AFTER SHORT NIIMRER SO GET 
IREABY TO COUNT DECIMAL PUCES', 



lOOT COMES AFTER FULL MA'iTISSA WITH 
(TRAILING 8ER0ES SO ICNO»E MflRE OIGITS, 



lOOT CI>MES UHILE IGNCRINT THAILIWG 
(AFTER POINT WITH FULL MANTISSA (EHRO" , 



INO 'El AFTER THE NUMBER 

(IF ITS THE FIRST THING 5N THE LINE IT 

(MUST ac A LINENO SO >E' IS ILLEGAL, 
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9312 
9313 
9314 
9319 
931» 
9317 
9318 
931» 
9320 
9321 
9322 
9323 
9324 
9329 
9326 
9327 
932a 
932« 
9330 
S331 
9332 
9333 
9334 
9339 
9336 
9337 
933S 
9339 
9340 
9341 
9342 
9343 
9344 
9349 
9346 
9347 
9346 
9349 



321076 
02il«0 
321104 
B21106 
421112 
921114 
021120 
021122 
021124 
021130 
021134 
021136 
321142 
021144 
021190 
021192 
021154 
021196 
021160 
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• 177960 5 


TPB 


• 177966 G 


tPCN 


007006 


Tpeo 


007022 


TPHO 


■ )tl0100 


TPINT 


0)6642 


TPNXT 


006670 


TPS 


a 177964 


THAN 


017394 


TRANLU 


0174)2 


TRANVA 


0*7406 


TRFNBA 


017772 


TRNER4 


020944 


TRNFN 


)17734 


TRNPC 


0*7904 


TRYASN 


017906 


TRYtCM 


006734 


TRYKWO 


017456 


TRYNUH 


0*7430 


TSTSTK 


011620 


TSTSl 


011624 


TSTS2 


011632 
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8)67*0 
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006724 


Tl 


> 000096 G 


T2 


< 00)060 G 


T3 


• 0)0062 G 


UAASR 


012924 


UAJMP 


012936 


UANJNP 


0*2532 


UATSTA 


)*2562 


UATST0 


012942 


UAT5TJ 


0129S2 


u*i 


B12192 


Utt0 


IH22M 


Uilik 


01232(1 


UAieB 


012342 


UA*)C 


012392 


UAD.S 


0*2364 


UA12 


012402 


UA17 


0124*2 


U4*7A 


012424 


UA17B 


0*2442 


UA17'' 


012452 


UA17F 


012472 


UA*» 


)i25ie 


UA2) 


0*2970 


i)A21 


0129*6 


UA23 


012600 


UA4 


)12202 


UA9 


0*22*0 


IIAP 


012222 


UA9 


012250 


UlNTEG 


0115*2 


UMINUS 


0*0630 


UNARY 


011474 


UPARRO 
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SAOR ' 
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SDVR 
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»JR 


•• 


tLPSSJ 


• 000040 


tH|,R 
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JfOLSH 


c 


tPPSSi 


> 000130 


(PRSSi 


• 0000J0 


SSSR 


> G 


tSTKSi 


■ 000200 G 


.Aes 


■ 000273 
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■ B0B27a 


iCAUI. 


• 000224 


.CUEAR 


I 000304 


.COHHA 
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iCOS 
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.DATA 
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.OIN 
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Ieg 
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.EOF 
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ttO 
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.f 
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•INPUT 
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.INT 
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lUIST 


000277 


.uos 


• 000272 


■ UPAR 


■ 001299 


,"INUS 


000234 


.NE 


• 000290 


.NEXT 


> 0002^1 


,OUB 


000302 


.PUi^s 


• 000232 


.POUNO 


• 000261 


,R»NO0 


000216 


,RE«0 


I 000222 


,REH 


* 000220 


,RETUR 


000213 


,RNp 


• 000264 


.RNOL 


• 000263 


,RUN 


000300 


.SAVE 


• 000301 


.SCAIA 


> IT7779 


,SEN1 


00023« 


,SGN 


• 000279 


,$tN 


• 000269 


,SOR 


• 0002»7 


.SQUOT 
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.STAR 


■ 000230 


,STOP 


> 000214 


,SV»H 


• 177777 


T«B 


> 0002^6 


,TEXT 


> 000377 
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• 000242 


.TO 


I 000240 
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■ 000227 


. 
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aiitH 
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I 002901 


^PPO'C 
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■ 000261) 
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•.EOt 
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■ 000262 
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ERRORS OETECTEOl 



BASICk HACXll V021 22«M4N«73 16109 PACE 70<9 



hun-timei 
Core useoi 



72 SECONDS 
4k 



AOOINT 


2231 


224011 




«Doovr 


22*3 


22460 




<0OPOS 


?2«6 


225»« 




ADDSTii 


1562 


2229» 


2973 


A0D2ER 


22«7 


2256« 




APSTKl 


«937» 


4839 


4642 


«LLtX| 


2351» 






AkLLOO 


;294« 


22'1 




AILNOA 


228i 


828«i 




AWLOC 


9T2 


?276« 


4030 


ALLOCl 


9*1 


947» 




AULOCJ 


957 


963< 




Ai.o(; 


«J 


3166 


33»7 


AHATCH 


4690 


493l» 




ANca 


79 


3093* 




AHAArS 


7J 


3t4P 


319 


ASSICN 


«73 


1163* 




ATAN 


63 


3l»l 




ATNfN 


2787 


3iai» 




eiciN 


!4I>4« 






aCND 


99a« 


3667 


4976 


ersPEC 


362« 


2031 


2033 


SGETl 


959» 


3656 


4979 


EIGET2 


96»f 


3696 


4981 


Bk 


29a« 


1236 


1249 




52»6 


9S13 


5321 


eOHH 


2lt 


2403« 




BOHSOO 


2417 


2420* 




aoHbjH 


2421 


2441* 




eOMBNC 


2427 


243H 




SOHBNX 


241611 


2419 




BDHBOK 


243g 


2437» 




eroi, 


2740 


274Sf 




BfUT 


36l» 


3663 


4974 


9STRT 


357« 


3669 


4976 


BQretR 


64] 


653 


2022 


BI^FENP 


3664 


3673* 




BvrTP 


2021 


2456 


24791 


CALL 


1067 


I0a0« 




CALLl 


109S 


t09e# 




CALLCK 


1116# 


1155 




CALLMt 


ll2li 


1124 




C»l.tN2 


1130> 


1133 




CALUNH 


U22 


1131 
1104 


11911 


CAI.LP 


11II2* 




CALLX 


1129 


ii3;« 




CAtNRM 


51»l 


;i6M 




C«LOC 


3392 


339ri 




CANFIT 


5273 


927«( 




CAPHET 


4979 


«9«2f 




CCEXit 


2501 


2903 


2909 


CCMES" 


209» 


21H» 




CEXP 


3355 


3399« 





2142 



1670 



4983 



2629 



2146 



1736 



2169 



4174 



2189 



4893 



2907 



2910 



2913 



2916 



Z9Z2P 



CMKCHR 


2298 


2:e00 


3940 










CHKISt 


685 


1766 


29360 










CHKOSE 


693 


1605 


29400 










CUEAR 


646* 


668 












C^HNLP 


3671 


677 


1019 


1446 








CUMNPP 


366« 


674 


1014 


;447 








CUHNTT 


329* 


326 


697 


975 


1013 


1701 


1644 


CWRtCH 


2070 


20771 












CURFRE 


26e; 


26271 












CURLOO 


2604« 


2625 












CUROK 


26617 


2624* 












CURVAR 


446 


693 


912 


2401* 








CNCFLC 


346« 


349 


455 


1034 


t038 


2021 


3903 


CNOFLO 


349* 


350 


2026 


4294 


4412 






COOC 


317« 
4959 


319 


492 


697 


870 


913 


1017 


coionc 


1607 


140?« 












COLUMN 


76 


3244 


329 


657 


496 


1496 


1439 




24(16 


4297 


4299 


4299 


4301 


4309 


4406 


CohCHK 


2539 


Z3*X» 












COHIS 


21C0 


21174 












COHTAB 


4990 


4692 


49940 










COS 


43 


3176 












COSFN 


2795 


31764 












CR 


297» 


640 


666 


1199 


1195 


1742 


1803 




4857 


4866 


4923 


4979 








CHUFmE 


2106 


21144 












OEFOUN 


930« 


1012 












OEFOOT 


924 


t003« 












DELNSC 


2103 


2112* 












OEVERR 


694 


4625 


4630 


46590 








D|HDON 


928 


10130 












DIHCOT 


922 


9320 


974 










DlMtOb 


914* 


931 


976 


993 








OlMNON 


915 


9210 












OIHSCt 


969 


9720 












OIVLOO 


2649t 


2694 












OIVTEN 


24474 


434y 


4494 










OOAULO 


951 


9670 












DOCHAR 


39J4 


3936* 


3944 


3947 








OOtTNO 


2916 


2920 


2925 


29400 








DOKSC 


4302* 


430; 












OOPUT 


2023 


2025 


2027 


2029* 








O0T9A0 


5305 


531960 












OOTIGN 


5299 


52940 


9303 










DOTHOT 


9292 


52990 












tCROBA 


2091 


2109* 












tCHOSP 


347« 


346 


442 


2045 








EiOICUC 


735« 


742 












EOICON 


758« 














CDICHO 


756 


7910 












EDIjnP 


927 


9400 












EDIXME 


691 


694 


7030 











2407 



11«6 



1677 



1955 



1710 



nn 



1947 



1714 



1759 



3V56 



eoinoo 


7<9« 


794 










EDInOV 


762« 


764 










tOIMVV 


9«9« 


HI 










EOIOVE 


723 


743» 










EOIPtS 


72H 


729 


731 








tDIPUT 


7B9 


729 


74»» 








EDIRLC 


a2«« 


839 










EOIRLO 


929 


839 


939» 








EOIROO 


909* 












S.OIS«M 


757 


789 


819« 








EDISKI 


7B6« 


711 


717 


719 






EOISRC 


699 


732 


7B7» 








EDIT 


6ag< 


7B4 


840 


889 


il92 




EOITU 


681 


689» 










ENO 


19«9 


lt89» 










ENOiB 


94e2« 


9409 










£NOCR 


4924 


493911 










ENOOUO 


4922 


4927* 










ENOSOU 


4939 


4933* 










Eor 


1869 


1186» 










ERtDO 


2292 


3163* 










ERCHiN 


2944 


2990 


2553 


2999* 






EREXP 


3l6l« 


3194 










ERLOO 


2983« 


3187 










ERPDBZ 


sesBf 












ERPDll 


3194« 












eRR4U0 


1449 


t463f 










ERRiGt 


3429 


34e7» 


3499 


3901 


3903 




ERRtRA 


2287 


2289 


2294 


2392 


2309 


2397 235511 


ERRARS 


73 


2384» 


3497 








ERROAT 


1791 


1996 


1929» 








ERROEt 


1336 


134l« 










ERRDEF 


994» 


1984 


1909 


1919 






ERRDIM 


933 


938 


943 


949 


993 


999 96; 966 


ERRDIV 


2983 


3879» 










ERRtXP 


3257 


3349« 










ERRFNl 


1189 


1113 


1117 


1129 


1137 


1149* 


ERRFPU 


82 


299 










ERRGO 


1329 


1399f 










ERRnlX 


73 


3BB7» 










ERRNEX 


1938 


1932 


1541 


15«3 


1545 


1990« 


ERROv; 


793« 












ERR0V2 


793 


9044 


;e89« 


5149 






ERR0V3 


9149» 


'1'4 










ERROVR 


3164» 


3283 










ERRP02 


3999 


Sl47t 


31»4 








ERRPD9 


12B9 


IZ'J 


12»9» 








ERRPD4 


3401* 


3413 


3439 








ERRP05 


2959 


<«t2« 










ERRPOU 


73 


1299 


2745 


2993* 


2969 


2962 3147 34)11 


ERRRET 


1366 


1372 


139e« 








ERRRUN 


1929* 












ERRSSt 


3749 


3791 


3765 


3767 


3777« 





971 



ERRSS2 


2979 


2993 


2897 


29004 


2904 


3777 


















ERRSS3 


2909 


4039 


4039 


4041. 


4067* 




















ERRSXl 


1049 


1097 


1099 


U9« 


1149* 


1159 


1169 


1173 


12B5 


12117 










ERRSX2 


1939 


1949 


1999» 


J»t2 


1709 


1715 


















ERRSX3 


3756 


3769 


3771i 
























ERRSX4 


2779 


29290 


2983 


2999 


2922 




















ERR9X5 


889 


1293 


1359 


;9B7 


1599 


1999 


2597 


2925 


3012* 


3243 


3407 


3771 


4720 




ERR$X6 


12»1 


1311 


1325 


1327 


t399« 


1363 


1394 


1399 


14»1 


1412 


1426 


1434 






ERRSX7 


1255 


1263* 


1269 


1271 






















ERRSX6 


1770 


1774 


1842 


1959» 


1990 


1925 


















ERRSX9 


3207 


3240 


3243» 
























ERRSXA 


3407* 


3419 


3512 
























ERRSYN 


73 


984 


1149 


3011» 






















ERRTR7 


4968 


5979» 


























ERRTR8 


19(19 


189611 


























ERRTRN 


972 


1686 


4920 


4998 


4961 


4966 


49694 


4977 


5070 


5144 










ERRUPN 


1149 


2780 


3205 


3415 


34994 




















ERSQR 


2382» 


3179 


























ERST4R 


2979 


31»2» 


3291 
























ERSX10 


1482 


19974 


























ERSX12 


2542 


2597« 


























tVAL 


79 


ll»4 


1202 


1211 


1277 


1403 


1413 


1427 


15""0 


1629 


1734 


3541 


27394 


2917 




2971 


2989 


3195 


3233 


3417 


3906 


3741 


37^7 














EXECUT 


878 


1919 


1036* 


1049 


1075 


1175 


1320 


1340 


1374 


1514 


1581 


17!»4 


1847 


1926 


EXIT02 


2139 


2137 


2139 


2141 


21444 




















EXP 


63 


3193 


3399 
























EXP0I8 


5316 


5319 


532111 


5339 






















EXPOUN 


5324 


9326 


5339)1 
























EXPfN 


2788 


3183» 


























EXPNEtt 


5192 


9196* 


























EXPOK 


5344 


534r« 


























tXPTEN 


5976 


9099« 


5105 
























FACl 


76 


326« 


327 


1279 


1419 


1421 


1490 


1491 


1495 


1552 


1564 


15«5 


1836 


2239 




2252 


2253 


2254 


2297 


2262 


2263 


2264 


2429 


2434 


2435 


2436 


2543 


28J16 


V910 




2912 


2913 


2979 




2914 


2956 


2964 


?966 


?97B 


2997 


3225 


32'i9 


3254 


3291 




3309 


3309 


3318 




3993 


3591 


3749 


3764 


3819 


3943 


3951 


1862 


3S78 


39P3 




3989 


3974 


3990 




3996 


4000 


4149 


4151 


4192 


4165 


4170 


4171 


4172 


4391 




4394 


4402 


4418 
























f;ac2 


76 


327« 


329 




1429 


1422 


1492 


1493 


1497 


1553 


1563 


1»»6 


1739 


1837 




2242 


2244 


2249 




2296 


2259 


2260 


2459 


2431 


2432 


2545 


59-7 


SB'S 


2814 




2919 


2884 


2996 




2919 


2953 


2969 


2971 


7996 


3226 


3260 


32*2 


3268 


32S5 




3289 


3399 


3323 




3999 


3790 


3766 


3933 


39'!a 


3860 


3861 


3674 


3876 


3879 




3982 


3986 


3975 




3993 


3999 


«1«« 


4145 


4147 


4148 


4153 


4154 


4164 


41f 7 




4169 


4396 


4J99 




4403 


4416 


4779 
















FF 


296« 


997 


























FJLtCH 


352* 


353 


2072 
























FILUCO 


71 


359« 


351 


2960 


2962 


2074 


















FlUUNO 


35H 


352 


2074 
























FIXCl,! 


3590 


3597* 


























FURET 


3584 


3992 


359911 
























FIXTST 


3592 


3591< 


























FIXUP 


2239 


3990» 


























FUE 


3607 


36144 



























fUINE 


984 


1324 


3606* 














ruiT 


2753 


2812* 
















F\,X 


3613 


3616* 
















FNCMK 


393g 


3999* 
















FNFN 


2868 


3401* 
















rNNOCO 


3414 


3497* 
















rHINUHE 


3S««« 


















FNRCOM 


3948« 


















FNREPL 


3444 


3493* 
















FNHLUP 


3515« 


3996 
















TNRSNU 


3J49 


3994* 
















FNRSSC 


353l# 


















FNSWtP 


S41»i 


3486 
















FOR 


1951 


»3»1« 
















FORCO 


tSBS 


1999 


1916* 














FORGOC 


1SB2 


1919* 
















FORSTL 


1»»4» 


















FORUOO 


143? 


1439* 
















FORITU 


1903 


1909* 
















FORNEX 


1491 


1472* 
















FORNOU 


144g 


1446 


1448* 














FORONE 


1424 


1439* 
















FORSKI 


t43*t 


1493 


1496 


1462 


1474 


1489 








FORiEN 


1996 


1919* 
















FOUNOU 


9199 


9179* 
















FOUNOV 


9926* 


















FRPRES 


2237 


2»8l 


2989 


3211 


3259 


3346 


3386 


3989 


3996 36Z3* 


FPPS4V 


2233 


2976 


2984 


3298 


3293 


3314 


3329 


3377 


S946 3994 


FRSTDU 


4399 


4304* 
















FVNtH 


3179 


3177 


3189 


3182 


3189 


3188 


319»« 






FWNOK 


3219 


3213* 


3399 


J499 












FUNRET 


3219 


3222* 
















SSMAlt 


3714 


3716* 
















HTIBT 


2161 


2189 


3696* 


3699 












CETSay 


2999 


2981 


3699* 














GfTBTT 


3697 


3699* 
















OETCMJ 


3699* 


3718 
















GETCHt 


368»» 


3936 
















GETViR 


79 


116J 


1779 


1994 


3734* 










GETX 


3694* 


3709 


3719 














GSEXEC 


1949 


1847* 
















GONOS« 


1331 


1339* 
















G9SUS 


1991 


1323* 
















GOTECH 


2981 


298** 
















GOTO 


1992 


129T 


1299 


1261 


1293 


1299 


1297 


1313 


1319 1317 


COTOFN 


2761 


2962* 
















COTONE 


3937 


3939* 
















GSBQTR 


323* 


32* 


734 


749 


1332 


1338 


1364 


1368 


2632 


HORJTU 


4611 


4614* 
















HJFREE 


319* 


316 


791 


2393 


2311 


2391 


2629 


9943 


9173 


MISTR 


340* 


343 


2396 


2631 












lOEV 


344* 


793 


1763 


1,844 


2984 


3798 


371J 


3»26 




IF 


1993 


1202* 

















3635* 



1324* 



IFCONP 

I'LEnO 

IFLE9R 

1FI,GTR 

IFLLTR 

IFtOOP 

IFNUME 

IFSEO 

tFSCT 

IGNORE 

UITl 

II,1T2 

aiTCO 

IHMfD 

IMNSTM 

INITBF 

INITSC 

INPENO 

INPtOL 

INPSOO 

INPLOO 

INPNEM 

INPNGU 

INPQK 

INPPC 

INPRTR 

INPStO 

INPMT 

INPTBl 

INPYES 

INT 

INTl 

INTIA 

INTIB 

INr2 

INT2A 

INT5 

1NT6 

INT7 

INT8 

1NT9 

INTEXT 

INTfN 

INTRTS 

lOINIT 

lOUtlt 

islno 

ISNUM 
IS««« 
lf»8 
IT»BL£ 

irsiK 

JNPdOY 



1233 


1239 


12«» 


1239 


1243* 




1291* 


1289 




1286 


1397* 




1267 


1287* 




1232* 


1237 




1293 


1268* 




1242 
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3905 


3511 


3513 


3606 


S6"9 


3624 


3636 


3662 


3663 


3667 


3669 


3692 


3696 


3698 


3707 


3739 


3740 


3752 


3769 


3822 


3831 


3832 


3833 


3934 


3836 


3839 


3947 


3949 


J950 


3972 


3927 


393B 


3931 


3949 


4095 


4086 


4l?7 


41P9 


4111 


4115 


4117 


4121 


4126 


4127 


4128 


4140 


4145 


4147 


4149 


41?1 


4152 


4193 


4154 


4158 


4295 


4302 


4306 


4307 


4306 


4310 


4375 


43*0 


4413 


4474 


4492 


4494 


4497 


4901 


4507 


4913 


4916 


4519 


4521 


4537 


45'9 


4974 


4576 


4979 


4979 


45H1 


4583 


4984 


4614 


4617 


4619 


4624 


4626 


4679 


4689 


46V4 


4717 


4719 


4730 


4731 


4732 


4733 


4735 


4739 


4740 


4742 


4744 


4747 


47^0 


4896 


4957 


49^0 


4961 


4969 


4903 


4918 


4919 


4925 


4927 


4931 


4933 


4935 


4936 


4937 


4952 


4956 


49'!7 


4960 


4962 


4963 


4964 


4965 


4979 


4976 


4980 


4982 


4943 


9066 


5066 


5a69 


5B79 


90l>9 


5112 


9113 


5115 


9117 


9119 


5121 


5123 


5125 


5131 


5133 


5135 


5137 


6139 


9141 


5146 


9185 


5197 


9199 


9191 


5310 


















SISAVE 329» 


930 


3624 


3636 






















«2 272» 


734 


741 


'748 


793 


759 


759 


760 


7«2 


765 


767 


769 


770 


771 

932 


772 


775 


777 


779 


805 


9tl9 


909 


913 


916 


821 


924 


929 


931 


833 


834 


936 


937 


954 


955 


856 


957 


959 


860 


961 


962 


994 


9?6 


914 


916 


917 


919 


919 


920 


921 


923 


929 


927 


932 


934 


935 


936 


967 


970 


1009 


1006 


1007 


1011 


1040 


1042 


1B43 


1044 


1046 


1047 


1069 


1070 


10'1 


1072 


1074 


1093 


1094 


1096 


1109 


1112 


1114 


1116 


1121 


1130 


1136 


1142 


1154 


1159 


1160 


1161 


1162 


1219 


1222 


1224 


1229 


1232 


1245 


1251 


1252 


1294 


1297 


1298 


1290 


1307 


1309 


1310 


1329 


1339 


1393 


1395 


1396 


1397 


1398 


1472 


1439 


1442 


1443 


1444 


£445 


1447 


1459 


1459 


1459 


1460 


1461 


1473 


1476 


1477 


1479 


1479 


1929 


1526 


1527 


1529 


1529 


1531 


1940 


1942 


1544 


16fl6 


16C8 


1710 


1712 


1714 


1719 


1729 


1729 


1730 


1732 


1734 


177J 


1775 


1776 


1777 


1793 


1818 


1989 


1991 


t|92 


1993 


1903 


2241 


2242 


2244 


7249 


229B 


2251 


2252. 


2260 


2261 


2262 


2320 


2321 


2322 


2323 


2325 


2326 


2327 


7450 


2491 


2452 


7453 


2454 


2495 


2459 


2461 


2469 


2479 


2490 


2491 


2482 


2483 


2945 


2549 


2551 


2954 


2746 


2749 


2750 


2792 


2754 


2756 


2798 


2760 


2771 


2772 


2773 


2774 


2776 


2777 


2778 


27?1 


2933 


2934 


2635 


2944 


2946 


2970 


2909 


2914 


2919 


2923 


2974 


2976 


2978 


2930 


2940 


2941 


2942 


2943 


2944 


2945 


3292 


3296 


3297 


33J11 


3327 


33!>9 


3324 


3376 


3390 


3399 


3409 


3411 


3414 


3424 


3426 


3427 


3429 


3435 


3437 


3440 


3441 


3442 


3443 


3917 


3918 


3525 


3527 


3928 


3929 


3531 


3933 


3534 


3535 


35152 


3551 


3952 


3553 


3980 


3999 


3606 


3609 


3609 


3610 


3611 


3629 


3637 


3659 


3640 


3661 


3670 


3673 


3689 


3692 


3696 


3702 


3709 


3709 


3712 


3713 


3715 


3734 


3735 


3736 


3737 


3752 


3753 


3755 


3790 


3791 


3792 


3793 


3794 


3799 


3829 


3940 


3949 


3957 


3961 


3964 


3932 


3933 


3939 


3939 


3949 


3946 


4014 


4016 


4019 


4033 


4034 


4038 


4040 


4042 


4064 


4065 


4B96 


4099 


4090 


4093 


4099 


41'1 


4117 


4119 


4125 


4127 


4129 


4130 


4135 


4137 


4157 


4199 


4199 


4160 


4162 


4164 


4167 


4169 


417B 


4176 


4178 


4334 


4347 


4350 


4417 


4450 


4499 


4471 


4486 


44«9 


4503 


45JI6 


45!»9 


4514 


4529 


4530 


4532 


4933 


4934 


4971 


4972 


4973 


4989 


4989 


4687 


4699 


4763 


4775 


4777 


4779 


4779 


4959 


4896 


4961 


4896 


4887 


4892 


4893 


4995 


4931 


4972 


4937' 


4939 


4940 


4941 


4949 


4950 


4991 


4952 


4999 


4992 


4993 


4994 


5012 


5B46 


51?1 


9174 


5263 


5275 


9277 


9295 


5287 


5291 


9293 


5343 


5349 


5346 


5347 








r2S«VE. 330* 


331 


3369 


3625 


3637 




















"3 273* 


710 


713 


714 


715 


716 


71? 


724 


7?7 


729 


729 


73B 


763 


7*1 


762 


763 


772 


773 


778 


786 


787 


789 


749 


79a 


791 


iri 


8^8 


811 


912 


939 


944 


946 


948 


1101 


1102 


11)17 


1120 


1123 


1126 


1177 


1132 


1151 


1217 


1226 


1229 


1230 


1232 


1238 


1332 


1333 


1334 


1335 


1337 


1364 


1365 


1367 


1368 


1369 


1370 


1371 


1373 


1436 


1447 


1494 


1934 


1536 


1537 


1939 


1946 


1547 


1549 


1591 


1952 


1553 


1707 


1712 


1779 


1730 


1829 


1828 


1932 


1834 


1835 


1937 



1999 


1897 


1899 


1981 


1903 
2229 


1914 


1916 


1917 


1919 


1921 


1947 


1948 


1998 


1911 


1953 


1996 


1?98 


2888 


2239 


2245 


2295 


2298 


2269 


2279 


2246 


2324 


2329 


2«1 


249] 


2494 


2495 


2480 


2482 


2483 


25l»8 


2911 


2516 


2521 


2972 


2947 


2949 


Hit 


264( 


2698 


2692 


2655 


2896 


2982 


2916 


?»17 


2919 


2921 


2932 


2934 


2936 


293« 


2997 


3283 


3391 


3394 


3988 


3518 


3626 


3638 


3696 


3658 


3662 


3663 


3669 


366« 


3667 


3669 


3790 


3792 


3794 


3948 


3976 


S976 


39»i 


3982 


3994 


3986 


39»9 


399» 


3991 


3992 


3993 


4020 


4826 


4029 


4831 


4836 


4848 


4044 


4846 


4849 


4894 


4096 


4897 


4898 


4099 


4262 


4265 


4267 


4269 


4270 


4272 


4318 


4321 


4324 


4327 


4337 


4339 


4341 


4343 


4392 


4394 


4342 


4363 


43*4 


4369 


4418 


4476 


4431 


4432 


4439 


4436 


4440 


4442 


4444 


4446 


4498 


4462 


4466 


4467 


4469 


4473 


4440 


4484 


44»9 


4491 


4496 


4938 


4574 


4975 


4576 


4578 


4979 


4991 


4584 


46A6 


4696 


4772 


4«a4 


4889 


4887 


4889 


4896 


4898 


4999 


4999 


f»ri 


98"3 


98«9 


9812 


5826 


9840 


9843 


9849 


9046 


9847 


5848 


5849 


5898 


5864 


<865 


!>8«6 


9867 


9869 


5899 


911»7 


9111 


9113 


9126 


9147 


9148 


9198 


9192 


9194 


9196 


5168 


9173 


5175 


9176 


9177 


9HB 


9186 


9199 


9190 


9191 


9264 


9272 


9284 














K3SAve 331< 


332 


3221 


3397 


3399 


3626 


3638 
















1(4 2741 


787 


739 


743 


749 


798 


8lf 


928 


892 


949 


999 


968 


962 


9»4 


1116 


1139 


1149 


1289 

i067 


1272 


1881 


1889 


t9!l6 


t9("7 


1814 


2815 


2835 


2837 


2839 


2«42 


2065 


2066 


2069 


2071 


287> 


2896 


?li"0 


2tl"3 


•2ti>6 


2233 


2279 


2373 


2691 


2739 


2744 


2954 


2976 


2984 


2999 


7999 


32'>9 


3214 


3223 


3227 


3293 


3314 


3329 


3362 


336} 


3364 


3365 


3374 


3377 


3396 


3412 


3438 


3586 


3944 


3628 


3640 


3366 


3884 


3887 


3890 


4819 


4027 


4B2» 


4032 


4891 


4183 


4263 


4264 


4266 


4269 


4271 


4322 


4326 


4330 


4338 


4340 


4342 


4344 


4393 


4366 


4416 


4421 


4434 


4441 


4443 


444J 


4447 


4499 


4464 


4470 


4499 


4499 


4S?2 


4926 


4928 


4938 


4931 


4941 


46ia 


4814 


4»t9 


4627 


4685 


4697 


4878 


4983 


4889 


4889 


4913 


49«4 


49J6 


49MB 


4»t» 


4912 


4914 


4916 


4917 


4921 


492V 


4948 


91!'9 


9127 


9129 


9134 


9137 


9139 


9139 


9194 


9177 


9182 


9289 


9283 


















R4S«Ve 332* 


333 


3627 


3639 






















H» 27»« 


648 


641 


642 


644 


694 


659 


696 


697 


698 


664 


669 


6«2 


6^9 


694 


697 


783 


715 


729 


733 


734 


747 


749 


763 


771 


773 


775 


7«1 


789 


7'B 


791 


889 


886 


889 


811 


819 


933 


891 


892 


993 


B7e 


374 


879 


881 


913 


918 


919 


936 


988 


981 


181»6 


1813 


1816 


1817 


1836 


1039 


1071 


1074 


1140 


1144 


182 


1186 


1274 


12" 


1319 


1332 


1334 


1355 


1338 


1364 


1368 


137* 


1397 


1482 


489 


1419 


1428 


1421 


1422 


1436 


1444 


14«0 


1461 


1478 


1479 


I486 


1487 


1488 


489 


1490 


1491 


1492 


1493 


14V9 


1497 


1499 


1499 


1518 


1529 


1538 


1946 


1592 


953 


1999 


1961 


1563 


1944 


1972 


1975 


1999 


1986 


1547 


1688 


1635 


1677 


1781 


1782 


1783 


1716 


1758 


17!>9 


1749 


1798 


1742 


1763 


1766 


1777 


1782 


1793 


1882 


1807 


1818 


1816 


1619 


iift 


1827 


1944 


1946 


1893 


1899 


1921 


1927 


1937 


^947 


2812 


2813 


2014 


2821 


?a?6 


2899 


2899 


2868 


2!!62 


2046 


2872 


2074 


2078 


2082 


2129 


2156 


2197 


2175 


2176 


2199 


2281 


2239 


2242 


2244 


2249 


2290 


2292 


2293 


J254 


2296 


2297 


2299 


2260 


2262 


2263 


2264 


23(13 


73r"6 


2311 


2351 


2484 


2409 


2486 


2487 


2488 


2428 


2476 


2429 


2429 


7431 


2432 


2434 


2435 


243« 


2498 


2479 


2943 


2949 


2948 


2681 


2612 


26!I3 


26«4 


2677 


2629 


2638 


2631 


2632 


2633 


2636 


2806 


2887 


2888 


2810 


2812 


2913 


2914 


2915 


2835 


2979 


2884 


2892 


2896 


2983 


2914 


2915 


2993 


2996 


2964 


2966 


2968 


2978 


2971 


2996 


2997 


3219 


3228 


3225 


3226 


3258 


3268 


3262 


3248 


3294 


3289 


3249 


32'1 


33B9 


3388 


3389 


3318 


3323 


3360 


3366 


3369 


3397 


^399 


3411 


3428 


3441 


3443 


3918 


3934 


3983 


3989 


3991 


3610 


3623 


3824 


3629 


3626 


3627 


3639 


3636 


3637 


3639 


3639 


3788 


3712 


3734 


3736 


3737 


3748 


3790 


3744 


3766 


3989 


3911 


3912 


3919 


3821 


3833 


3843 


3890 


3891 


3868 


3861 


3862 


3874 


3976 


3978 


3879 


3982 


3983 


3889 


3886 


3982 


3903 


3925 


3926 


3938 


3932 


39J3 


3946 


3974 


3979 


3993 


3991 


3992 


3993 


3996 


3998 


4008 


4889 


4129 


4144 


4149 


4147 


4148 


4149 


4191 


4192 


4193 


4194 


4199 


4164 


4165 


4167 


4168 


4170 


4171 


4172 


4296 


4297 


4296 


4299 





4381 


4389 


4374 


4399 


4391 


4394 


4396 


4398 


44H0 


44"2 


44i'3 


4416 


4419 


46"4 




4686 


4607 


4618 


4612 


4617 


4629 


4698 


4691 


4699 


4716 


4763 


477B 


4772 


4779 




4779 


4995 


4899 


4963 


4973 


4995 


4999 


9043 


9845 


9863 


5064 


5111 


5147 


9149 




9173 


9175 


9318 
























HLAD 


1869 


19994 


1923 
























KCADBA 


1982 


1913 


1928 


1937* 






















Ht400U 


19164 




























RE4QG0 


19838 


1952 


























RCAOOU 


19274 


1954 


























READY 


647 


694* 


988 


989 


1839 


1199 


2441 


39H9 


4679 












READTK 


6934 


683 


2284 
























REA0Y2 


6644 


1029 


1761 


9889 


9098 




















REAFIN 


19B0 


194811 


1968 
























RE4SHC 


1999 


19478 


























REENAB 


3697 


3712* 


























REHP4C 


4985 


4999 


4970 


4972 


49754 


5878 


















RESREC 


46934 




























RESTOR 


1062 


13194 


























RLTUNO 


98644 


9179 


























RETRY 


49874 


4999 


4994 


4997 






















RETURN 


1899 


1362* 


























RETV4R 


9827 


98634 


























REVRSE 


3388 


33994 


























RNOl 


81 


336* 


337 


990 


981 


2691 


















RND2 


91 


3374 


338 


2682 






















RNOCT 


3394 


339 


968 


3982 


4629 




















RNOCOT 


926 


9804 


























RUN 


864 


9124 


























SAVCHA 


98 


3882* 


























SAVE 


665 


992» 


























SAVREC 


3921 


3925 


4374 


4399 


4684 


46854 


















SAVHGI 


2812 


2858 


2129 


2196 


2175 


46834 


















SCANPN 


894 


992 


47164 
























SCRATC 


644« 


967 


























StTLFE 


2898 


21864 


























SIN 


63 


3174 


























SINFM 


2784 


31744 


























SKIPBl 


47324 


4734 


4749 
























SKIP02 


473l» 


4741 


4748 
























SKIPilS 


4730« 


4736 


























SKIPEO 


786 


721 


939 


930 


1835 


1438 


1997 


47334 


474] 


4749 


4792 








SKIPHI 


4737 


47474 


























SKIPRT 


4739 


47534 


























SKIPTX 


47984 


4791 


























SLASH 


2949 


29834 


























S0PR4T 


77 


30854 


























SP 


2764 


641 


644 


694 


664 


687 


689 


698 


7P8 


746 


799 


821 


8^a 


8»1 




1114 


1119 


1128 


H?S 


1135 


1138 


113? 


1140 


1144 


1149 


1146 


1151 


1152 


1193 




H'4 


1288 


1218 


1217 


1219 


1219 


1228 


1221 


1224 


1236 


1243 


1^47 


1249 


i29e 




1265 


1266 


1272 


1274 


1275 


1276 


1283 


13(»5 


1306 


13V1 


1392 


14»4 


1495 


1494 




1495 


1497 


1499 


1499 


1584 


1589 


1518 


1515 


1916 


1917 


1519 


1519 


1555 


1596 




1597 


1559 


1599 


1961 


{963 


1564 


1569 


1566 


1967 


1568 


1598 


15"2 


19fl3 


15fl4 




1585 


1586 


i7n 


1772 


£779 


17(8 


17»Z 


iSfig 


isn 


1814 


1815 


1816 


1832 


1834 





IB«3 


1914 


1916 


1955 


1959 


22»1 


222V 


2240 


2241 


2276 


2277 


22^3 


2290 


2292 




235J 


2353 


2493 


2405 


2647 


2653 


2656 


2739 


2741 


2743 


2744 


2970 


2984 


?898 




2»85 


2923 


2»n 


299] 


2954 


2956 


2957 


2991 


2993 


29V6 


2997 


3174 


3176 


3178 




3181 


3193 


3186 


3203 


3213 


3214 


3215 


S2l6 


!2t7 


3218 


3220 


32?2 


32?3 


3224 




32*9 


3250 


3252 


3263 


3266 


3312 


3372 


S376 


33«S 


3399 


3390 


3391 


3392 


33»3 




3394 


3395 


3412 


3416 


3423 


3438 


3440 


3442 


3499 


35!14 


3510 


3913 


3514 


3519 




3516 


J5ir 


3528 


3529 


3531 


3532 


3554 


3580 


35«l 


3595 


3593 


36?7 


3639 


3660 




367g 


3673 


3689 


3694 


3701 


3706 


3882 


3883 


3945 


3896 


3888 


3889 


40C1 


«BtB 




4B19 


4020 


4027 


4031 


4032 


4033 


4042 


4043 


4044 


4045 


4047 


4049 


4a5a 


4092 




4B53 


4262 


4263 


4268 


4270 


4297 


430i 


43(19 


4317 


4323 


4328 


4332 


4345 


«396 




4358 


4359 


4561 


4362 


4363 


4387 


4388 


4473 


4474 


4475 


4476 


4477 


4478 


4479 




4484 


4523 


4543 


4572 


4585 


4588 


4609 


4622 


46:'t 


4693 


4684 


46l>5 


46"6 


46f7 




4688 


4689 


4690 


4691 


4692 


4693 


4694 


4695 


4696 


4697 


4698 


4a:<4 


4816 


4838 




4840 


4841 


5073 


5077 


5140 


5178 


■ 52a« 


5281 


52'!2 


S2B3 


5317 


53?0 


5327 


9328 




5329 


5330 


5331 


5332 


5333 


5334 


5339 


5336 


53T7 


9339 


5341 


5342 


5347 




SPARE 


353» 




























SPECME 


2069« 
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3323* 
3327* 
3339 
33354 
3340* 
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744 


790 


7«6 




822 




S'l 


12J3 


12?7 




1636 
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.SQUOT 

,STAB 

.STEP 

.STOP 

,SVAR 

,rm 

.TERN 

.TEXT 

.THEN 

,fo 

, UNARY 
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I l)EC.ll-LPT9»«*-ti»l 

1 

I COPTRIOHT 1973 
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I oioiTAt Equipment corpohatio" 
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11 

12 

13 
14 

IS 
16 
17 

1» 

19 
20 
21 
22 
29 
24 
2» 
2» 
2? 
21 
2» 
98 
91 
32 
93 
94 
99 



aet0«* 



PACE 9 

.TITUE 

,*secT 



■tSICb 



v»81» EDIT »61 ("EF) ti/tillZ 
SOURCE rUE 41 



9As!c Consists oF !*<ree noOuLCst 

- INTEl'I'KETER «ITH SYSIE" 1/0 



13 91SICI, 

2J FPNP.ll 
3] StSICH • 



MATM PACKA6E COSOITlONAUlifEC roB USE IN 
USER AREA ANI^ ONCE^ONtir CODE 



ORICINAL RApEH TARE VERSION 
NoOlPICATIoN ANQ COXHCNTS 

eo"PiETioN ANO Further 

eOMMENTS 



»YI UEN ELEKHAN 
RYI ANN STANKARO 
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9t 

97 

9a 

99 
48 
41 
42 

49 
44 
49 

4« 
47 

4a 

49 

sa 

91 
92 
99 
94 
99 
96 
97 
9S 
99 
68 
61 
62 
63 
64 
69 
66 
67 
66 
69 
78 
71 
72 
79 
74 
79 
76 
77 
78 
79 
88 





CLOBAUSI Assr', PAPAHSil • •«•••• 




OESCRlPTIONt LOU rOREl ••• • 




GENERA^ T>8|.ESi 




CONSTANTS, STORASC 









eioBALS 

.-rpHp.it 



■CUoBt <POUSH 

,GL08L SIR 

isuoau SNCR 

.ctoai, suvR 

iGtOBI. SAOR,SSSR 

,SU08L S|N, COS, SORT, AUOn.ATAN, EXP 

iSlOBl, SERVEC' 



I ••BA31C2 



,OUOBU TPa, TKS 

,SLOBL START 

iCLOat USRAR^A 

,01081. P'lULCO 

,OtOBU LIMITi POU, ARRAYS, OOSUE 

,OLORL EHRPOl, ENRMIX, TRBSYN, ERRAHC 

,0t08U TABLES, T81.5EN 

,0t081. EVAt, CETVAR, STOVAH, "SG 

iGLOai. COtUHN, FACl, PAr2, ,RPA», ,1.PAR 

,01081, INT, MAKEST, OPRJTfi, SCPHAT 

,Gt08l, , COMMA, Tl, T2, T3, ,EOL 

,5tOBl. NMMOUT, NUMSGN, ARCS, STPRO 

,01,081, SAVCUAR,VA|,,NORH 

,01,081, RNOt, RND2 

,01,081. tSTK9<, EH9FPU 
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81 
Si 
S3 

S4 
S9 

s« 

87 
SS 
99 
<0 
91 
92 
93 
94 
95 
96 
97 
9S 
99 

leg 

ii: 

183 
184 
189 
188 
187 
10S 
189 
118 
111 
112 
113 
114 

lis 

116 
11? 

lis 

119 



I 

I 4SSChB|,V PiRtnS, 



I 

SStKSI 

I 

SPKORt 

I 

SPI>9$! 

I 

ipitasi 

I 

sLPesi 



ISIHE OF STACK 
IBVTES 



ilPNOr SSTKS< 

• 288 

lEXOC 

ilFNor iprqr; iPRoOi ooiei" after vector space 

• 488 

,ENOC 

iIFNOF 

• 38 

,ENOC 

ilFNOF 

• 38 

,ENOC 

,1FN0F 

• 48 

,ENOC 



ippB5< ipp ruff; Sl?E 



1PR8S< IpApCR.TApE READER BoFF, SUE 



tl,pBS8 ll,INE«PRtNTER RuFF', sliE 



SNopTP • No pApER TApEI DEFINE To ELI-'INAtE CoOE FgR h;ch speed 
PAPER tape 

SNotPT • No LINE phINTErI DEFINE To ELIMINATE UI.ME PRINTER CoOt 

SLONOER • I.0N0 ERROR HEsSAOESI DEFIHE TO SET LoNOi 
EXPUANATORY ERROR MESSACES", 

INOSTR • "0 STRIN68! DEFINE To ELIMINATE STRING vARIARLf CoOE 

SNoPO" • No P0«Er FAILI DEFINE To ASStMaLt UITHijgT 
POWER FAIt/RESfTART ROUTIUE', 
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128 
121 
122 
123 
124 
125 
126 
127 
128 
129 
138 
131 
132 
133 
134 
135 
136 
137 
13S 
139 
148 
141 
142 
l»3 
144 
145 
146 
147 
146 
149 
158 
151 
152 
153 
154 
155 
156 
157 
156 
159 
168 
161 
162 
163 
164 
165 



HOT POOP II 
»»USER AREA HAP 
HIGH ADDRESSES* 



I OOSya POINTERSI <— LIMIT(R»I NEEDED 

I 26 FN POINTERS! 

I REAS POINTER ! <"PnL(R5) NEEDED 



I PUSH 
I OONN 

I LIST 



I ARRAYS ! 
I t 

I \!/ 



PDSliEI»51 NEEDED • 
|PDL("5)-»RRAYS(R5M/?-STlCK(INTE»RUPT) 



<— ARRAYsdiSI NEEDED 



SYMBOLS 



I /;\ 

I INTtRp, ! 
I CODE ! 



USER 
LINE 
SyFFER 



R5 P0INT5"> I 



I USEh 1/0 euFF, 

I ANO'auFF; HOP, 

I SP45E (TTY) 

I USER AREA 

1 STORAGE CELLS 



<"C0DE(R5) NEEDED 



<"LINE|R5) NEEDED 
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166 
167 
16g 
169 
17B 
171 
17? 
173 
174 
17S 
176 
177 
17» 
179 

ise 

181 

laz 
ia3 

184 
18S 

186 
167 
188 
189 
198 
191 
192 
193 
194 
199 



eoOE Ant* Contains jtrIns of coor "ytes hhich coupplst 

tHE COMfltEO CODE TO SE INTERCETEI, THE SYNTAX SCAN of TMESE 

coot BYTES tS fACliilTATeO 9V THE JU11CI0US PLACEMENT 

or CE'TAIN OF JHESE COOE eYTE"! TO 9r CALLED 'TOKENS', 

ir THE HISH 81T Of A TOKEM IS 0" 

IT IS A SYSTEM SYMBOL (S.SYM), (SEE TlBLEi BELOil,) 

HIGH BIT OFF SIGNALS TOKEN AS THE HIGH OROEB BYTE OF A WUPO 

(LOH OROEB BYTE FOLLOUS TOKEN) USED AS AN ADOPESS OFFSET INTO 

THE USE" SYMBOL TABLE (USPTR), 

—SYMBOL TABLE ENTRIES 



ARE HADE For LINE NUMBERS, SCALAPS. 
STRINGSi AS SHOUN (IN OPDEP)l 

LINENo 17777S 17T776 177777 

ADDRESS VALUE AOORCSS ADDRESS 

VALUE MAXSSI MAXSSl 

1 HA»SS2 >'AX5'!2 

VARNAHE VARNAME STPINGNAHE 

^-GENERAL REGISTER USAGE 

Rl Is BASIC EXECUTION PC 

R4 IS THE EXECUTION STACK nEPTu 

R5 IS THE POINTER TO THE USER AREA 



'1U"EBIC ARRAYS. AN" 
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197 








1 INtEru'T vectors and LOHtST 


coot 


198 








1 






199 




880088 




> AB 






288 


888008 


888167 


081876 


JMP 


START 


irFstart at LOC, •s 


281 




088004 




•4 






202 


088004 


080006 


880808 


+ 


,♦2.8 


IT!"'' Out. Buss EHROn 


283 




880018 




, "10 






284 


000810 


808012 


000088 


* 


,42,0 


IREsFRVEU INSTHUCTION 


28» 




808014 




•14 






286 


088014 


808816 


800888 


* 


.♦2.8 


iDEBllC', TRAP vEC, 


287 




880020 




•20 






288 


888020 


810320 


888080 


* 


BOMB.0 


1 lOT TRAP VEC, 


289 














218 




080824 




1 •i* 






211 














212 








iIFNDf 


SNOPOM 




213 


800024 


087962 


808088 


* 


POUQHN.B 


|P(!HFR FAIL/PESTART 


214 








lENOC 






219 














216 








.jFDF 


SNOPO" 




217 








* 


,♦2.8 IHALT 


ON POKER FAIL 


218 








,ENOC 






219 














228 




800030 




• 38 






221 


808838 


888032 


800088 


* 


,♦2.8 


|E"T TRAP 


222 




800034 




. •>* 






223 


080034 


800036 


800088 


• 


.♦2.8 


I'THAP' TRAP 


224 








1 






229 








1 ..(SYSTEM' AREA 




226 








1 






227 




080040 




, 148 






228 


000040 


081 


101 


VErNuMI ,8YTE 


881, 'A 


IVCH?lflN NUMBER 


229 


888042 


800080 


800880 008 


008 ♦ 


0,0.0.0,8.1.8 






8080:0 


880080 


800800 880088 








800056 


808080 










230 








1 






231 








1 ••INTERUPT VECTORS 




232 








1 






233 




800868 




, •68 






234 


808060 


886722 


800280 


* 


K8|NT|Pr4 


pKEy=0ArO 


235 




880064 




"64 






236 


000864 


887074 


088208 


* 


TPtNT|PR4 


itelcprinter 


237 




000870 




• 78 






238 








.IFNDF 


SNOPTP 




239 


888070 


007336 


888200 


* 


PTRINI,PR4 


IHSP, PT, READER 


240 




800074 




• 74 






241 


000074 


807436 


808280 


* 


PPINT.PR4 


|H«1P, PT, PUICM 


2<2 








lENDC 






243 








ilfOF 


INDPTP 




244 








* 


0.8.0.8 




245 








lENOC 






246 




880288 




, ^280 






247 








tlFNOF 


SNOLPT 




248 


108280 


887918 


000280 


. 


lpint;pr4 





liSICU 


H4CXII 


V021 22.H4R' 


249 






290 






291 






292 






293 




il0024e 


294 


90^242 


300242 000000 


299 




300244 


296 


900244 


3000»0G 000000 


297 






299 




000400 


299 






26B 







15141, 



PtGC S>t 




,ENOC 


, 


iiror 


SNOlPT 


* 


010 • 


lENoe 




•240 




* 


,*2,0 


■ 244 




* 


EKRrPyi0 


■SPRORG 





IPIHC 

IFLOATINC POINT TR«P 

|ST»PT 0' <^00t (may have To rHAnOE, 
I OCPFNOING UPON ATTACHED UrvS,) 
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2>1 




2«2 




263 




264 




269 




Hi 




267 


000000 


26« 


000001 


269 


000002 


270 


000003 


271 


300004 


272 


00000; 


273 


000006 


274 


300007 


279 




276 




277 




276 


177S6B 


279 


177962 


260 


177964 


291 


177966 


292 


177950 


293 


177592 


264 


177594 


299 


177596 


296 


177914 


297 


177916 


296 




299 




290 




291 


000011 


292 


000012 


293 


300014 


294 


300015 


299 


000040 


296 


177776 


297 


000140 


299 


000200 


Z99 


000340 


300 


177779 


301 


177776 


302 


177777 


303 





I OEnERAi. ASSIGNMENTS! VARIASufS, Ci,n8A|.5, ETC, 



I 



I —REGISTER ASSIGnhCNTS 
I 

•«0 

•»1 

•X2 

• %3 

• »4 
•»9 

• X6 

• X7 



PI 
Rl 
r2 
r3 
r4 
r9 
SP 
PC 

I 

I "DEVICE REGISTER CoNSTAHTS 
I 

■177960 

■177562 

■177564 

■177566 

■177990 

•177992 

•177954 

•177956 

■177914 

•177516 



TKS 
TK8 
TPS 
TP8 
PRS 
PR8 
PPS 
PP8 
LPS 
UPB 
1 

I ••GENERAL Constants 
) 

TA8 ■ll 

LF^ 912 

rp ^14 

CR> 019 

BL> 040 

PS •17777S 

PRS ^140 

PR4 4200 

»R» ^340 

.SCALAR 4177779 

,NVAR •177776 

,SVAR '177777 



IPRIORITV LEVEL 3 



IVISER SYM, TiSLE FLAG fOR SCALAR 
IFLAG FOR KUWERIC ARRAY VARIABLE 
IFLAC FOB STRING VAR. 
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914 




»BS 




306 




507 


000000 


90S 


1)00002 


90« 


(100004 


310 


300006 


911 


!<000t0 


912 


900012 


913 


000014 


314 


1900016 


31» 


1100020 


3« 


000022 


917 


000024 


31S 


000026 


3l» 


000030 


920 


200032 


321 


000034 


322 


000036 


929 


000040 


924 


000042 


92» 


000044 


924 


000046 


927 


000090 


920 


000092 


929 


000094 


930 


000096 


391 


000060 


932 


000062 


999 


000064 


994 


0100*6 


93» 


000070 


93« 


000(72 


337 


000074 


330 




339 




340 


00007* 


341 


000077 


342 


000100 


349 


000102 


944 


00(104 


949 


00010* 


944 


0(0107 


947 


0((tl> 


340 


0(0111 


349 


000112 


390 


0(0113 


391 




392 




393 




394 


000000 


399 


000002 


99* 


000004 


997 


00000* 


990 


000010 



I —USER t"Et STORtSE celu orrscTS 

I 



SYHBoLS 

LIMIT 

'01, 

»03I!E 

<RR«VS 

HI FREE 

torREE 

CODE 

LINE 

VARSiV 

SSiStVE 

SS2SAVE 

LINENO 

ESSCTR 

COLUMN 

CLMNTTY 

FACl 

rAe2 

R0SAVE 

RISAVE 

R2SAVE 

R3SAVE 

R4SAVE 

Tl 

T2 

T9 

RNOl 

"Ne2 

RNOCT 

LOSTR 

HI9TR 



a ICONTAINS »ODH of THE floST ST"BoL 

STMB0LS*2 iCONTAINS «0UR Or HIGHEST MU OF USER A"E« 

LlM|T*2 (CONTAINS AOIR OF EMPTY <TAC» 

P0L*2 (CONTAINS LO" LIMIT OF STACK 

P9SI2e*2 (CONTAINS AOOR OF HIGHEST «0O0 0' AHOayS 

ARRAYS*! (CONTAINS ADOR OF HIGHEST FHEE HOHD 

HlFREt»2 (CBN'AINS AOOR OF LOWEST FREF WORD 

L0FREE*2 (CONTAINS AOOR OF INTERPRETIVE CODE 

C00E42 (CONTAINS AOOR OF USER LINE =UFFt" 

LINe*2 (YAH SAVE FOR ASSIONMENT 

VARSAY«2 (SSI SAVE FOR ASSICNHENT 

SStSAYE»2 (SS2 SAVE FOR ASSlCN»tNT 

SS2SA»E«2 (CONTAINS the LU'E NUMRE" 

LiNEN0*2 (CONTAINS 33*0EPTH OF ACTIYE 50SUBS 

SSBCTiiiZ (HAS AODH OF COL CT roR CURHFNT Otw 

eOLUMN*2 (LAST TTT COLUMN TYPEO 

CLMNTTY42 (HILM ORDER FLOATING VALUE 

FACl*! (LOH ORDER FLOATING VALUr 

FAe2*2 (PL»fE FOR R0 UHILE IN FPMPl). 

RBSAVt»2 (DITTO Rl 

R1SAVE*2 (DITTO R2 

R2SAV^*2 (DITTO R3 

R38AVt»2 (DITTO R4 

R4SAVt«2 (SHO»T TERM TEMPORARY 

Tl»2 " (OITTO 

T2t2 (DitTO 

T9«2 (HISTORY OF "NO 

RN01*2 (DITTO 

RN02»2 (RANOOMUER 

RN0eT»2 (LON LIMIT OF STRING STORAGE 

L0STR42 (HIGH L1M|T OF STRING STORAGF 



I ..THESE NEXT TWO MUST BE LO BYTE AMD HI BYTE, RESPECTIVELY, 
( OF SAME UORO 

ooev • HisrR*2 

lOEV • opev*i 

TPHD • ooev*z 

KBHD • TPH0*2 

ECUOSP • K0HD*2 

CNCFLS • ECH0Sr*2 

CNBFLS • CNerLJ«l 

riLLCO • cNerLS«i 

FILLNO • FILLC0*1 

FILLCH • F1ULN0»1 

SPARE ■ FlLLCH.l 

( 

I ..I/O BUFFER HEADER OFFSETS 

( 

BStRT '0 MRU START oF BuFF, 

BEND "2 19EN0(R1)" C^O OF BUFFER 

BGETl .4 IBOETl(Rl) FIRST GET POINTER 

BGET2 •* (B0ET2(Rt) ?Ec6"0 GET PTR-, 

BPUT '10 (BPUTiRl) PUT PTP, 



(OUTPUT DEV CODE tTTY.0,PT.2,LPt4) 

(IWPliT DEV CODE (TTY»0|PR«2) 

(HOLOS START OF TtLEPRT RUFF HOR 

(HOLOS START OF KBO 9UFF HOH 

lAOOR OF NEXT ECHO CHAR (IF •■ON.J') 

(l.C FLAG, NON.e IF PENOING 

((•0» FLAG, OITTO 

(FILL.COUNT 

(NO OF FILL CHARS 

(CMA» REFORE FILL 

I tSPARE BYTE3 
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399 000012 

360 

961 

962 

3*3 000400 0(0000 
3*4 020402 000000 
3*9 



• 12 



8FSPEC 

I 

I i-SYSTEM VARIABLES 

I 

CLMNPPI iHORD 
CLMNLP) .WORD 



IBFSPtCIRll 



'PECIAL "ORO ' USE PARTIr, TO DEV. 



(PAPER TAPE pu*'CH Column positio" 

(LINE PRINTtP COLUMN POSITION 
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366 




367 




36a 




36« 




37B 


300231 


371 


^062:12 


37S 


^00233 


373 


30e2'<)4 


374 


l10S2a5 


375 


1100236 


376 


000207 


377 


!<00218 


376 


000211 


379 


000212 


3ae 


000213 


311 


000214 


362 


000215 


3S3 


000216 


364 


000217 


3S5 


000220 


3S6 


("00221 


3S7 


^00222 


366 


!100229 


369 


0002Z4 


39e 


000225 


3»i 


000226 


392 


000227 


393 


e00230 


394 


000231 


395 


000232 


396 


000233 


397 


0(0234 


396 


0(0235 


399 


000296 


46e 


000237 


481 


000240 


482 


0002<1 


463 


000242 


464 


;1002<3 


465 


300244 


466 


30024; 


467 


000246 


466 


000247 


469 


0(0250 


410 


000251 


411 


0(0252 


412 


0((253 


413 


0(0254 


n« 


000295 


415 


000256 


416 


?00257 


417 


000260 


416 


000261 


419 


S100262 


420 


000263 



.. SYSTEH TOKEN OEriNITIONS 



I8ESINN1NG gf SEdUENCE USED 9Y 'KEruOs' «Nn 'T«eLEl< 



.Eqi.« 201 

,F8R« ,EN0*1 
.50SU8" ,rOR*l 
eOTOt iGOSUS*! 

,G0T0»1 

ilf'l 

, INPUT*! 

.LET*! 

,NEXT«l 
RCTURNt,PRINT»l 
StOC .RETURN*! 
OIM« ,STOP*t 
RtNOON>,DIH*l 
RE8T0R",R»NDaN*l 
REM» .RESTOR*! 
OEF« ,REM«1 
RE»0» ,DEr*l 

,RE«0*1 

,0»T»*1 

,C«LL*1 lENO vr SEOUENCE USE" RT ITJSLEl' 
AHPER9>,E0r*l 
UP»RRO',iHPERS*l|BEGtNNING OF SrQME'''CC USED SY ' 
St»Rp ,UR«RR!J*1 
S|,ASH« ,STtR*l 
RLU$9 ,SI.A3H41 
UNARTp ,P|,US*l 
MINUS' ,UNtRV*t 
TERM. ,MINUS*tlENO OF SEQUENCE USED "Y (T»n;,E2' 

,TERH*t 

,SEMI*1 

,RP>R41 

,T0»1 

.STEP*l 

,THEN*1 

,C0N"«*1 

.Ut*l 

.Et*l 

,SE*1 

.EG*1 

,NE*l 

iEN*l 

.UT*t 

,CT*1 

,E0*! 

■ (.RAR*! 
SgUOTl ,D0U0T*1 

eouoN •,sauoT»i 

POUND' ,C0LDN4t 
FN9 , POUND*! 
RNOI.S ,FN*1 IBEOINNIHG OF SEIUf^l^E USED SY 



,IF« 
, INPUT* 

,ueT* 

,NEXT. 
.PRINT. 



.OtTtp 
,E9F» 



,?EM|! 

.RPARl 

,T0' 

,StEPl 

.THENi 

,CON"A» 

iLE' 

|EL" 

,GE* 

,ES> 

,N£. 

,EN* 

iLT« 

.St. 

.EQ. 

,LP»R« 

,aauoT. 



TABtE2' »'10 OPR PREC, 



lEND OF SEOUENCE USEn 'Y OPERATOR PRECEOFNCE 



TABLES' 
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421 


000264 


,RN0. 


,RNOt*l 


422 


000265 


iSlN> 


,RNO*! 


423 


300266 


,cos. 


.SIN*! 


424 


000267 


,saR. 


.COS*! 


425 


300270 


,ATN. 


.SOR*! 


426 


000271 


,EXP« 


.AIN*! 


427 


000272 


.uoo" 


,EXP»1 


426 


000273 


,Aes. 


.LOG*! 


429 


000274 


,INT« 


.ABS*! 


430 


000275 


,SGN. 


.INT*1 


431 


000276 


,TAB. 


.SON*! 


432 








433 






.IFNDF 


434 


000277 


,UEN. 


.TA8*! 


435 


000300 


,ASC. 


,LEN*! 


436 


000301 


,CHR>. 


.ASC*1 


437 


000302 


,P8S. 


.CHRJ*! 


436 


0(0303 


,5EG. 


.POS*! 


439 


000304 


iVAL. 


,SEO*! 


440 


0(0305 


,StR. 


,VAL*! 


441 


0(0306 


,tlST( 


.STR»! 


442 






lENOC 


443 








444 






..FOF 
.TAB*! 


445 




.tlST. 


446 






.ENDC 


447 








446 


0(0307 


iRUN» 


.lIST*1 
.RUN*! 


449 


000310 


.SAVE. 


450 


000311 


,OLD" 


,SA»E»! 


451 


00(312 


,seR. 


.010*1 


452 


00(313 


.CLEAR. 


.SCR*! 


453 


000374 


.FLIT. 


374 


4S4 


000375 


.ILITI" 


379 


455 


300376 


.ILIT2. 


376 


456 


S00377 


.TEXT 


• 377 


457 









lEND OF SEOUENCE USEO BY (TJHLE5' 
(BEGINNING OF SECUENCE USED SY 'TARLE4< 



tNOSTK 



lENO OF SEOUENCE USEO BY ITASUE4' ANO (KEYUOS' 
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499 






4»0 






461 






«>2 






463 






464 


000404 


093 


469 


000409 


232 


466 


000406 


099 


467 


000407 


234 


460 


000410 


092 


469 


000411 


230 


479 


000412 


097 


47i 


000413 


291 


472 


000414 


1J6 


473 


000419 


227 


474 


000416 


090 


479 


000417 


299 


«7« 


000420 


0»i 


477 


000421 


237 


470 


000422 


136 


479 


000423 


201 


4»» 


000424 


04« 


4«l 


000429 


226 


492 


000426 


073 


40? 


000427 


236 


404 


000430 


094 


409 


000431 


243 


406 
407 


000432 


036474 


000434 


244 


400 


000439 


079 


409 


000437 


24< 


490 


000440 


!I36476 


491 


000442 


246 


492 


000443 


07J 


493 


000449 


24« 


494 


000446 


037074 


499 


000490 


290 


496 


000491 


076 


497 


000493 


290 


490 


000494 


074 


499 


000499 


292 


900 


000496 


976 


901 


000497 


293 


902 


000460 


07? 


903 


000461 


294 


904 


000462 


042 


909 


000463 


296 


906 


000464 


047 


907 


000469 


297 


900 


000466 


072 


909 


000467 


260 


910 


000470 


043 


911 


000471 


261 


912 


000472 


133 



r'KCVMORO TASte 



ENTRIES AHE ONOEREO RY TME(H FPEaUENCr Qf 
OCCURRENCE-, ALPHA KEYUCOS "START At IKEYAI 



074 



KEYHOSI , ASCII 


'♦( 


,BYTE 


.PLUS 


.ASCII 


'•( 


.BYTE 


."INUS 


.ASCII 


.•f 


,8YTE 


.STAR 


.ASCII 


'/< 


.BYTE 


•lyASH 


.ASCII 


.BYTE 


.tJRARKO 


.ASCII 


M' 


.BYTE 


.LRAR 


.ASCII 


'!» 


.BYTE 


,RRAR 


.ASCII 


"St 


.BYTE 


.$0L 


.ASCII 


•11 


.BYTE 


.ANPEHS 


.ASCII 


'!» 


.BYTE 


.SEN I 


.ASCII 


'l' 


.BYTE 


.COHHA 


.ASCII 


!<•' 


.BYTE 


.I.E 


.ASCII 


'4« 


.BYTE 


.t.E 


.ASCII 


'>.. 


.BYTE 


.ee 


.ASCII 


>•>' 


.BYTE 


M 


.ASCII 


'<>• 


.BYTE 


,NE 


.ASCII 


'><. 


.BYTE 


,NE 


.ASCII 


'<* 


.BYTE 


.UT 


.ASCII 


'>» 


.BYTE 


.5' 


.ASCII 


'•1 


.BYTE 


lEO 


.ASCII 


ml 


.BYTE 


.90UOT 


.ASCII 


>l« 


.BYTE 


.iauo! 


.ASCII 


'1' 


.BYTE 


.C9L0N 


.ASCII 


't« 


.BYTE 


.POUN? 


.ASCII 


'E» 
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KEYAl 



913 


000473 


299 






914 


000474 


139 






519 


000479 


237 






916 


000476 


"42914 


020124 




917 










919 


000902 


210 






919 


000903 


111 


020106 




920 


000906 


206 






921 


300507 
000914 


107 

040 


020117 


047924 


922 


000919 


209 






923 


000916 


047906 


020122 




924 


000922 


203 






929 


000923 


049 


047924 


040 


>26 


000927 


240 






927 


000930 


042516 


092130 


040 


926 


000939 


211 






929 


000936 


092040 


042910 


020116 


930 


000944 


242 






931 


000949 
000992 


040 
040 


092123 


090109 


932 


000993 


241 






933 


000994 


J47907 


092923 


020102 


934 


000962 


204 






939 


000963 

000970 


122 

116 


092109 


091129 


936 


000971 


213 






937 


000972 


'47111 


092920 


020124 


930 


000600 


207 






93» 


000601 
000606 


120 

040 


044922 


092116 


940 


090607 


212 






941 


000610 


042922 


119 




942 


000613 


220 






943 


000614 


042904 


02010$ 




544 


000620 


221 






945 


000621 


122 


040909 


020104 


946 


000626 


222 






947 


000627 


104 


092101 


020101 


948 


000634 


223 






949 


000639 


103 


046101 


020114 


590 


000642 


234 






591 


000643 


1«6 


116 




552 


000649 


262 






993 


000646 


047122 


024104 




994 


000692 


263 






959 


000653 


122 


042116 




596 


000696 


264 






557 


0eB657 


123 


047111 


»B 


996 


000663 


265 






999 


000664 


247503 


024123 




960 


000670 


266 






961 


090671 


129 


091121 


090 


962 


000679 


267 






963 


000676 


092101 


024116 





.BYTt 


,upa" 


.ASCII 


•i> 


.BYTE 


.RPAR 


.ASCII 


'I.ET 1 


.BYTE 


.tET 
•If ' 


.ASCII 


.BYTE 


.!'■ 


.ASCII 


'00 TO ' 


.BYTE 


.SOTO 


.ASCII 


TOR ' 


.BYTE 


,roR 


.ASCII 


1 TO ' 


,8YTE 


.10 ■ 


.ASCII 


'NEXT ' 


.BYTE 


.NEXT 


.ASCII 


' THEN ' 


.BYTE 


.THEN 


.ASCII 


' STEP ' 


,8YTE 


.STEP 


.ASCII 


.OOSUB ' 


.BYTE 


.gosuB 


.ASCII 


'RETURN' 


.BYTE 


.RETURN 


.ASCII 


'INPUT ' 


.BYTE 


.INPU! 


.ASCII 


'PRINT • 


.BYTE 


.PRINT 


.ASCII 


'REH' 


.BYTE 


.REM 


.ASCII 


'PEE < 


.BYTE 


.OEF 


.ASCII 


'REAO ' 


.BYTE 


.HEAD 


.ASCII 


'DATA ( 


.BYTE 


.DATA 


.ASCII 


'CALL ' 


.BYTE 


.CALL 


.ASCII 


Tn' 


.BYTE 


,FN 


.ASCII 


'HNOC 


.BYTE 


,RNOL 


.ASCII 


'RNQ' 


.BYTE 


,RNO 


.ASCII 


'SINC 


.BYTE 


.SIN ■ 


.ASCII 


'COS(» 


.BYTE 


.COS ■ 


.ASCII 


'SORC 


.BYTE 


.SOR 


.ASCII 


'ATNC 



ISTA'T 0'. ALPHA KEYUOROS 



I4S1CL 


WACXll 


V021 


22»ntR. 


'73 15141 


rtee i2«2 




964 


000702 


in 






iB^TE 


iATN 


9t9 


000703 


109 


090130 


090 


,4sci: 


'E«p(» 


966 


000707 


271 






.BYTE 


,EXP ■ 


567 


000710 


047914 


024107 




.ASCII 


'kOSI< 


966 


000714 


272 






.BYTE 


.^ac ' 


969 


000719 


101 


091902 


090 


lASCII 


'ABSC 


970 


000721 


273 






,SYTE 


.ABS 


571 


000722 


047111 


024124 




, ASCII 


' |NT(» 


572 


000726 


274 






.BYTE 


.INT 


573 


000727 


123 


347137 


090 


.ASCII 


'SONII 


574 


000733 


279 






.BYTE 


.SEN 


575 


000734 


040924 


024102 




.ASCII 


'TABC 


576 
577 


00B74B 


276 






.BYTE 


.TAB ■ 


576 










.IFNOr 


SNOSTR 


979 


000741 


114 


047109 


390 


.ASCII 


'kCN(' 


900 


000749 


277 






.BYTE 


.UEN ' 


961 


000746 


091901 


024103 




.ASCII 


'A3C(< 


962 


000752 


300 






.BYTE 


.ASC ■ 


963 


000793 


103 


391110 


3243*4 


.ASCII 


';hrsi> 


984 


000760 


301 






.BYTE 


ifHRS 


9B5 


0007*1 


120 


351517 


050 


.ASCII 


'POSI> 


566 


000769 


302 






.BYTE 


.pos ■ 


567 


000766 


042923 


322137 


050 


.ASCII 


'SEGtC 


566 


000773 


303 






.BYTE 


.SES 


589 


000774 


340526 


324114 




.ASCII 


'VALC 


598 


001000 


304 






.BYTE 


.VAL ■ 


591 


001001 


123 


091124 


024844 


.ASCII 


'STHJ(> 


59? 


001006 


309 






.BYTE 


,STR 


993 










.ENOC 




994 














599 


001007 


104 


046911 


040 


.ASCII 


'BlM ' 


596 


001013 


219 






.BYTE 


.9IM 


597 


001014 
001022 


040922 
399111 


042116 

109 


04^517 


.ASCII 


'NANOOHIilEI 


599 


001029 


216 






.BYTE 


.HANOOn 


999 


001026 

001034 


342922 
109 


392123 


391117 


.ASCII 


'HESTORE' 


600 


001039 


217 






.BYTE 


.RESTORE 


601 


001036 


052123 


353117 




.ASCII 


"STOPI 


602 


001042 


214 






.BYTE 


.STOP' 


603 


001043 


109 


042116 




.ASCII 


'EMO' 


604 


001046 


202 






.BYTE 


,ENO 


609 


001047 


114 


051511 


124 


.ASCII 


'WISTI 


606 


001093 


306 






.BYTE 


.LIST' 


607 


001094 


392522 


11» 




.ASCII 


'RUN' 


606 


a01057 


307 






.BYTE 


.RUN 


609 


001060 


040923 


042526 




.ASCII 


'SAVE' 


610 


001064 


310 






.BYTE 


.SAVE' 


611 


001069 


117 


042114 




.ASCII 


'OUO' 


612 


001070 


311 






.BYTE 


.OI.D 


613 


001071 


123 


351103 




.ASCII 


'SCR' 


614 


301074 


312 






.BYTE 


.SCR 


619 


301079 


103 


042514 




.ASCII 


'CUE' 


616 


001100 


313 






.BYTE 


.CLEAN 
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617 

618 301101 

619 

620 

621 



.BYTE 
.EVEN 

.EOT 



iEho of TAB^t rua 
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622 
629 
624 
629 

626 
627 
628 
629 
63e 
631 
632 
633 
634 
63} 
636 
637 
63a 
63« 
640 
641 
642 
643 
644 
64S 



"SOUUCE nit '2 



M»IN tUoH ROUTINES 



,-0^ 



I START • PROS"*" STARTING PoINT 



001112 216799 0000800 

001106 (116906 000004 

001112 009069 000104 

001116 004767 007366 

001122 016906 000004 

001126 004767 014422 

001132 004767 007644 

001136 000402 



I 

STiRTI H0» 
MOV 
CI." 
JSK 

SMATCHIHOV 
JSR 

CLCtRI JSR 
SR 



USRARtA,R» 
POL("»),SP 
C;h0SP(R9) 

PC,8urci,R 

P9LI»S).SP 
PCilNlTSCH 

p;,cuNVtRS 
REior 



■CLEAR OUT ALL I/O RtNC KurrrRS 
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001140 


004767 


007344 




301144 


016906 


0000B4 




001150 


009069 


000106 




001154 


009069 


000076 




001160 


01276S 


000036 




001166 


060969 


000034 




001172 


004167 


016294 




001176 


019 


012 




001200 


042922 


042101 




001209 


000 














001206 


016906 


000004 




001212 


004167 


016234 




001216 


019 


012 




001221 


000 














001222 


009069 


000076 



















131 



I............... 

I 

I REAOV ■ PRINT 

I 

REAOY0I JSR 

"EAOTI "OV 
CLR 
CLR 
HOV 
ADO 
JSR 
,9TTE 
(ASCII 
.flVTE 
.EVEN 

REA0T2I MOV 
JSR 
,BTTE 
,B»TE a 
,EVEN 

lOlNITl CL" 



•KEAOT' 

pCiBurCLR 
POLIRSIiSP 

CNerL{(R5) 

OOEV(HS) 

«eLMNTTT,C0LUHN("9) 

R9, COLUMN (PS) I unu 

RilMSe 

CR,Lr 

•REAOTI 



P0L(R5liSP 

RllHSG 
CR.LF.Lr 



lCLt»R ALL 1/0 RINO SufffRS 
|i»C' AND '»0' FLAGS 

IStr TO COUNT TTV COLUMNS 



ICL" OOEV ANO lOEV BYTES I"J USER AREA 



B»SICL HACXll VMt 22.H4R.73 tSMl PA6E 15 



»t9 

670 
471 
«72 

475 
674 
67S 
676 
677 
676 
679 

6ae 

691 

6S2 
613 

684 
6S5 
686 
687 
688 
689 
690 

»»; 

692 

693 
694 
699 
696 
697 
69S 
699 
7BB 

702 
703 
704 
705 
706 
707 
70S 
709 
710 
711 
712 
713 
ri4 
715 
716 

nr 

71» 
719 
720 

721 
722 
723 



001226 

^01232 
001234 
0012<2 
001244 
001250 
001254 
001256 
001260 
001264 
001266 
001270 
001272 
001274 
001276 
001300 
001304 
001306 
001312 
001316 
001320 
001322 
001326 
001330 
001334 
001336 
001342 
001346 
001350 
001354 
001356 
001360 
001362 
001364 
001366 
001370 
001372 
001376 
001400 
001402 
001404 
001406 
001412 
001416 
001420 
001422 
001424 



004767 
109006 
1J7527 
001336 
000167 
004767 
005201 
"10146 
016901 
160116 
112100 
100417 
000900 
192100 
061900 
021027 
109011 
01*901 
021627 
001013 
005016 
005060 
000407 
105769 
001334 
000167 
004767 
010104 
121127 
001492 
111109 
100770 
005201 
000909 
152109 
061909 
021927 
109961 
021019 
101997 
001(36 
004767 
12il27 
001427 
111109 
100771 
005201 



014702 
000016 



017604 
020236 



EDIT • 

SET WINE, TRAXSUATE INTO TOKE"S. »Nn "qvE LINE INTO 
USER COOE SPACE, "ITUaUL ENTRIES "ADE INTO USER 
SYHSOL TABLE, ARRAT SPACE, A>'0 STRING SPACE, 



177779 

000016 



000002 
000077 



000900 

017622 



000229 



017556 
000229 



EOITI JSR 
3CC 
CMPB 
9NE 
JMP 

EOITLI JSR 
INC 
MOV 
"OV 
SU9 
«0»8 
SMI 
SMAg 
SISB 
AOO 
CHP 
SHIS 
«0V 
CMP 
BNE 
CL" 
C{.1 
SR 

EOIMMEOITSTB 
BNE 
JMP 

EDtSKIPIJSP 

EOISRCHIHOV 
CMPB 
BED 
"OVB 
SMI 
INC 
SWAB 
8139 
AGO 
CMP 
SHIS 
CMP 
BHI 
BNE 

EDfPASSIJSR 
CMPB 
SEO 
HOVB 
BMI 
INC 



pC,LINOET 

EOITt IN6HXAL INPUT LINE 

•C00Ein9),»,E0r iCHECK E"PTY PROGRAM 



READTB 

OEVERM 

PC,TRAN 

Rl 

Pll>(SP) 

11NE(MS),R1 

"lllSPI 

(KU»|RB 

EOIHMED 

R0 

tRl)»,HB 

tR9),N0 

(MB), •(SCALAR 

EPIMMED 

C0OE(N»),Rl 

(SP),»3 

EDISR(H 

(SP) 

2<R0I 

EOISRSH 

I0EVIH51 

EDIT 

IMMEO 

PCiSKlPEOL 

r;,r« 

tHl(,»,Eor 

EOIPUI 

(Rt),H3 

EO|SK|P 

Ri 

R3 

(R1)*|R3 

(R5),H3 

(fl3),», SCALAR 

EDISKIP 

(R0),|R3) 

EOISKIP 

E9IPUI 

P;,SK1PE0L 

|Rt|,»,EOr 

EOIOVtR 

(f(l),H3 

EOIPASS 

Rl 



IN", RETURN TO TTY INPUT 
lYES, nEVICE NOT REAOT 



I IF THrpE ARE ONLY 3 BYTES TaEN THE L1^■E 
ICOMATINS Ll^ENO.CP 4ND '^EaN' DELETE, 



lICNnflE IM" STMTS PROM NIN.TTY 



IR? "OINTS TO LINENO or THE >'EW LINE, 
laiS") CONTAINS LEN5TH Or THr NE* L1"E, 
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724 


001426 


000309 






SUA8 


R3 


729 


001430 


152109 






BISB 


(H1)*,R3 


726 


001432 


361509 






AOO 


(M5),H3 


727 


001434 


021927 


177775 




CMP 


(R3),», SCALAR 


72S 


001440 


103362 






SHIS 


EOIPASS 


729 


001442 


162701 


000002 




SUB 


• 2,R1 


730 


001446 


016900 


000004 




»0V 


POU(RS),Ra 


731 


001452 


016502 


000032 




MOV 


G5aCTH(R5),R2 


732 


001456 


021004 




EOICHGl 


CMP 


(H0),H4 


733 


001460 


101403 






BLOS 


,*10 


734 


001462 


021001 






CMP 


(HO), Ml 


739 


001464 


101001 






BHI 


1** 


736 


001466 


005010 






CLR 


(H0| 


737 


001470 


005720 






TST 


(H0)* 


738 


001472 


305902 






DEC 


R2 


739 


001474 


009970 






BGT 


EOlCHg 


740 


001476 


160401 




EDtOVERISUB 


R4,R1 


741 


001500 


000401 






BR 


,*« 


742 


001502 


709001 




EDIPUTI 


CLR 


Rl 


743 


001504 


161601 






SUB 


ISP), Ml 


744 


001506 


016900 


000004 




MOV 


POL(R»l,RB 


745 


001512 


016502 


000032 




MOV 


0SBCTf<tR9|,R2 


746 


001516 


!121004 




EOlMOOriCMP 


(R0),N4 


747 


001520 


103401 






BLO 


>••' 


748 


001522 


160110 






sua 


Rl.lRei 


749 


001524 


009720 






TST 


IH0)i 


750 


001526 


009302 






DEC 


R2 


751 


001530 


003972 






SOT 


EOIMOpr 


752 


001932 


009701 






TST 


Rl 


753 


001934 


100433 






BMl 


EOIGROU 


754 


001536 


001505 






BEO 


EDISAME 


759 


001540 


010402 




EOieONTIMOV 


R4,R2 


756 


001542 


061602 






AOO 


ISP|,M2 


757 


001544 


010209 






MOV 


R2|R3 


758 


001946 


060109 






AOO 


Rl.RS 


759 


001550 


112922 




EDIMOVEI"OVB 


(H3)»,IR2U 


760 


001952 


020919 






CMP 


R3,(R?| 


761 


001554 


109779 






BLO 


EOIMOVE 


762 


001556 


109742 






TSTB 


•|R2I 


763 


001560 


001401 






BEO 


,♦< 


764 


001562 


005202 






INC 


R2 


769 


001564 


030227 


000001 




BIT 


R2,»l 


766 


001570 


001401 






SEO 


>*< 


767 


001972 


109022 






CLRB 


("2»4 


768 


301974 


010215 






MOV 


R2,(R»I 


769 


001976 


012922 






MOV 


(R3)*,(R2)4 


770 


001600 


020969 


000014 




CMP 


R3,L0rREE|P5) 


771 


001604 


109774 






SLO 


,'* 


772 


001606 


010269 


000014 




MOV 


R2,L0rREE(R5) 


773 


001612 


000401 






BR 


,** 


774 


001614 


009022 






CLR 


("21* 


779 


001616 


020209 






CMP 


R2,R3 


776 


001620 


103779 






SLO 


,•* 


777 


001622 


000453 






BR 


EPISANE 


778 


001624 


011500 




EDIGROUIMOV 


(R5),K0 



IIP » LINE IS CHANGED UHICH |S 
iREPfRtNCEO BY THE READ POINTER, AN f! 
IPBIMTFR OR A 50SUB POINTER THEN THAT 
iPfllMTFR MUST BE CLEARED 



)R1 "OM » "CARS TO CONTRACT, 
lALL RErtRENCES BY THE READ POINTER 
(UHICH REFER TO LINES k'HICH »RF "OVE'? 
(BECAUSE OF EDITING MUST BE »ELOCATEn 



|R4 >'0U • AOOHESS AT UHICH Tn INSERT, 



(MOVE nO"N TUE COOE, 



IR! MOU POINTS TO BYTE AFTER THE .EOF. 

|R? voa HAS THE NEH START OF T"E SYmTjb, 
(MOVE DOBN THE SYMROLS', 



(CLEAR VACATED STRING ST5RACF To 8ER0ES, 



SICl, 


M»exii 


V021 


22»n4R.73 


779 


001626 


109740 




78» 


001630 


801401 




7»1 


001632 


009200 




782 


001634 


160180 




7S3 


001636 


810003 




7B4 


001640 


989203 




799 


381642 


842703 


800001 


786 


001646 


161903 




787 


001690 


066903 


800014 


788 


001654 


020369 


000012 


78» 


001660 


101482 




790 


001862 


000167 


020712 


79J 








79J 








793 


001666 


81038! 




79« 


001670 


809722 




79J 


a016'2 


020269 


000072 


798 


001676 


103409 




797 


001700 


804767 


821294 


798 


001704 


820269 


000072 


799 


001710 


113364 




8M 








88t 








882 


001712 


018902 


00*014 


883 


001716 


0183*9 


00*014 


804 


001722 


000401 




889 


001724 


014243 




80* 


001726 


820219 




807 


001730 


101379 




808 


001732 


810319 




809 


001734 


109043 




810 


001736 


010*02 




811 


081740 


860100 




812 


001742 


800481 




819 


001744 


U4042 




814 


001746 


820004 




819 


001790 


181379 




816 


001792 


01*900 


00002* 


817 


001796 


810401 




818 


001760 


012*02 




819 


001762 


000401 




820 


001764 


112024 




821 


001766 


009382 




822 


001770 


812379 




823 


801772 


121127 


00*229 


824 


001776 


801417 




829 


002000 


111102 




826 


002002 


100412 




827 


002004 


009201 




828 


002006 


01*302 




829 


002010 


192102 




830 


002012 


861902 




831 


002014 


022227 


177779 


832 


002020 


183003 




833 


002022 


810112 




ICL 


H«CX11 


V021 


22.M«R.73 



19141 p«ee i9>: 

TSTb 

0Ce 

INC 
3U8 
"OV 
INC 
B|C 
SUB 

too 

CHP 
8tOS 
ER80V1I JMP 

iI'NDF 

MOV 

TST 

suo 

JSR 
8HIS 

lENoe 



• (R>) 
I** 

R* 

R*,R3 
R3 

•;,R3 

(R9),H3 

I.OrRtt(R9),R3 

Ri|HlrHEE(R5l 

I** 

EI'R0V2 

INOSTN 

R3,R2' 

tH2)* 

R2,L0STSIR9) 

EDIROOM 

P5,UP''AeK 

R2|l.0SrR(R9) 

ERROVl 



19 Ml 



634 802*24 162712 000*02 

639 802030 0047*7 017194 

836 002034 800796 

837 002036 8*8167 177164 
839 



EOlROOM'HOV 


iO'REtlR9|,R2 
'3|L0rREE|R9) 


MOV 


8R 


■ ♦« 


EOlHVUPmoV 


.|R2li>(P3t 


CMP 


R2i(R9l 


BHI 


EOIMVVP 


NOV 


R3,1R?I 


CU"B 


• <R3) 


MOV 


R8,R2 


400 


Rt|R8 


*R 


1*4 


MOVB 


• |l)*)l>(R2| 


CMP 


R*lR4 


8HI 


• •4 


EDIStNEIMOV 


kINECM9),H0 


MOV 


R4,R1 


MOV 


(SP)*,R2 


8R 


,»* 


MOVB 


|R0)4,(4I* 


OCC 


R2 


BCE 


,•* 


EDtRLCBICNPB 


("Di'iEor 


*C0 


E8IJMP 


MOVB 


|Rl),fl2 


BHI 


EPIRUOC 


INC 


f% 


8ute 


R2 


B|SB 


<Rt)*iR2 


400 


("9(,M2 


CMP 


(R2)*|«,SCtt«l< 


■HIS 


EDtRUOC 


MOV 


"i,(B!!) 


11 PAGE 19.3 




SUB 


•2|(R2) 


coiRtoeusR 


P5|SKIPE0I. 


BR 


EPIRL58 


EOtJMPi JMP 


EDIT 



|R0 WOW POINTS PAST THE "lEU HIGHEST BYTE 
)0P COPE, 

|R3 '!0a M»S THE NEU START OF SYMIAB, 

|RS ^'OU MAS THE NEU VALUr IF LOFREE. 
ICHECK TO SEE THAT THERE IS .CNOUGH 



ICHEBK TO SEE THAT THE SPACE THAT VIH 
IBE "SCO IS NOT OCCUPIEO Bv ?TRI"CS 



IMO, MOVE THEM UP 
ITRT AriAIN 



iHOvr UP THE SYHTAg, 



ICLEAR TUE POSSIBUV USEO FILLER 

|R0 'OV POINTS PAST OLO "ICMFST BYTE 

lOF SY^TAB, 

IHOVr I'P THE COOE, 



iMOVr THE NE" LH'E IMTO THE rOOE, 



BASICI, HiCXll VB2: 22.N4R.73 15141 PAGE IS 



19? 
















141 










«4t 
S42 








1 IHMED 


• IMMEOUIE HpOE CoMHANOs 


849 








1 Oo IMntOIATt oNtT CoM"«10S 


IRI.IN, LIST. SCRATCH, CLEAR, 


944 








1 SAVE, AND 


OLD) AVU SET UP 


OTHERS (UN-IJUM9EHED) FOR 


949 








1 EXECUTE, 






946 
















947 


092842 


012600 




IHHEOI 


HqV 


!SP)»iR0 


IDH Nou MAS « BYTE5 p 


949 


092044 


00906J 


000076 




eu" 


0DEV(«5) 


ITIKE ONLY THIS Imheo, c;«", 


949 


002090 


016904 


000006 




MOV 


P9SIZE{R9),R4 




9:b 


302094 


316901 


000020 




MOV 


|,)NE(N9),R1 




9>1 


002060 


009002 






CLH 


R2 




992 


002062 


1511B2 






aiSB 


tHl),K2 




893 


002064 


162702 


000306 




SUB 


•.UISTiR2 
"2 




994 


002070 


00*302 






tSL 




899 


002072 


020227 


000012 




CMP 


R2,fTil,4ENl).TAf>Lr4 


896 


002076 


101012 






BHI 


IMMSTMT 




997 


002100 


:<62702 


000002 




ADD 


• 2|R2 




998 


002104 


s>60702 






ADO 


PC,R2 




899 


002106 


061207 






ADC 


(R2),PC 




860 


002110 


000162 




TA8UE4I 


,UORO 


l.lST.tABtE4 




861 


002112 


000206 






lUORD 


RUN>rA8LE4 




862 


002114 


000124 






,WORO 


SAVE-I»BLE4 




869 


002116 


000062 






,UORD 


OtO.TABLC4 




864 


002120 


177012 






,UORD 


S5RAT5H.TA9UE4 


MIN (START, CODE, ABOVE) 


969 


002122 


177022 




TBL4ENDI,«0R0 


Cl.tAR»TASl,E4 


KIN (START' COOr, AROVE) 


966 


002124 


060108 




IHhSTHTIADO 


R1,R0 




967 


002126 


020069 


000016 




CMP 


R0,COPE(R5) 


ISEE ir AN 'EOFi CAN BE riT n 


968 


002132 


103402 






818 


1*8 




969 


002134 


000167 


020034 




JMP 


ERRTRN 




67B 


002140 


112710 


000229 




MOVB 


•iEOr,(R0) 




871 


002144 


01271} 


177779 000030 


MOV 


«, SCALAR, U!N£N(1(»51 


972 


002192 


019061 


000036 




CI.R 


CI,MNTT»(R9) 


iRE-SET ALL COLMN COUNTS 


873 


002196 


009067 


176216 




CLR 


CI,MNPP 




874 


002162 


009067 


176214 




CLR 


CUMNtP 




979 
876 


002166 


000167 


000994 




JMP 


EXECUTE 


ISTAPT RUNNING, 



ICL 


MACXll 


V021 


22>m4R«73 


15141 PACE 17 






877 








1 'OLD' COMMAND 






878 


802172 


016906 


000004 


OLOt "OV 


PPLIR'I.SP 

PClINlTSCR 


iFLJOH OUT SYSTEH 


879 


002176 


004767 


013392 


JSR 


ISCHATCH 


880 


002202 


004767 


006974 


JSR 


PCiOLRVARS 




881 


002206 


004767 


016722 


JSR 


PCiSCANPNO 


iSCAV OFF («' 


882 


002212 


304767 


006464 


JSR 


PC.CHKISET 


ICHECX AND SET INPUT 


883 


002216 


122127 


000201 


CMPB 


tRt)*.»,E6L 


INUST END LINE RIGHT 


9S4 


002222 


301402 




BEO 


01,0001 




899 


002224 


300167 


010314 


JMP 


ERR5X9 




986 

867 


002230 


000167 


176772 


Ot,O001l JMP 


EOIT 


ITHJS noES THE REST 


888 








1 'SAyE( COMMAND 




869 


002234 


004767 


016674 


SAVEI JSR 


PC,SCANPNO 


(SCAN OFF (»' 


990 


002240 


004767 


006444 


JSR 


PC,CHKOSET 


ICHECK ANO SET.UP OUTPUT 


991 


002244 


120227 


000002 


CMPB 


R2iP2 


ILINF PRINTE"? 


992 


002290 


003434 




9LE 


LISTSV 


INOI LIST TAKES OVER 


993 


002292 


0B4167 


019222 


JSR 


RllNSeOOEV 


|F(>R LPT, ST«Rr u/ 2 FOR^tFECOS 


994 


002296 


014 


014 


000 ,BVTE 


rF,Ff;o 




995 




002262 




,EVEN 






996 


002262 


004767 


014316 


LISTSVI JSR 


PS.LSIPROO 




997 
998 
899 


002266 


300167 


176692 


JMP 


REAOV 










1 'LIST' COMMAND 




900 


302272 


309201 




LISTI INC 


"1 




901 


002274 


304767 


312934 


JSR 


PC.FLINE 




902 


002300 


103770 




BCS 


LISTSV 




903 


302302 


311201 




MOV 


(R2),R1 


lOET AOO" OF CODE LINE 


904 


002334 


001766 




BEO 


LISTSV 


( IF UNOEF, NORMAL LIST 


905 


002336 


304767 


014276 


JSR 


PC.LSTLOOP 


ILIST PARTIAL PROGR 


906 
907 


002312 


300167 


176626 


JMP 


READY 





BtSJCI, M»CX11 VB21 2S.HA(I.73 15M1 P»GE l« 



91$ 
»»» 
»tB 
»11 
»12 

»u 

914 
»15 
916 
91? 
9l» 
919 

92e 

921 
922 
923 

924 
92» 
926 

927 

92e 

929 
93« 
931 
932 
933 
934 
93S 
936 
937 
93a 
939 
941 
941 
942 
943 
944 
949 
946 
947 

94a 

949 
9S0 
9»1 
952 

993 
994 
999 

996 

997 
998 
999 
960 
961 
962 



9(2316 
a«2322 

002326 
002330 
002332 
002334 
002336 
002340 
002344 
002346 
002392 
002394 
S02360 
002362 
002366 
002370 
002374 
002376 
002400 
002404 
002406 
002410 
0(2412 
012414 
002416 
002420 
012424 
002426 
002430 
002434 
002436 
002442 
002444 
002446 
002490 
002492 
012494 
002496 
002462 
012466 
112470 
002474 
012476 
012900 
112902 
1(2906 
11291( 
012914 
112916 
012921 
012922 
002924 
002926 
002930 



014767 
016901 
112102 
100406 
000302 
192102 
061902 
311269 
112102 
120227 
011419 
120227 
?11930 
120227 
B019B4 
120227 
01193? 
009301 
014767 
01(79) 
112102 
100906 
0(0302 
192102 
061902 
122127 
8(1101 
209(03 
12112? 
011406 
12212? 
0(1(71 
11110] 
1(046? 
0(0303 
0(9201 
1911(3 
0127(4 
12212? 
0(1423 
12412? 
0)1(94 
019201 
019(04 
12112? 
011416 
12212? 
011(44 
111104 
1(1442 
00304 
0(9201 
192114 
12212? 



0(6460 

0(((t6 



000030 
00(219 
001221 
00(21( 

000229 

016964 



DUN I 



001379 

000376 



177777 
01(237 



0(0379 
0(0376 



DEPOUNI 
OlMCOTt 



COHHiNO 
JS0 
MOV 
OIMtOOPIHOVa 
(Ml 
SH4B 
BI3B 

too 

MOV 
MOV) 
DIMNONOICMPB 
BEQ 
CMP) 
(EQ 
CNPB 
BEO 
CMPB 
BEO 
DEC 
JSR 
BR 

MOVB 
BMI 

SH*a 

B|9B 

too 

CMP8 
BNE 

ei.a 

CMPB 
BEO 
CHPB 
BNE 
MOVB 
BMI 
SUtB 
tUOCll INC 

aiSB 

MOV 

CHPB 

BEO 

CHPB 

(NE 

INC 

CI.P 

CNPB 

BEO 

CHPB 

BNE 

MOVB 

SMI 

SHta 
tkLoe2i INC 
a|SB 

CMPa 



p;,eLPvtPs 

CaOE(ll9),Rl 

(Nl)«,R2 

OINNONO 

R2 

(R1)«,R2 

IR9t|R2 

|R2),mNeNS(n5l 

(R1)*,R2 

R2if,9IM 

OlMGOi 

R2,f,0CF 

OSPSOi 

R2|(,RtN00M 

RNOSOi 

m,$,ior 

OINOONE 
«1 

P?,SK1PE0|, 

OIMLOOP 

(R1)»|R2 

ERROIN 

R2 

IR1)*|R2 

(R9),R2 

(Rl)»l«,l.PtR 

ERROIM 

IH1),»,H.1T1 

tk,UOCl 

(l'l)4|»iIl.lT2 

EHROIM 

(HI), MS 

ENROIM 

R3 

»i 

(H1)*|R3 

•.t,R4 

(Rt|*,»,RPtR 

OOtLLOC 

•I<*1I|*|C0MM1 

CRROIM 

RJ 

R4 

iHDi'iiLin 
t(,i,ac2 

<>lll»l«iIUIT2 

ERROIM 

(R1),M4 

EHROIM 
R4 

ai 

(Rl)*,R4 
|Hl)*|>,RPtR 
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963 

964 

969 

966 

967 

96) 

969 

971 

971 

972 

973 

974 

979 

976 

977 

978 

979 

961 

9«1 

902 

983 

994 

989 

986 

987 

988 

989 

990 

991 

992 

993 

994 

999 

996 

997 

998 

999 

100( 

1001 

1002 

1003 

1004 

IBB9 

1006 

100? 

1008 

100V 

1010 

1(11 

1012 

1(13 

1(14 

IBIS 

1016 

1(17 



0(2934 

0(2936 
0(2942 
0(2944 
0(2946 
(02992 
0(2994 
0(296( 
0(2964 
012966 
002972 
002974 
002976 



002606 
0(2614 
0(262( 
0(2622 
002626 



0(1)34 
02122? 
0(1431 
0(2403 
309762 
100(29 
004767 
122127 
0(171) 
12412? 
301(19 
0(9201 
000693 

016969 
192769 
122127 
0(1642 

00(16? 
000(04 



177776 



0(2633 
0(2634 
1(2636 

0(2641 

0(2642 

0(2646 
0(269( 
0(2692 
0(2696 
0(266) 
002662 
002666 
00267) 
302672 
002674 
302700 
0(2704 
00271) 
002714 
002720 
002724 
002726 



((923( 

01(24? 



0002(1 



0)0)7) 
00)((1 
0(0201 

007716 



0(263( 042111 



(0) 

0I))(4 
042111 



122127 

0(1372 
112102 
:)66902 
019712 
711369 
12212? 
0)1362 
31(112 
01(642 
0(9(69 
3(9)67 
:<(9(6? 
016904 

ei690i 

12112? 
301010 
0(4167 



BNE 
OottLOCICMP 
aEO 
BUT 
TST 
BPt 
OINSCLRWSR 
CHPB 
BEO 
CNPB 
BNE 
INC 
BR 



iRtNOOMIiE STtTEMENT 



(NROIN 

IR2||0,NVtR 

ERROIM 

oiMSC^R 

4IR2I 

EHROIM 

pciimoc 

|Hi)*|4, COMMA 
OlMSOI 
.(R1),#,E0L 
EKROIM 

OIMLOOP 



|V1M(R2),5S1IR3),SS2(4) 



0(0(64 RNDGOTI 
(00(64 



Ki 



0(0262 



0(1(36 
175474 

179472 
000006 
000016 
0(0229 

014912 



MOV 
aiSB 

CMPB 
BEO 
JMP 
ERRDIMt lOT 

iIFNOF 
.ASCII 
.ENOC 

iiror 

, ASCII 
lENOC 
,8VTE ! 
,EV£N 
ERRDEFI lOT 

iIPNOr 
.ASCII 
.ENOC 

,iror 

.ASCII 
.ENOC 
.BYTE i 
.EVEN 
OEPCOTI CMPB 
BNE 
MOVB 

too 

TST 

BNE 

CMPB 

BNE 

"OV 

BR 

OIMDONEICI." 
CL" 
CU" 
MOV 
"OV 
CMPB 
BNE 

ERRRUNI JSR 



RNOCT(R»)|RNnilR'S) 

• l,RNyi()l9) 

<Hl)*,l,EOL 

OIMUOOP 

EHRSTN 

mONCER 
' IDM' 

I|,ONCCR 
'ItUEBAl. OIM< 



SLONG^R 

Morv 



IkONGER 
'ItUEStl. OEr< 



(H1I*I«.FN 

EKROEf 

(R1)*,H2 

P0U(''»)."2 

(R2) 

EHROEF 

(Rl|*,»,LPtR 

ENHOE? 

"Ii(a2) 

OEFOUN 

CLMNTTYIPS) 

Cl,HNPP 

CUMNtP 

P0StiE(R9),R4 

C0DE(H9|,Rt 

(R11,»,E0F 

EXECUTE 

R},MSSERR 



IRE.SET «Ll. C0I.UKN CUNT? 



|STA»T RUNNING, 



'SICU 


mexii 


¥821 


22tn«R. 


i73 


15141 


PAKE 


ia>2 




UlS 














. If Nor 


SkONCCH 


1BI» 


gg2732 


BStllt 


122 








.ASCII 


\NPR\ 


i«2g 














,ENOC 




1B2X 














,I'OF 


SlaONEER 


1122 














.ASCII 


■NO PHOSPAM' 


tez3 














.CNOC 




IB24 


aa2735 


888 










.BYTE t 




IB2S 














.EVEN 




te2« 


382736 


3881»r 


176244 








JMP 


"EAOY« 


tB27 
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iB2a 








1B2» 








IflSB 








1B3J 








1B32 


802742 


394767 


316222 


1B33 


8B2746 


1BS765 


388186 


1834 


882792 


381484 




1839 


882794 


189865 


888186 


1836 


882768 


389167 


176168 


1837 


882764 


112182 




1839 


882766 


382B39 




1839 


88277B 


842732 


177688 


1848 


882774 


386382 




1841 


892776 


328227 


888892 


1842 


883882 


181115 




1843 


083884 


368782 




1B44 


883886 


861287 




1849 


883818 


177736 




1846 


883812 


388338 




1847 


883814 


3B1224 




1B48 


883816 


38184B 




1B49 


383828 


281848 




iBse 


883822 


383372 




IZ'l 


383824 


732648 




1892 


333826 


388246 




1893 


383838 


331742 




1B54 


383832 


382294 




1899 


883834 


881144 




1896 


383836 


380352 




1B97 


383848 


177732 




1899 


883842 


177732 




1899 


883844 


88iB2« 




1B68 


883846 


177732 




1861 


383898 


177732 




1862 


083852 


3B3346 




1863 


383894 


177732 




1864 


383896 


080874 




1865 


883868 


388330 




1866 


883862 


388382 




1B67 


383864 


152182 




1869 


8B3B66 


361982 




1869 


883878 


321227 


177779 


1878 


383874 


183875 




1871 


8B3876 


C11265 


388B3B 


1872 


883182 


389721 




1873 








1B74 









I EXECUTE • EXECUTE CpMHANO LINE 

IGNOPEl JSP PCiSKlPEot. 
EXECUTEITSTB CNCri.0(H5) inc HITJ 
BED NOCNC 

C»ICFLB(R9) 



NOCNC I 



CLPB 
JMP 
HOKB 
BGE 
BIC 
ASl 
CMP 
SHI 
ADO 
ADO 
TABLEll ,UORO 
.UORD 
iMORD 
.WORD 
.WORD 
.UORO 
.WORD 
.UORO 
.WORD 
.UORD 
.tlORO 
,UORO 
,HOR0 
.WORD 
.UORO 
.WORD 
I UORO 
,W0RO 
.HORO 
,UORO 
rSLlENOI.UORO 
NOTSYMI SUAB 
BISB 
AOO 
CHP 
BHIS 
"OV 
BR 



READY 
(»ll*l"2 

NOTSYK 
••288|R2 

R2 

R2,»TBLlEN0.TAeLEl*2 

ERRSXl 

PC,R2 

IR2),CC 

EXECUtE.TAflLEl 

END.TABLEl 

F0R.TA8LE1 

i:OSUB«TARI,ei 

G0T0"TASLEl 

If. TABLE! 

INPUT.TA9LE1 

LIT.TABLCl 

NEXT-IABLEl 

PRlNT«TABLEt 

RETURN. TABLEl 

5T0P-TA9LE1 

IGNORE«rABLEi 

ISNORE^TABLEl 

RESTOHE. TABLEl 

IGNORE. TABLEl 

IGNORE. TABLEl 

READ.XABLEl 

IGNORE. TABLEl 

OALL-TABLEt 

EOF. TABLE! 

R2 

(K1)»|R2 

<R9),R2 

(H2),», SCALAR 

ASSIGN 

(H2),mNEN0(R5l 

EXECUTE 



(ITS A POINTER, 



INOT A STATEMENT yORO, 
IBPA'ICH THRU T'BLEl, 



INOI A LINENO, 
ISAVF THE LINENO, 
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1879 








1876 








1177 








l»7» 








1879 








ie«8 


883184 


J04767 


086272 


ll»l 


883111 


183092 




1862 


883112 


812680 




1883 


883114 


828027 


177777 


18M 


883128 


881444 




IBBS 


883122 


112003 




list 


083124 


112028 




1887 








1888 








108< 








1898 








1891 








1892 








1893 








1(94 








1899 








1B9» 








1897 








1896 








1899 








1188 








1181 








1182 








1183 








1184 








1189 








1186 








U87 








1186 








1109 


883126 


813782 


880(46 


1118 


883132 


801437 




1111 


883134 


818246 




1112 








1113 


883136 


189712 




1114 


883140 


801434 




1119 








1116 


883142 


81(146 




1117 


883144 


81(346 




1118 


883146 


122(22 




1119 


883198 


8(1(34 




1128 


883192 


0(9383 




1121 


883194 


8(1374 




lt2S 








1123 


883196 


161683 




1124 


883168 


862783 


80(0(4 


1129 


889164 


882422 




1126 


883166 


8(1484 




1127 


88317B 


1BST22 




1128 


883172 


881(23 




1129 


883174 


8(9383 




SICL 


H4CX11 


V821 


22IH4R.73 


1138 


883176 


8(1374 




1131 








1132 


083288 


062786 


808006 


1133 


883284 


'11202 




1134 


883286 


881411 




1135 


083210 


018146 




1136 


883212 


?18446 




1137 


883214 


018946 




1136 








1139 


883216 


8(4712 




1148 








1141 


803228 


812689 




1142 


803222 


012684 




1143 


003224 


812681 




1144 


803226 


888167 


177510 


1149 


003232 


088167 


011262 


1146 


883236 


888167 


087382 


1147 








1146 


883242 


012683 




1149 


883244 


012688 




11S8 


883246 


862716 


888086 


1191 


083292 


811602 




1192 


803294 


8(873( 




1193 








1194 








1199 


003296 


112182 




1196 


883260 


188766 




1197 


083262 


^88382 




11S6 


883264 


192182 




1199 


883266 


361582 




1168 


003270 


»84767 


012070 


1161 


883274 


122127 


880294 


1162 


883388 


881396 




1163 


083382 


084767 


886874 


1164 








1169 








1166 


883386 


1(3486 




1167 








1166 








1169 


883310 


122127 


888281 


1178 


883314 


081398 




1171 


883316 


504767 


819732 


1172 


083322 


9100611 




1173 








1174 








1179 


883324 


122127 


888281 


1176 


083330 


0(1342 




1177 


003332 


004767 


015776 


1176 


003336 


008683 




1179 








1168 








1161 








1182 








1163 


883340 


(128165 


888816 


1164 


883344 


183014 





I 'C«LL' STiTtHENT 

I C*tL "'R06» (,,,) 

CAUL I 





.KNOf 


SNOSTM 






JSR 


PC.EVAl. 


(EVALUATE FUNCTION NA 




see 


EBRSKl 






"OV 


|SP)*,R( 






CMP 


S8,»177777 


ICHECX NULI. STRING 




BCO 


CRHrNl 


lYCS, ERROR 




"OVB 


(He)»,R3 


IRJ IS STRING LENGTH 




«0»B 


|R«)4|(R8|4 


IRP IS AODR OF CHARS 




,ENOC 








■ I 'OF 


INOSTR 






"OVB 


|R1)*|R2 


|R? IS QUOTE CHAR 




CNP9 


R2,»,S0U0T 






BEO 


CAtUl 






CMPB 


R2,«,oauoT 






BNC 


CHRBXi 




C«IL1I 


CMPB 


(R1)»I»,TC«T 






BNC 


CRRSXl 






MOV 


R1|R8 


iRP IS AIIOR OF CHARS 




CI" 


"3 




CAILPI 


INC 


R3 


ICOUNT CHARS IN R3 




TSTB 


ftl* 






9Ne 


CAttP 






CMPB 


(Rt)*,R2 


ICHECK CLOSING QUOTE 




BNC 


EHRSX; 






DEC 


"J 






BEQ 


EHRFNl 






lENOC 






1 


INIT TABl? search 






MOV 


i«46iR2 






BED 


ERRFN| 


INO FUNCTIONS OEFINEO 




MOV 


R2,.(SP) 


ISAVF ON STACK 


t 


CHECK 


ENO TABUC 




CALLCKI 


TSTB 


(R2) 






BEO 


ERRFNl 




1 


CHECK 


THAT (Rj) CHARS MATCH 




MOV 


RB,.(jP| 






MOV 


»3,.(SP) 




CALLMll 


CMPB 


(R()4|{R2)* 






BNE 


CAUNM 






DEC 


R3 






BNC 


e»iLMi 




1 


CNCCK 


THAT 4«|R3I CHARS 


ARC " IN TABLE 




SUB 


(SP),K3 






ADO 


•4,R3 






8I.T 


ERRFNi 






BEO 


CA|,LX 




CALU»2I 


TSTB 


(R2)4 






BNC 


CAtUNM 






oec 


R3 





15141 PAOC 2B>1 





SNE 


CALL"! 


1 


RETURN 


AN?«R 


CALLXI 


AOD 


•6,SP iPOP STACK 




"OV 


("21. "2 




BEO 


EHRFN) 




"OV 


R1,.(SP) 




MOV 


R4,.(SP) 




MOV 


R5..(SP1 




JSR 


PC,(R2) 




"OV 


ISP)«,R5 




"OV 


ISP)*|R4 




"OV 


(SP)»,R1 




JMP 


ISNORt 


ERRFNll 


JMP 


ERRUFN 


ERRSXll 


JMP 


ENRSYN 


1 


ADVANCE 


TO NEXT TABLE ENTRV 


CALLNHI 


"OV 


(SP)»,R3 




"OV 


(SP|»,R8 




too 


«6,(SP) 




"OV 


(SP),R2 




BR 


CALLCK 


1 »let' 


STATEMENT ROUTINE 


LEfl 


"OVB 


|R1)4,R2 




9HI 


ERRSXl INOT A POIN 




SWAB 


R2 




sisa 


(Ht)»,H2 




AOD 


(R5),H2 


ASSIGNI 


JSR 


PC.GEIVAR 




CMPB 


(Rt)*i»,Ea 




BNC 


ERRSXi iNOT EOSIGN 




JSR 


PS.EVAL 




iIFNOF 


INOSTH 




BCS 


A§SSTR 




,ENOC 






CMPB 


(R1)*i»,E0l 




BNC 


ERRSXl 




JSR 


PC,STOVAR 




BR 


EXECUTE 




iIFnOF 


INOSTM 


ASSSTRl 


CMPB 


("1)»I«.E0U 




BNE 


ERRSXl 




JSR 


PSiSTOSVAH 




BR 


EXECUiC 




lENOC 




1 'EoF' 


OR 'EnO 


' STATEMENT 


CNOI 






COFI 


CMP 


RJ,C0VC(R5) 




BHIS 


JMPROY 



iSICt 


ii»exii 


vaai 


22II14R173 


19! 41 PACE 20>2 






903346 


3B41S7 


014100 


JS" 


"t.HBg 




BB33J2 


01S 


012 > 


.SYTC 


CH,i.r 




003394 


000 




.BYTE 






?«3396 




(EVEN 






303396 


?0Bi»y 


179644 


jnr 


EPIT 










1 'STOP' STATEHENt 




003362 


a«4i6r 


014064 


STOPI JS» 


l^tlMSC 




003366 


^^t 


012 


.BYTE 


CR,ir 




003370 


092123 


090117 


.ASCII 


•STOP' 




003374 


000 
JBS3T6 




.BYTE 
.EVEN 







003376 


2001>r 


17"42 


JMPnOYI JMP 


READY 
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U98 








1 Mr' STATEMENT KOUTINE 


ll»» 


003402 


004767 


00S774 


IF) JSR 


P^iEVAL 


1200 


003406 


103114 




BCC 


IFnum(:r 


1201 


003410 


121127 


000244 


CMPB 


(^lliOfUE 


1202 


003414 


10371B 




BLO 


ERRSX) 


1203 


003416 


121127 


000294 


enPB 


(Ht)l«,E0 


1204 


003422 


101309 




8HI 


ERRSXl 


1209 


003424 


020604 




CHP 


SP,R4 


1206 


003426 


10399] 




BIO 


EHRP03 


1207 


003430 


112146 




"0V8 


(R1)*,.(SP| 


120S 
1209 


003432 


004767 


009744 


JSR 


PC.EVAl, 


1210 








iirNur 


snosth 


1211 


003436 


103191 




BCC 


ERRMX4 


1212 








.ENOC 




1213 












1214 


003440 


012603 




«ov 


(SP)«|R3 


1219 


003442 


012600 




WOV 


ISP|*|R0 


1216 


003444 


012602 




XOV 


ISP|*|R2 


1217 


003446 


010046 




HOV 


R0|«<SP) 


1218 


003490 


009046 




ClR 

cSp 


•(SP)~ 


1219 


003492 


020227 


177777 


R2,)I>1 


1220 


003496 


001401 




aCQ 


1*4 


1221 


003460 


191216 




BtSB 


(R2>i (SP) 


1222 


003462 


009000 




CUR 


R0 


122} 


003464 


020327 


177777 


C«P 


R3|«al 


1224 


003470 


001401 




BEQ 


1*4 


1229 


003472 


191300 




BIS8 


(K3),M0 


1226 


003474 


(162702 


000003 


ADO 


'3,R2 


1227 


003900 


062703 


000003 


ADO 


• 3,R3. 


1228 


003904 


000402 




BR 


,*6 


1229 


003906 


122322 




IPtOOPl CMPB 


(K3|»,(R21« 


1230 


003910 


001047 




BNE 


IFCOMP 


1231 


003912 


009300 




DEC 


R0 


1232 


003914 


002410 




BI.T 


IFLEND 


1233 


003916 


009316 




DEC 


(SP| 


1234 


003920 


002372 




BCC 


IFUOOP 


1239 


003922 


122327 


000040 


CMPB 


tH3)*i*ai. 


1236 


003926 


001040 




BNE 


IPCOMP 


1237 


003930 


009300 




DEC 


Rfl 


1238 


003932 


002373 




BCE 


i«10 


1239 


003934 


000407 




BR 


IFSEQ 


1240 


003936 


009716 




iruENOI TST 


d") 


1241 


003940 


003409 




8I.E 


IFSEO 


1242 


0B3942 


122722 


000040 


CMPB 


aBU|(M2)* 


1243 


003946 


(01030 




BNE 


IPCOMP 


1244 


003990 


009316 




DEC 


(SP) 


1249 


003992 


003373 




8GT 


.•10 


1246 


003994 


009726 




irSEOI TST 


tSPI* 


1247 


003996 


012600 




MOV 


(SP|*|R0 


1248 


003560 


112102 




IFlEQRI H0V8 


<«1)*|R2 


1249 


003562 


120227 


000242 


CMPB 


R2,«,THEN 


1290 


003966 


001403 




BEB 


.'10 


1291 


003970 


120227 


000209 


CMPB 


R2,»,50T!! 


1292 


003974 


001013 




BNE 


ERRSX7 
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CNP8 »*i»,\,l 

sea GOTO 

CMPB P8|I>,$E 

Beo sgro 

CMPe R0,f,eii 

SCO GOTO 

JHP- IGNOPt 

tAPSXri JHP EKRSX9 

ireoMPi BUT irssT 

TST (JP)* 

HOV <SP)*|RB 

BH IfULTR 

IFNUHEPICHPS l>)t||P,Le 

BLO EHRSX; 

CHPB (Ht|i*,EO 

9HI EPPSX7 

CMP SP,P« 

BtO ERRP03 

NOV r<e2(K')i<iSP) 

"ov r»ei(R»),«iSP) 

NOVB |Bt)»|»(SP) 

JSR PS.EVAI. 

.IPnOF INOSTH 

BCS ENPMX4 
.ENOC 



t!»3 


003976 


12((2T 


0(0244 


12S4 


003602 


3(1922 




12»» 


003604 


120(27 


000246 


125» 


003610 


v!B1917 




l^i^ 


003612 


120027 


00(294 


125« 


303616 


?01914 




125« 


003620 


300167 


177116 


t2eB 


001624 


SB0167 


006714 


1!«1 


003630 


902496 




1262 


003632 


0(9726 




12*3 


013634 


012600 




1264 


003636 


300429 




t2»9 


003640 


121127 


0(0244 


1266 


003644 


1*3767 




1267 


003646 


121127 


00(294 


1261 


003692 


1(1364 




126» 


003694 


320604 




127« 


003696 


103437 




1271 


003661 


01t94« 


0(0(42 


1272 


003664 


(116946 


000040 


1273 


0*3670 


112146 




1274 


0(3672 


004767 


0(99(4 


1»7» 








1276 








1277 


0(3676 


1*S431 




1276 








1279 








126) 


0(3700 


012600 




I2ai 


003702 


0(4767 


019942 


1202 


003706 


001724 




12«3 


003710 


0(243( 




12B4 


0(3712 


112102 




12B9 


003714 


120227 


00(242 


1266 


003720 


001403 




1267 


003722 


1219227 


000209 


I2«e 


003726 


001110 




121« 


003730 


120027 


000244 


12»B 


003734 


001449 




I2»l 


003736 


120027 


000292 


12»2 


003742 


S01442 




1293 


003744 


120(27 


00(290 


1294 


0(379( 


0(1437 




129S 


0(3792 


0((167 


176764 


1296 


003796 


0((167 


0(6(i( 


1297 








1296 








1299 


0(3762 


0(0167 


007024 


13BB 








13B1 








19B2 


0(3766 


0(9726 




1903 


003770 


0U60( 




13B4 


003772 


iiii(2 




1309 


0(3774 


12(227 


00(242 


1306 


0(4(0( 


0(1403 




1307 


004002 


120227 


000209 


*stcu 


H«CX11 


V021 


22>MtR>73 


1306 


004006 


0(1(60 




1309 


004012 


120027 


000246 


1310 


004014 


001419 




1311 


004016 


120(27 


000293 


1312 


004022 


0(1412 




1313 


004024 


12((27 


00(29( 


1314 


004030 


0(1407 




1319 


004032 


000167 


176704 


1316 


004036 


B12779 


177777 a 


1317 


304044 


000167 


176676 


1316 









HOV 
JSR 
(£9 
BUT 

IFLLTRI «OVB 
CHPB 
BEO 
CHPB 
BNC 
CHPB 
(EO 
CHPB 
BCO 
CHPB 
(EO 
JHP 

eRRP03l JHP 



(5P)*|R0 

pSiSUBSTK 

IfUEOH 

IfUGTR 

CHI>*|"2 

«2l»,IHEN 

.*!( 

R2,»,50T0 

ERRSX6 

R(,I,UE 

GOTO 

R(.#ikT 

GOTO 

R(|0,NE 

GOTO 

IGNORi. 

EHRPOg 



ERRHX4I 



iIPNor JNOSTR 
JMP ERRhIX 
lENOC 



IFSgTI TST 
HOV 

irtSTRl HOVB 
CHPB 
BEO 
CHPB 
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BNE 

chps 

BEO 
CHPB 
BEG 
CMPB 
lEQ 
JHP 
004 RESTOREIHOV 
JMP 



(5P)* 

(SP)*|R( 

(R1)»,R2 

R2l«,IHEN 

.•K 

R2,»,ttOTO 



CNRSX6 
R(|(iGE 

GOTO 

R*l6,GT 

GOTO 

R0|«,ME 

GOTO 

tGNORE 

••li»PDL(R9) 

EXECUTE 



ISICL 


MACXll 


V021 


22.M4R. 


73 191 


141 f*6E 22 




1»> 










1 'GOSUB' AND ' 


60T0' ST»TEHENTS 


1928 










l>0SU8l 






1321 


384850 


384767 


310760 




GOtOl 


JSR 


pp.rHNE 


1322 


004054 


103435 








BCS 


ERRSI(6 


1923 


004096 


122127 


000201 






CMPB 


|H1)*I»,E0L 


1924 


904062 


301032 








HNE 


EHRSX6 


192S 


004064 


309712 








TST 


(R2) 


U86 


004066 


081429 








SCO 


ERRCO 


1327 


004070 


126127 


177774 


000204 




CMP8 


-4(H1|,»,50SUB 


1328 


004076 


081013 








But 


CONOSAV 


1329 


0041II0 


316503 


300032 






MOV 


CS8CTK(R9),R3 


1330 


004104 


006303 








»SI. 


R3 


1331 


004106 


066903 


003034 






too 


P0I.(R»).R3 


1932 


004112 


020369 


303032 






CMP 


"3,LIM1T|R9| 


1933 


004116 


111006 








BHI 


EKRDECP 


1334 


004120 


010119 








MOV 


Rl,il"9l 


193> 


004122 


309269 


080032 






INC 


0SBeTH(fl5| 


1936 


004126 


311201 






OONOSAVIHQV 


(H2),N1 


1337 


004130 


000167 


176612 






JMP 


EXECUTE 


133« 


004134 


000004 






CRRDCEPHOT 




1339 












.irNOF 


SliONCER 


194» 


004136 


047107 


104 






.ISCII 


NONON' 


1941 












lENOC 




1942 












ilfor 


JUONStR 


1949 












.ASCII 


•GOSUBS NESTED TOO OEEPL" 


1944 












,ENOC 




194S 


004141 


008 








.BTTE 




1346 












lEVEN 




1947 


004142 


080004 






CRRCOI 


lOT 




^Vl 












iIFNDF 


j;,ONCtR 


1949 


004144 


046125 


116 






.ASCII 


\UtN\ 


19S» 












.ENDC 




1991 












.iror 


J|,ONCtR 


1992 












.ASCII 


'VNOEriNEO UINF UUHBFRI 


1959 












.ENDC 




1994 


004147 


800 








.BYTE 




1959 












.EVEN 




1956 


004158 


088167 


006370 




CRRSX6I 


JMP 


EKRSX9 


1957 

















ISICU 


MACXll 


V021 


22aH>R>73 19 


199* 








1999 


004154 


122127 


300231 


1960 


004160 


301373 




1361 


004162 


316933 


300332 


1362 


004166 


320327 


000033 


1969 


004172 


001419 




1964 


004174 


009309 




1965 


304176 


310365 


300032 


1966 


004202 


006303 




1367 


304234 


366903 


300004 


1960 


004218 


309713 




1969 


004212 


001409 




1370 


084214 


011381 




1371 


084216 


000167 


176S24 


1372 








1373 








1374 


004222 


000167 


306564 


1375 








1976 








1977 


004226 


088804 




1378 








1379 


384230 


341122 


107 


13«0 








1381 








1382 








1383 








1384 


304233 


800 




1385 








1386 








1387 








1386 


304234 


010146 




1389 


304236 


009316 




1390 


004240 


112102 




1391 


004242 


100742 




1392 


304244 


003302 




1393 


004246 


192132 




1394 


304290 


361902 




1395 


004252 


321227 


177777 


1396 


304256 


301734 




1397 


304260 


122127 


300254 


1398 


384264 


301331 




1399 


004266 


318269 


000822 


1400 


304272 


304767 


009104 


1401 








1402 








1403 


304276 


103791 




1404 








1439 








1436 


304300 


312765 


177777 303024 


1437 


004306 


004767 


014742 


1408 


004312 


122127 


300240 


1409 


004316 


301314 




1410 


004320 


304767 


089096 


1411 








1412 
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I (RETURNI STATEMENT 
RETURN I CMPB 



BNE 
MOV 
CMP 
BEO 
DEC 
MOV 
ASt 
AOO 
TST 
BEO 

MOV 
JMP 



tRt)»,»,EOL 

ERRSX6 

GSBCTR(R5I.R3 

R3,»33 

ERRREt 

R3 

R9,GSBCTR|P5I 

R3 

p6U(R»),'>3 

(R3) 

ERRREI 

(R3),(«l 

EXECUTE 



ilfNOr JNOSTM 
ERRMX5I JMP ERRMIX 
.ENOC 



ERRRET I 



lOT 

.[FNOr 

.ASCII 

.ENOC 

.IPDP 

.ASCII 

.ENOC 

.BYTE S 

.EVEN 



SPONGER 

\RBg\ 



ll,ONG^H 

'RETURN BEFORE CnSUS' 



1 'FOR' STATEMENT 



FORI 



MOV 
DEC 
MOVB 
BMI 

suAe 

B|S6 

ADO 

CMP 

BEO 

CMPB 

BNE 

MOV 

JSR 



R».«<|P) 

<SP| 

(R1)»|M2 

ERRSXJ 

R2 

(R11*,R2 

(R5),M2 

<N2),»,SVAP 

ERRSX6 

<Rl)*l'iEIl 

EHRSX6 

R2,VANSAV(R5) 

P5.EVAU 



KLOC OF THE 'FORM 



.(FNOF JNOSTH 
BCS ERRMX5 
,ENOC 



MOV 

JSR 

CMPB 

BNE 

JSR 



••li$St$AV(R9] 

PSiSTOVAR 

IR1)*I».T0 

ERRSXJ 

P5.EVAI. 



)(VA" OF THE FOR) 



IFOKCE TD SCALAR, 



, [FnOF SNOSTM 
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1413 
1414 
t41J 

1416 
1417 
1416 
14H 
1429 
1421 
1422 
142J 
1424 
1429 
1426 
1427 
1426 
1429 
1430 
1431 
1432 
1433 
1434 
1439 
1436 
143T 
1431 
1439 
t44« 
1441 
1442 
1443 
1444 
1449 
1446 
1447 
1446 
1449 
149) 
1491 
1492 
1493 
1494 
1499 
1496 
1497 
1491 
1459 
1469 
1461 
1462 
1463 
1464 
1469 
1466 
1467 



9)4324 1)3736 



Z)4326 016969 ))«)4« 00)924 

0)4334 016969 0)«)42 008026 

0)4342 009)69 00))4) 

0)4346 012769 0)0001 000042 

0)4394 121127 0)0291 

0)436) 0)1411 

))4]62 122127 ))«241 

0)4366 ))127) 

0)437) 004767 0)90)6 



iCnOC 

NOV 
MOV 

CU" 

NOV 

CHPB 

ee« 

CMPB 
BNt 



E«">HX» 

r»ei(H9),5SlSAV(rt9> 

r«e2(«9),S32S»V(P5>)alMIT or THE FO'l 

FABKHJ) 

• lir>;2(<t>l lASSi'MFD STEP IS 1,) 

((ll),»,EOU 

rORONE 

(Rt)«if,STCP 

ERI(SX6 

PflEVAU 



904374 109712 



004376 
004402 
004404 
0044)6 
0)4412 
))4414 
)04420 
004422 
004424 
004426 
004430 
004432 
004434 
00444) 
))4442 
004444 
004490 
0)4492 
904496 
004460 
0)4464 
0)4466 
))447) 
)04472 
004474 
004476 
0049)0 
))4902 
004904 
004910 
004912 



121127 
001262 
0)92)1 
0169)3 
0004)2 
0)4767 
111102 
1)041) 
0)9201 
000302 
1921)2 
061902 
021227 
1)3001 
011203 
121127 
00142) 
121127 
001420 
121127 
00I39J 
•09201 
111102 
100790 
009201 
0003)2 
1921)2 
061902 
020269 
)01341 
000004 



004914 093906 



0002)1 

00003) 
01499) 



177779 

000229 
000211 
0002)9 



Cmp9 
BNE 

rORONEI INC 
NOV 
)R 

rORSKIPtJSR 

rORLOOKIMOVB 
BHI 
INC 
SNAB 
BIS8 
AOO 
CMP 
BHIS 
MOV 

rORNOUl CMPB 
BEO 
CMPB 
BES 
CMPB 
8NE 
INC 
HgVB 
BMI 
INC 
SUAB 
8ISB 
AOO 
CMP 

ERR4H0I lOT 

.ITNOF 

.ASCII 

,ENOC 

ilPOf 

(ASCII 

,ENDC 



KTAC HAS THE STEP) 



ilPNOr INOSTK 
BCS ERRMX9 
lENOC 



IHt)i<,Eol. 
ERRSX6 

«l 

UINEN0(R9),R3 

PORtOOK 

PC,SK|PEai. 

(Ht),(<2 

rORNOV 

r; 

R2 

("l)*lR2 

(R9),H2 

(R2),>, SCALAR 

rORNOI, 

IR2),H3 

IRl)i»,E!!F 

ENR4M0 

(Rl),«,NEXT 

FORNEXT 

(R1),»,F0R 

rORSKIP 

Ri 

IRtlifiJ 

rORSKlP 

r; 

R2 

|K1)*,R2 

(f<9),R2 

R2,VARSAV|*5I 

FORSKIP 

SliONCER 
'FUN' 



KTHF UINENO MHILE LOOKIMS) 



iTUE COOE IS NOtI BEING SeARCUEO 

iFnHtWARD FROM THE (FOfl' FOH A NEXT mTH 

iTHE SAME VAH, IF 'EOF' OR AVOThER 'FOR' 

HITU THE SAME VAH IS FOONO FIRSTIERRO", 



SkONCER 

'FOR iilTHOUT NEXT' 



.BYTE 
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1468 .EVEN 

1469 004920 062701 000)19 FornEXTIADO 

1470 004924 111102 HOVB 

1471 004926 100732 BMI 

1472 004990 0092)1 '>. INC 
1479 004932 0)0902 '• SUAB 

1474 0)4594 192102 BISB 

1475 ))4596 061502 AOO 

1476 0)454) 020269 000022 V °; CMP 

1477 004544 001929 . BNE 
1470 004546 121127 0002)1 CMPB 
1479 004592 001)90 BNE 
1400 004954 162701 0)))14 SUS 

1461 004560 116621 000001 MOVB 

1462 004964 111621 MOVB 
1469 004966 116921 000025 MOVB 
1464 004972 116921 000024 MOVB 
14(9 004976 116521 000027 ^nyB 

1406 004602 116521 000026 MOyB 

1407 004606 116521 000041 MOVB 
140) 004612 116521 00004) MOVB 
1409 0)4616 116521 000)43 MOVB 
149) 0)4622 116521 0)0042 novB 

1491 004626 010916 MOV 

1492 904690 016946 000)4) HQV 
1499 0)4694 001002 BNE 
1494 004696 016516 000042 Hgv 
1499 004642 016546 000026 MOV 

1496 004646 016546 0)))24 MOV 

1497 0)4692 0)4767 0)4924 JSR 

1498 0)4696 0)4767 )t4966 J$R 

1499 004662 J01421 BEO 
1900 004664 100409 BMI 
1501 004666 009726 F0RGT1.MITST 
1902 00467) 100417 BMI 
1509 004672 ^100404 BR 

1504 004674 000167 005644 ERSX10I gMP 

1505 0047)0 009726 FQRLTLMITST 

1906 004702 100012 BPI. 

1907 004704 912665 000090 FORiEROIMOV 
1906 004710 109061 177764 CURB 

1909 004714 109061 177769 CURB 

1910 004720 009201 INC 
1511 004722 [100167 176)20 JHP 
1912 004726 !'05726 FORGOOOITST 
1919 004730 309726 FORGOI TST 

1914 004792 116146 177765 MOVB 

1915 004796 116166 177764 000001 MOVB 

1916 004744 0126)1 MOV 

1917 0)4746 300167 175770 JHP 
1916 ,EOT 
1519 



•19, Rl 

(R1).R2 

rORSK|P 

Rl 

R2 

(Ht)*,R2 

(R9),K2 

R2,VAHSAV(R9) 

FORSXiP 

(Rtl.i.EOV 

ERSXt0 

•14, Rl 

1(SP),IR11» iPUT AODR OF THE 'fORf AFTE" THf 'NEXT'. 

(SP),(R1)» H7H«TS UH4T THE 2*4»4 BYTES ARE FOB) 

SSlSAV*l(R9>,(»l)*rP'JT THE LIMIT AFTER THAT, 

SStSAV(R9>,IRl)« 

SS2$AV<1(R9I,(R1)* 

S$2SAy(R9),(Rl)* 

FAei*l(R9|,(Rl)* IPUT THE STEP AFTER 'HAT, 

FACI(H5),1R1)» 

FAC2«KR9(,<»1(* 

FAe2(N9),(Rl)< 



R9,(Sf') 

FAC1(M9)..(SP) 

I 46 

FAC2IR9),(3P) 

S$2SAy|R9),«(SP) 

SSlSAyiR9l,>(SP) 

P5iEVAl. 

PCiSUBSTK 

roRGoeo 

FORLTL" 
(SP)* 

FORGO 

ERRSX3 

(SP)» 

FORGO 

I5P)*|LINEN0(R!I 

•44(Rl) 

•19(R1) 

Rl 

EXECUTE 

(SP)* 

(SP|4 

•19(RJ),-(SP) 

.i4(Ri),mP) 

ISNORE 



iPUT THE SEARCH LIN£NO ON THF STACK, 
iPUT SGNISTEF) O'l THE STACK, 

IPUT THE LIMIT ON THF STACK, 

iGfT THE CURRENT VALUE OF THE INDEX, 
ISUBTRACT THE LIMIT, 
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1921 

1922 
1923 
1924 

1929 
1926 
1927 
1928 
1929 
1939 
1931 
1932 
1933 
1934 
1939 
1936 
1937 
1936 
1939 
1941 
1941 

1942 

1943 
1944 
1949 

1946 
1947 
1946 
1949 
199g 
1991 
1992 
1993 
1994 
1999 
1996 
1997 
1996 
1999 
196« 
1961 
1962 
1963 
1964 
1969 
1966 
1967 
196S 
1969 
1978 
1971 
1972 
1973 
1974 



3)4792 
0)4794 
ai)4796 
01476) 
0)4762 
0)4766 
0)477) 
084774 
0)4776 
0)9)02 
009004 
0)9006 
0)9)10 
0)9012 
0)9014 
0)9016 
009)20 
0)9022 
0)9024 
0)9)26 
0)9)32 
0)9)34 
0)9)4) 
0)9044 
009046 
009)92 
0)9)94 
0)9)96 
009)62 
0)9066 
0)9070 
0)9)72 
0)9)76 
0)910) 
0)9104 
0)911) 
089112 
08912) 
0)9124 
0)9138 
089134 
089136 
889142 
8)9144 
8)919) 
0)9194 
0)9196 
0)9168 
089164 
089166 
089178 
089174 
089176 



21)9)02 
192102 
08)302 
192102 
020269 
1)3131 
122227 
0)1126 
0627)1 
112103 
180929 
080303 
191103 
061S03 
009301 
122122 
0)1114 
12U22 
0)1112 
121227 
0)1107 
010365 
021327 
0)1909 
022327 
081401 
011303 
012369 
011369 
0)9301 
114146 
114166 
114146 
114166 
011669 
0)1)03 
016669 
0)4767 
016946 
016946 
114146 
114166 
114146 
114166 
084767 
081417 
18)404 
0)9769 
18)413 
08)483 
089769 
1)))07 
1)9)41 



0)8814 
00)203 

088818 



0)8822 
177777 



177775 



00)040 
000042 



0))))1 
000)26 

000)02 08)826 
0)247( 
0)0)42 
88084) 

000001 

08)801 
014274 



I 

I 'NEXT' STATEhENT 
NEXT I CtH 
8|SB 

SH4B 

8|SB 

CMP 

BHIS 

CHPS 

BNC 

«00 

"0V8 

BHl 

SU«B 

B|SB 

400 

DEC 

CMPB 

BNC 

CMPB 

BNC 

CMPB 

BNC 

MOV 

CMP 

BED 

CMP 

BED 

HOV 

MOV 

MOV 

DEC 

MOVB 

MOVB 

MOVB 

MOVB 

MOV 

SNE 

MOV 

JSP 

MOV 

MOV 

MOVB 

MOVB 

MOVB 

MOVB 

JSP 

ICO 

BHl 
NEXGTIMITST 

BHl 

BP 
NEXLTUMIT5T 

BPL 
NEXENOl CLP) 



Pi 

(P1)*|R2 
R2 
t"l)»|H2 

P2,L0rREE(P9) 
ERRNKT 
IR2)*i«ifOR 
ERRNEXT 

•10, p; 

(Rt)*|R3 

CRRSX2 

1i 

(Rt)|H3 

|R9),N3 

PI 

(Rl)»llR2)4 

EKRNEXT 

(K1),(R2)* 

ERRNEXT 

(R2)ii,E9 

ERRNEXT 

R3,V4PS«V(R9) 

(R3),P,SVAP 

ERR$X2 

IR3|*|P,S(;tLAR 

■ *4 



SOUNCE riL£ »3 



IJUST TO PREVENT A>l NXM TRAP, 



(SAVE VARIABLE ADDRESS', 



IPUT TME rOR VAR VALUE IMT8 fAC, 



(PUT STEP ON TME stack; 



|R3),K3 

IK3)*,FAC1IR9) 

(H3),f4C2|R9) 

"i 

•(R1I|«(SP) 

• (RlliKSP) 

•(Rtli-(SP) 

•(Rl)il(SPl 

|SP),SS2SA«(P9| iSAVE SGN(STtP), 

.♦1) 

2ISPI,SS2SAV(R;) 

PflAOMSTK 

rAC2|K9),.(SP) 

r»Cl(H9),.(SPl 

•(RDi-lSP) 
•(Rllii(SP) 
•(Rlli'ISP) 
•(RllltlSP) 

PC,SUBSTK 

NEXGO 

NEXLTLM 

SS:SAVIR9) 

NEXGO 

n|xen; 

SS2SAVIR9) 

N^XGO 
-|R11 



lASICL 


MACXll 


V821 


22c!MAR, 


73 19141 PASE 24.1 




1979 


))9200 


1)9041 




CL") 


•IRl) 


1976 


889202 


062701 


))))19 


AOO 


•19, RJ 

(SP)«, (SP)* 1 


1977 


889206 


022626 




CMP 


1978 


089218 


0))167 


179932 


JMP 


EXECUTE 


1979 


089214 


114146 




NEXGO 1 MOVB 


•<R1)<*(SP) 


15S) 


889216 


114166 


0)8)81 


MOVB 


•(Rl)il(SP) 


1961 


089222 


012601 




MOV 


(SP)»,H1 


1962 


0)9224 


012669 


0)8)4) 


MOV 


(|P)*,rAC}(R9) 1 


1983 


0)9238 


012669 


088842 


MOV 


tSP)4|FAC2in9) 


1984 


089234 


012769 


177777 


088)24 MOV 


••1,SS1SAV|R9) 


1989 


089242 


0)4767 


014886 


JSP 


pc,st6var 


1986 


089246 


08)167 


179470 


JMP 


IGNORE 


1587 


089292 


08)804 




ERRNEXTIIOT 




1988 








iIPNOr 


SLONGtR 


1989 


089294 


341116 


106 


.ASCII 


\NBr\ 


199) 








,ENDC 




1991 








,iror 


SLONGIR 


1992 








.ASCII 


'NEXT SErORE FOR' 


1993 








(ENDC 




1994 


089297 


88) 




,a»TE 




1999 








lEVEN 




1996 


009260 


0)8167 


089268 


ERRSX2I JMP 


ERR9X9 


1597 













iTURCW A"AT INCREMENTED INOlx, 



ISTO'E THE IMCREMENTEO INDEX, 



Jdi 



etSICL ntCXll Ve21 22>H«R>73 1SI41 fkK 29 



1598 








1S»9 


009264 


121127 


000261 


Itee 


309270 


001016 




t«ei 


009272 


009281 




lt02 


009274 


804767 


003410 


t«e3 


009900 


D09782 




1684 


009302 


001483 




1619 


009304 


'16269 


809406 


1»06 


009312 


121127 


000201 


1607 


009316 


801403 




160S 


009320 


122127 


000260 


1609 


009324 


801399 




1610 


009326 


121127 


008249 


1611 


009332 


801493 




1612 


009334 


121127 


880236 


1613 


009340 


001493 




161« 


009342 


121127 


000201 


1619 


009946 


801490 




1616 








1617 








1611 








1619 








1620 








1621 








1622 








1623 








1624 








1629 








1626 


009390 


B04767 


884026 


1627 








1628 








1629 


009394 


113417 




1630 








1631 








1632 


009396 


027927 


000034 


1633 


009364 


101482 




1634 


009366 


884767 


808240 


1639 


009J72 


804767 


812940 


1636 


009376 


820786 




1637 


009400 


804167 


812074 


1638 


089404 


040 




1639 


009409 


800 




1640 








1641 


009406 


800430 




1642 








1643 




809406 




1644 


009410 


808408 




1649 


809418 


308482 




1646 








1647 








1648 








1649 








1690 


009414 


812682 




1691 


009416 


809282 




1692 


009420 


301423 





I 'PRINT' STaTEHENT 



PRiNTI ChPB 


OIDiPiPOUnI) 


lis IT 'PRINT "N' '..." 


BNE 


pRntb; 




INC 


Rl 




JSP 


PCCHKOSET 


ICHECK CHANNEL »N0 SET. UP I/f 


TST 


R2 


lOEVICE CODE 


BEO 


eoL0N5H 




MOV 


T»Bl.9(R21iC0LUHN(R!l INON.TTY COLUMN COUNT 


COLONCHICHPB 


(Ht),f,EOU 


lOtlN'T NEED COLO'J IF NOTulMC 


■CO 


PHNT01 


1 FOLLO"S NUMBEB 


CMPB 


(Rt)*,«,COtON 




SNC 


ERRSX2 




PRNT81I CHPB 


|Rl)i», COMMA 




BCD 


PRICH 




CMPB 


(HI), f, SEMI 




BED 


PHIBOTH 




CMPB 


<Hl),i,EOU 




9E0 


PMIBOIH 




,Ifor 


snostn 




CHPB 


|K1),«,SOUOT 


lOHECK P"INT STRIN8 


BEQ 


PHISTH 




CMPB 


(Hl),i,DOUflT 




BED 


PHISTH 




CMPB 


(HD.i.TAB 


lOB TAFl FUNCTION 


BES 


PHITB 




lENOC 






JSR 


pC,EV»i. 




.IPNOF 


SNOSTH 




acs 


PHISTH 




lENOC 






Chp 


•CotUMN(R9),«74 




3L0S 


,*6 




JSR 


PC,PRINCR 




JSR 


P5,NUMSGN 




,UORO 


PVITCN4R 




JSR 


RllMSCOOEV 




,iSCIl 


' t 




,B»TE « 






.EVEN 






BR 


PHIBOTH 




TABL9 •,•2 






* 


C(,MNPP 




* 


CUHNUP 





iIFnOF tNOSTK 

PRISTRl MOV (SP)*il)2 

INC R2 

BED PHIBOTH 



;2tfP- 



tSICL 


MACXll 


V021 


22>MAR. 


79 15|41 PACE 29-1 




1693 


009422 


809003 






CLR 


R9 


1694 


809424 


194203 






BtSB 


•(R2)|R9 


1699 


809426 


362782 


000009 




ADO 


•9,R2 


1696 


809492 


327927 


008094 


000110 PRILOOPICHP 


•5OLUMN(R5),«110 


1697 


809440 


103432 






BLO 


.*6 


1696 


009442 


304767 


800164 




JSR 


PC.PRINCR 


1699 


809446 


112208 






MOVB 


(H2)*,R8 


1660 


809490 


384767 


013292 




JSR 


PC.PUTCHAH 


1661 


809494 


089389 






DEC 


R9 


1662 


009456 


883969 






SOT 


PHILOOP 


1663 


809468 


800403 






BR 


PHIBOIH 


1664 










lENOC 




1665 














1666 


009462 


'84167 


812012 


PRICmI 


jSR 


RllMSCOOEV 


1667 


809466 


840 


008 




tBTTE 


Bk|8 


1666 


809470 


121127 


000281 


PRIBOTHICHPB 


(R1),».E0L 


1669 


009474 


301003 






BNE 


PRIMOHE 


1670 


009476 


304767 


000190 




JSR 


PSlPRJNCR 


1671 


089982 


380441 






8R 


PHIJMP 


1672 


009904 


122127 


800243 


PRIHOREICMPB 


tHl|«;»,COMHA 


1673 


009910 


301827 






BNE 


PHISEMI 


1674 


809912 


317980 


800094 


PRICOMHIMOV 


•C0LUMN(P9),O8 


1679 


809516 


301490 






BEO 


PHITE5T 


1676 


809920 


320027 


800070 




CMP 


R0.678' 


1677 


809524 


801429 






BEQ 


PHITEST 


1678 


889526 


103483 






BLO 


.*18 


1679 


889590 


084767 


800076 




JSR 


PC,PRINCR 


16S0 


809934 


300421 






BR 


PHITEST 


1681 


809996 


328027 


800052 




CMP 


Re, 892 


1662 


809942 


301416 






BEO 


PHITEST 


1689 


889944 


820827 


800034 




CMP 


R8,<94 


1684 


009598 


801413 






BEO 


PHITEST 


1689 


805992 


320027 


800016 




CMP 


R8,tl6 


1666 


805996 


001410 






BEO 


PHITEST 


1687 


809960 


884167 


811714 




JSR 


RliMSCODEV 


1688 


309964 


048 






, ASCII 


f t 


1689 


009969 


838 






,BYTE 




1698 










.EVEN 




1691 


309966 


088791 






BR 


PRICOHH 


1692 


809570 


124127 


088296 


PRISEMIICHPB 


.|R1),>,SEmI 


1693 


305574 


801294 






BNE 


PRNTBl 


1694 


309976 


309201 






INC 


"1 


1695 


809608 


121127 


080201 


PRITESTICMPB 


IH1),»,E0L 


1696 


309684 


■"81250 






BNE 


PHNT81 


1697 


305686 


305281 




PRIJHPl 


INC 


Rt 


1696 


305610 


n2765 


008096 


300834 


MOV 


«5LMNTTT,i;0LUMN(O5) IRE-SET TO TT 


1699 


009616 


?68965 


808094 




400 


R5iC0l,UMN(R5l 


1780 


009622 


109065 


880076 




CLRB 


00EVIN9I 


1782 
1709 


305626 


J»«l»7 


175114 




JMf 


EXECUTE 










,IFDF 


SNOSTH 


1784 








PRtSTRl 


MOVB 


(R1)*|R9 iSAVC OPEN auOTE CUA» 


1785 










CHPB 


<H1|*,«,TEXT ITEST FOR TEXT BYTE 


1786 








PRISJI 


BNE 


ERRSX2 


1787 








PRlSTli 


MOVB 


|Hll*|R2 |5ET NEXT CHAR 



9tS;CL Htextl Vg21 22>N«R«73 t:i«t I'ASC 29«2 

17B» 
1718 
I71i 

1712 
17H 
1714 
171» 
1716 

iri7 

1718 
1719 
1720 
1721 
1722 
1725 
1724 
1725 
1726 
1727 
172» 
1729 
1738 
17JI 
1732 
1733 
1734 
173» 
1736 
1737 
I73e 
173» 
1748 
1741 
1742 
1743 
1744 
174S 



88S632 084167 011642 
889636 81$ 81! 
889648 888 
889*42 
889642 889879 888834 
889646 888287 



9(0 


prist; 


e«f« 


R2iR3 (CHECK Close quote 


•CO 


PRIBOIH ^ 
R2|i,E0U iCHtCK E»0 LInW 


CHPl 


BEO 


ERRSX2 


CMf 


•?0tUMN(R9),»llB 


8U0 


|46 


jsn 


PQiPRlNcn 


MOV 


R2,R8 


JS« 


P5,PUICM»R 


BR 


PRISTI 


RRlTfll TSTB 


IR1I4 


JSR 


PflEVAU 


JS« 


PfllNT 


CH^B 


<R1I*I>|RP*R 


8NE 


PRISJ 


MgVB 


r»e2(R9),Rs lOET ri value 


SUB 


•50I.UNN(RS),R2 ICOBPUTE » SPACES 


PRlTBai CNP 


R2l«72, 


BLO 


PRITfll 


JUB 


•72,,RZ 


BR 


PRITBB 


RRITBII SEC 


R2 


BNt 


PRIBOTH 


MOV 


a9L,R8 


JSR 


P!,PUTCH«R 


SR 


PHITSJ 


,ENDC 




PRINCRI JSR 


RllMSOoOEV 


.BYTE 


CR.LP 


.BYTE 


I 


,EVEN 




CLR 


• COl,UMN(R») 


RTS 


PC 



BASICk MACXll V821 22inAR>73 19)41 PACE 26 



1746 








1747 


889698 


828165 


808816 


1748 


889694 


181886 




1749 


889696 


384167 


811962 


1798 








1791 


389662 


846111 


116 


1792 








1793 








1794 








1799 








1796 


889669 


888 




1797 








1798 


389666 


388167 


173314 


1759 


889672 


18986! 


300862 


1768 


289676 


189869 


000877 


1761 


389782 


12I1J7 


888261 


1762 


389786 


381818 




1763 


389718 


185265 


888062 


1764 


389714 


389201 




1765 


389716 


•"84767 


082768 


1766 


385722 


122127 


880268 


1767 


389726 


?8il5B 




1768 


309738 


018746 




1769 


309732 


062716 


808416 


1778 


389736 


112102 




1771 


389748 


18054] 




1772 


389742 


388302 




1773 


089744 


152102 




1774 


889746 


061582 




1779 


889758 


304767 


087410 


1776 


889794 


011683 




1777 


889796 


121327 


888281 


1776 


389762 


881853 




1779 


885764 


185765 


888862 


1788 


085778 


^81803 




1781 


085772 


384167 


811494 


1782 


089776 


877 




1783 


889777 


888 




1784 








17BS 


886888 


018146 




1786 


086882 


084767 


818126 


1787 


886886 


103882 




1788 


006810 


088167 


880912 


1789 


306814 


012681 




1798 


086816 


016582 


080022 


1791 








1792 








1793 


386822 


021227 


177777 


1794 


886826 


081512 




1799 








1796 








1797 


086838 


318146 




1798 


086832 


010446 




1799 


006034 


^6901 


080828 


1888 


006348 


122127 


880019 



I » INPUT' STATEMENT 
INPUT 



INPYESI 



INPTBll 

INPPCI 

INPUOOPI 



INPRTRYI 
INPNEWI 



NOOMll 



CMP 

BHI 

JSR 

iIPNOr 

.ASCII 

,ENOC 

iI'OP 

.ASCII 

,ENOC 

.BYTE 

.EVEN 

JMP 

CURS 

CURB 

CMPB 

BNE 

INCB 

INC 

JSR 

CMPB 

BNE 

MOV 

AOO 

«OVB 

9MI 

SWAB 

aisa 

too 

JSR 

MOV 

CMPB 

BNE 

TSTB 

BNE 

JSR 

.ASCII 

.BYTE 8 

.EVEN 

MOV 

JSR 

BCC 

JMP 

MOV 

MOV 



RllC0pE(R9| 

INPYES 

RllMSCERR 

SUONCtR 

MLN\' 

SUONCER 
'lUUESAt NOM' 



REA0Y2 

T3(R9! 

I0EV(tl5) 

(Rt),», POUND 

INPY81 

T3IR91 

r; 

PClCHRISET 

(Hl)*|l».COl.0H 

ERRSXa 

P9.-<SP) 

• INPEOI..INPPC,<S'') 

|Htl*|R2 

EHRSX6 

R2 

(«tl«,R2 

(K9|,K2 

p;,5EtVAR 

tSP),K3 

tR3)i«,E0l, 

INPOK 

T3(R9| 

NOOM 

RllMSO 

'71 



R1,.(SP| 

P?,tINSET 

NSQMl 

ERROATA 

(sp)«;hi 

VARSAV(R5),R3 



iRtSfT I1PUT TO TTY 
lis IT 'INPUT »NI •...<? 



ICHECK CHANNEL ANO SET»UP INPUT 



.IPNOr snostn 

CMP |R2)|i.SVAR 

BEO INPSTR 
,EN0e 



MOV 
MOV 
MOV 
CMPB 



R;i><i>p) 

R4,>ISPI 

L(NE(N9I,R1 
(Rl)*,"«CS 



^C'S' 



BASICI, M»CXll Viat 22.M«R.73 15MI 



1802 

ia03 

1084 

toss 

teet 

UB7 

1800 

180« 

1010 

1011 

1012 

1013 

1014 

1019 

101« 

1017 

1010 

181» 

1020 

1021 

1022 

1029 

1024 

1029 

1020 

1027 

1020 

102* 

1030 

1031 

1832 

1033 

1034 

1039 

1030 

1037 

1030 

1039 

1040 

1041 

1042 

1043 

1044 

1049 

1040 

1847 

1040 

104* 

1090 

1091 

1092 

1093 

1094 

1899 



006044 
000040 
000090 
000092 

006090 
006060 
006062 
006066 
006070 
006074 
306100 
006102 
000104 
000110 
000112 



01137J 
010104 
009204 
020469 

101139 

U4144 

e20i69 

101374 
112711 
004767 
212604 
012001 
010910 
010721 
010902 



000020 



000094 

013412 



00*116 021227 177777 
006122 001720 



0(«124 0f9203 

016126 019009 000040 

000132 0«9009 000042 

01*13* 121327 000243 

000142 001403 

0(6144 0(4707 010104 

0(tl9( 0((431 

00*192 010310 

00*194 0(47*7 013074 

00*160 011603 

00*1*2 121327 000243 

00*1** 001403 

00*170 121327 000201 

00*174 201017 

00*17* 122127 0(0243 

00*202 0(1699 

00*204 12*127 177777 0(02(1 

00*212 001(1* 

0(«214 0(972* 

00*21* 1(97*9 0(0077 

00*222 0(1(02 

00*224 0(9(*9 (00(3* 

0(*23( 0(01*7 174912 

((*234 0(41*7 0112(4 



00*240 091102 



124 



0(*243 

00*249 



(19 

((0 



00*24* 000*4* 
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0NC 


.•4 




HOV 


"tiR4 




INC 


R4 




CHP 


R4,eOUE(<)9) 




(HI 


ERRTRB 




MOVB 


•IRlll«|41 




CMP 


"llUINECIS) 




BHI 


(•» 




«OVB 


• I.,,(R1) 




JS" 


P5,T"*N 




MOV 


(SP)»,R4 




MOV 


|SP|*,R1 




MOV 


tl"IE("»).(SP) 




0R 


INPRTKY 




INPOKI MOV 


V«RSAV<R9),R? 




.KNor 


INOSTH 




CMP 


IR2)i0,SVAft 




0ei] 


INPNEN 




lENDC 






iNC 


R3 




Ct" 


rAei(M9) 




CLP 


rAC2("9) 




CMPB 


(R3),». COMMA 




BEQ 


INPSTp 




JS« 


PP.LIIEVAU 




BR 


INPNCUD 




:npstoi MOV 


R3,(SP) 




J8R 


PS.STOVAR 




MOV 


(SP),H3 




CHPB 


(R3)i>. COMMA 




BEO 


INPGOQO 




CMPB 


|R3I,».E0I. 




BNC 


INPNG«0 




INPGOOOICNPB 


(Rl)*,», COMMA 




SCO 


INPUOOP 




INPENOI CMPB 


.IIRI!,«.E8L 




BNC 


ERRSX0 




TST 


<SP)* 




TSTB 


IDeV(l<9) 1 


lir TTV INPUT 


BNC 


GOexEC 




ct" 


CtMNTTr(R9) 1 


1 FCR SAME 


COEXECI JMP 


EXECUTE 




INPNGUOIJSR 


RllMSGCRR 




ilfNOr 


HONCIR 




, ASCII 


\BRT\ 




iCNOC 






.iroF 


SliONGtH 




.ASCII 


'BAD OATA.RETYPE 


fPO" ERROR.' 


lENOC 






,BVTE 


CR.Lf 




,B»TE 


> 




.EVEN 






BR 


INPNEH 





^0(, 



dASICk 

189* 

1897 
1898 
1890 

18*0 
1861 
1862 
1863 
1864 
1869 
1866 
1867 
1868 
1869 
1870 
1871 
1872 
1073 
1874 
1875 
1876 
1677 
1678 
1879 
1080 
1881 
1882 
1883 
1884 



MACXll 
00*290 



00*294 

00*260 
006262 
006266 
006270 
006272 
006276 
006300 
006302 
006304 
006306 
006310 
00*314 
0(6320 
0063Z4 
306326 
006332 
806334 
006336 
006342 
006346 



006390 
006392 



V021 
0(01*7 



01*903 

^1(302 
122327 
aB1379 
^10246 
162716 
310346 
160216 
309316 
301416 
310602 

3*2702 

304767 
304767 
301726 
122127 
301324 
30972* 
300167 
''1271* 
300764 



i'00201 
J00167 



22>MAR.73 

004270 

000020 
000019 



000002 
010732 
313010 

000243 
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177366 

177777 



errsxbi 


JMP 


ERRSX9 




.IFNOf 


INOSTH 


INPSTRl 


MOV 


L|NE(«I9),R3 




MOV 


R3,R2 




CMPB 


(H3).,»CR 




BNE 


.•4 




MOV 


R2,.(SP) 




SUB 


•3,<SP) 




MOV 


R3,.(SP) 




SUB 


R2,(SP) 




DEC 


(5P) 




8E0 


INPNUtU 




MOV 


SP,R2 




ADO 


• 2|R2 




JSR 


PC.MAKESTR 


INPNNUtUSR 


PCiSTOSViR 




TST 


(SP)4 




CMPB 


(Rl)»l», COMMA 




BNE 


INPENO 




TST 


(SP|* 




JMP 


iNPr0i 


INPNULLI»OV 


••tllSPI 




SR 


IMPN«'UU 




,ENOC 




INPEOlI 


lUORD 


.EOU 


ERRTRSl 


JMP 


ERRTRN 



^7 



iSICL 


HACXll 


¥621 


22>H«Ra: 
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isas 








1 IKkDi ST»TE»tNT 


ie«» 


686356 


112162 




RCtDI MQVB 


|R1)*,R2 


H87 


666360 


166733 




8N1 


ERRSXa 


laag 


966362 


606362 




8VI«B 


R2 


l»89 


666364 


192162 




0IS8 


IRl)*|R2 


il9B 


606366 


?6t962 




too 


tR9),l<2 


H91 


606370 


004767 


006770 


JSK 


PfiJEI"*" 


ia92 


606374 


017963 


000004 


"OV 


•P0L(R91,R3 


l«93 


606460 


601492 




BCQ 


ERROAJA 


H94 


606462 


620327 


177777 


CNP 


R3|«-l 


H95 


006466 


601497 




•CO 


reasr;h 


1696 


666410 


121327 


600261 


CNP8 


<f<3|,»,E0L 


1097 


666414 


601496 




BCQ 


REAPIND 


H9e 


606416 


122327 


660243 


CMPB 


(R3)*!*, COMMA 


1699 


006422 


601044 




BNC 


REAOBAO 


i9BB 


606424 


111362 




nEAOGOTIMOVB 


(R3)|K2 


1921 












1912 








.KNor 


JNOSTM 


1963 


666426 


126227 


666291^ 


CHPB 


R2, 6,90007; 


1964 


666432 


601470 




BCa 


REAOOI 


19BJ 


606434 


120227 


060Z97 


CMPB 


R2,lll,S0U0Tt 


1966 


666440 


6(1469 




BED 


READO! 


1967 
1966 

1909 








lENDC 




016442 


604767 


667666 


JSP 


PC.UITEV*!. 


1916 


006446 


600432 




BR 


REAOBlD 


l»ll 


006490 


0163*6 




HOV 


RJ,.(SP) 


1912 


666492 


6647»7 


612976 


JSR 


P5,ST0VAR 


1913 


666496 


612623 




REAODUNIMOV 


<5<')*l«3 


191* 


666466 


121327 


660201 


CMPB 


(»3),#.E0I. 


1»1» 


066464 


601401 




BED 


.*t0 


fit 


666466 


121327 


00024? 


CMPB 


(R3)|P, COMMA 


I9l7 


606472 


601020 




8NE 


RE108A0 


1916 


606474 


610379 


660004 


MOV 


R3,»PPL(R»I 


1919 


606966 


122127 


660243 


CMPB 


(R1)*|P. COMMA 


1926 


606964 


601724 




8E0 


READ 


1921 


006906 


126127 


177777 


000201 CMPB 


•1IR1)|«|E0L 


1922 


006914 


00129; 




BNE 


ERRSXa 


1923 


006916 


600167 


174224 


JMP 


EXECgfE 


1924 


006922 


009079 


000004 


READOUT ICU" 


PPOKHS) 


192S 


006926 


600004 




ERRDATAIIOT 




1926 








ilFNOr 


'isS!!?^'' 


1927 


606930 


647917 


104 


(ASCII 


NOOON 


1926 








,ENOe 




1929 








iIFor 


SWONS^R 


1931 








.ASCII 


lOUT or DATA' 


1931 








,ENOC 




1932 


606933 


000 




iBrTE 6 


1933 








.EVEN 




1934 


606934 


009079 


600604 


REAOBAOICUR 


•P0U(H9) 


193» 


006940 


000064 




lOT 




1936 








.IPNOF 


mONOtR 


1937 


606942 


642102 


122 


.ASCII 


\80R\ 


1938 








.ENSC 




1939 








.IFOF 


S|,ON0EH 



Jiof 
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1940 








.ASCII 


'BAD DATA READ 


1941 








,ENOC 




1942 


606945 


660 




.BYTE 




1943 








,EVEN 




1944 


006946 


61696] 


606016 


REA5RCHIM0V 


CO0E(R5),R3 


1949 


606992 


109713 




REAFINOITSTB 


(R3) 


1946 


006554 


106462 




SMI 


.** 


1947 


606996 


662763 


660662 


ADD 


•2iR3 


1948 


606962 


122327 


606223 


CHPB 


tM3)*i»,0ATA 


1949 


006966 


081716 




BEO 


READGOT 


1900 


606970 


124327 


600225 


CMPB 


.(R3li».E0P 


1991 


606974 


601792 




BEO 


READOyT 


1992 


006976 


618146 




HOV 


R1,.(SP| 


1953 


606606 


610301 




MOV 


R3,R1 


1954 


606602 


804767 


012362 


JSR 


PC.SKIPEOL 


1999 


606606 


010163 




MOV 


R1,H3 


1996 


006610 


012661 




MOV 


(SP1»,R1 


1997 


606612 


000757 




BR 


REAP 1 NO 


1998 












1999 








iIFnDF 


snosth 


1968 


006614 


609263 




READOTI INC 


R3 


1961 


006616 


122327 


600377 


CMPB 


(R3)*|»,TEXT 


1962 


006622 


081344 




BNE 


REAOBAO 


1963 


006624 


610300 




MOV 


R3,R0 


1964 


006626 


10572J 




TST8 


(R3)« 


1969 


606630 


601376 




BNE 


.•2 


1966 


606632 


122362 




CMPB 


(R3)*|R2 


1967 


666634 


601337 




BNE 


REAOBAO 


1968 


606636 


610346 




MOV 


Rf,.(SP) 


1969 


606646 


610046 




MOV 


R0|>($P) 


1970 


006642 


162716 


600003 


SUB 


•3|(SP> 


1971 


006646 


616662 




HOV 


SP,R2 


1972 


006690 


mz*t 




HOV 


R?..(»P| 


1973 


006652 


16801» 




SUB 


R0llSPI 


1974 


006654 


l»t71» 


608002 


SUB 


•2llSP) 


1979 


006660 


60i41I 




BEO 


RCANUkt 


1976 


666662 


80*767 


616364 


JSR 


PCjMAXESTR 


1977 


666666 


612663 




MOV 


ISP)*,R3 


1»78 


666676 


916316 




MOV 


RJlISP) 


1979 


606672 


B16660 




MOV 


SP,R8 


1980 


606674 


66270} 


660003 


ADD 


»3,R3 


1»B1 


606760 


110043 




MOVB 


R8,«(K3) 


1982 


006702 


700300 




SHA8 


R8 


1983 


006764 


11004J 




MOVB 


R0,«(R3) 


1984 


606766 


608402 




8R 


READStR 


1989 


606710 


089316 




REANULUIOEC 


<5'l 


1986 


006712 


012616 




MOV 


(SP)»,(SP) 


1987 


606714 


084767 


612414 


READSTRIJSR 


PCiSTOSVAH 


1988 


606720 


300696 




3R 


REtODVN 


1989 








lENDC 




1990 












1991 
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l»92 
1»9J 
1»94 
1»9» 
1»9» 
1»97 
1998 
1999 








!•••••• 

!••••*• 

!••••*• 




INTERlfPT H»» 


• •• 

• •• 














!•••*• 
»••••• 


fUULn-i --.. 










)••***• 












liil 




















ttn 




















2B02 








1 












2809 








1 KSINT 


• KEYBOARD INTEHUPT 


SERVICC 




2004 








1 












280» 








1 PtSS 


»N» CH»R, TO Burr, 


:xCtPT 009> (IGNORE) 




2>0t 








1 >ND 


**9 ( 


<'C<| SET FL»S 


roR 


CATER ACTION,) 




2*07 








1 IF 


Burr, 


rULUi ICNORE :H4R 


BUT ECHfl HEUL, 




2*08 








1 












2009 


906722 


004967 


012134 


KBINTI 


JSP 


R9,S4VR(il 




jCAU'E RTI 0" "EG, 


RESTORE 


20;8 


304726 


8114705 


0000000 




OOV 


USRAR«t,R9 








2011 


006732 


216901 


000102 




MOV 


KeH0(K5l,Hl 




1KB RUFF, M0», 




2012 


006796 


012704 


177964 




M0» 


•IPS,H4 








2019 


006742 


IU700 


177962 




MOVB 


•»TKa,R0 




(SET TM»T CHAR', 




2014 


006746 


04170* 


177600 




>ie 


•i77600iR0 








201» 


006752 


001442 






BEQ 


KBIOUN 




IICNOR; 000 




2016 


0067S4 


12*027 


00*0*9 




CMPB 


R« 1*0*3 




|I«C'J 




2017 


006760 


001109 






BNC 


K8C0 








2018 


006762 


109269 


000106 




INCB 


CNCri.CIR9) 




IMAHK lfi:l HIT 




2019 


006766 


004767 


001916 




JSR 


PC,BU?CUR 




ICUEAR 4LU BUFFERS 




2020 


006772 


300410 






BR 


DOPUT 








2021 


006774 


lMf27 


0***17 


KBCOI 


CMPB 


R»i«17 




ICMECK "01 




2022 


007000 


0*1*09 
l»Jl69 






BNC 


DOPUT 








2023 


007002 


0**1*7 




COMB 


CNOrUSIRS) 








2024 


007006 


001402 






BEO 


DOPUT 




IIF PRINT RESTORED 


BYPAS' 


2029 


007010 


004767 


001990 




JSR 


PCBUFTP 




iCtEAR TtLEPRlNTER 


BUFFEB 


2026 


007014 


004767 


011974 


DOPUTI 


JSR 


PCiPUIBYT 








2027 


007020 


103017 






BCC 


KBIOUN 




IGOT IV 




2028 


007022 


109761 


00*012 




TSTB 


8rSPEE(Rll 








2029 


007026 


001003 






BNC 


S,0101 








2030 


007090 


110061 


00*812 




MOVB 


RBlBPSPECIPl) 






2091 


007094 


000207 






RT8 


P? 








2092 


017036 


109714 




9,01*11 


TSTB 


|R4| 




INO ROOM! 00 9ELU 




2093 


007040 


100376 






BPt 


S,*10t 








2034 


007042 


042714 


0*0100 




Bit 


•;*0iiR4) 




)TEMP-, CIR, INTER, 




2039 


007046 


112737 


000007 177566 




MOVB 


•«07,*iTPB 




1 INSERT SELL 




2036 


007054 


1*9714 




S,*1*2I 


TSTB 


(R4) 




IKAJT UNTIU DONE 




2037 


007096 


100376 






BPl, 


S,»l*2 








2038 


007060 


012737 


00*101 177560 


KBIOUNI 


MOV 


•J,»l,f»TKS 




IRC-INIT, READER 




2039 


007066 


012714 


000100 




MOV 


•10*1 (R4) 




lENAPUE TPTR, FOR 


ECHO 


2040 


007072 


0*0207 






RTS 


P? 




lUlLk RESTORE REGS 


, ANO »r 


2041 





















^/^ 



sicu 
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2*42 
















2049 
2*44 
2*49 








) tPiNT 


• TELEPRINTER INtErupT 


HANDLER 








1 USED 


TO PRINT OUT TEXT ANO 


ECHO TYPE. IN, 


2*4* 








1 TO HANDLE 


CASE OF fENOlNG REOUEStS TO 00 TEXT OUTPUT 


2*47 








1 ANO 


ECHO. 


ODES THE ORDERLY 


TMIwC BY FOLLOHInC THIS 


2*48 








1 PRIORITY! 






2*49 










IF ECHOSP(RS) SH0H3 NEED TO 00 2N0 H«I,F OF PAIRED 


2*9* 










CHARS, FOR E;hO ((U, 


<C'»<LF>), 00 FIRST, 


2091 










IF TEXT MESS, IN PROCRES?, FINISH IT (TO <IF>)-. 


2092 










ELSE, 


ECHO', 




2099 










ELSE, 


TURN OFF INTERUPTS. 


2054 
















2095 


007074 


0*4967 


011762 


TPlNTI 


JSR 


R>,SAVRSI 


(CAUSE RTI 0" REG, RESTOOE 


2096 


00710* 


316739 


3000000 




MOV 


USRARIA.RS 




2097 


007104 


1*9769 


300110 




TSTB 


FILLC0(R5) 




209B 


00711* 


3*1404 






SEO 


TPNXT 




2099 


0*7112 


109365 


300110 




OECB 


FlLLep(R5) 




2*60 


0*7116 


309000 






CLR 


R* 




2061 


00712* 


303416 






BR 


TYPEl 




2062 


007122 


312734 


303134 


TPNXTl 


MOV 


•ECHOSPiRA 




2069 


0071.26 


363934 






ADD 


R9,R4" 


)S4¥C0 HERE THRU-OUT ROUTINE 


2064 


007190 


305714 






TST 


(R4) 


(SPECIAL ECHO IN PROORESSJ 


2069 


007132 


301419 






BEO 


THyECHO 


(NC 


2046 


007134 


11340* 




SPECHESIM0V8 


■(R4)«,Rn 


(NEXT !P, ECHO CHAR, 


2067 


807196 


3*1412 






BEO 


CLRECHO 




2068 


00714* 


0*9244 






INC 


• (R4C 


(PT, TO NEXT CH»R| 


2069 


0*7142 


12**69 


0**112 


TYPE) 


CMPB 


R*,riLLCH(R5) 




2070 


007146 


3*1003 






BNE 


TYPEl 




2071 


0*719* 


116565 


30*111 


000110 


MOVB 


FtLLN0(R5),FILLCn(PS) 


2*72 


0*7196 


110037 


177564 


TYPEll 


MOVB 


R*,»«TPB 




2073 


0*7162 


000237 






RTS 


PC 


(RESTORE REOS, AND RETUR" 


2074 


0*7164 


0*9044 




CLRECHOICLR 


•(R4) 




2*79 


007166 


3169*1 


0**102 


TRYECHOINOV 


K8H0(R9),Rl 


(NO -E'iS, . ECHO? 


2*76 
















2*77 


0*7172 


3*4767 


305752 




JSR 


PCiGET2BYT 




2*78 


0*7176 


103011 






acc 


GOTECHO 




2079 


0*7200 


316531 


333130 


HSeSUPI 


MOV 


TPHD|H5),Rl 


(TRY MESSAGE 


2090 


00721)4 


004767 


005740 




JSR 


PC,GEi2BYT 




2081 


007210 


103354 






BCC 


TYPE 


(GOT ONE) CO 00 IT 


2es2 


307212 


348737 


00010* 


177564 OFPTYPEIBie 


•100>6PTPS 


(CLEAR INTERUPT 


2089 


007220 


3**207 






"TS 


P5 




2084 








I 








2089 


007222 


0*4367 


0*1994 


GoTECHoUSR 


flJ.CHKCHR 


(CHECK THAT ECHq CHAR, 


2086 


007226 


3**42* 






3R 


PHNTOtL 


ILINE OELETE 


2087 


007290 


0**422 






BR 


SETLFt 


)<CH>( <LF> AS ECHOSP 


2088 


007292 


0*0424 






*R 


ECHOBA 


iRlia .OUT! DO "•" 


2089 


307294 


300401 






BR 


TPCN 




2*90 


007236 


300741 






9R 


TYRE 




2*91 


007240 


120027 


300*09 


TPCNI 


CMPB 


R0|»3 


(CHEC I'CI 


2092 


007244 


301033 






BNE 


TPCO 




2099 


0072*4 


312714 


307925 




"OV 


•COMES, |R4) 




2094 


007292 


'*B730 






BR 


SPCCN^S 




2095 


337254 


120027 


333017 


TPeOI 


CMPB 


R0|>17 


(CHtCK 'tO' 


2896 


307260 


B013«2 






9NE 


THYECHO 





^// 



B«S|CU HACXtl V021 



88»7 

!i9a 

tin 

2182 
2183 
2104 
218> 
218> 
2187 
2186 
2189 
2118 

2111 
2112 
211} 
2114 
211» 
211* 
2117 



087262 
887266 



887278 
807274 



887276 
887382 



887384 
887910 



887312 
887328 
887322 

88732S 
087327 
807338 
887332 



22>n«fl«73 
08733* 



012714 
888722 

812714 807312 
808717 

812714 087322 
000714 



112708 
808714 



842840 

042189 
019 

136 
880 

047936 
819 

0(7336 



088137 



19|4t PACE 2><t 

HOV 
Br 

(■RNTOEUI"OV • 
BR 

I 

SEtLFEl "0» 
BR 

I 

ECHoBtl "OVB 
BR 



046109 092189 



OEtMSSl 



itBCIl 



»C8MtSi(H4) 

• Bei.MSG.(R4) 
SPECM^S 

•;Rk7'nESilR4l 

BPECNSS 

•'•lR0 
TYPE 



DEU^TEDI 



137, AnOB'i INTO ECHflSPIRSI 



012 

183 



812 



8(8 CRfrMESIiBVTC 819,012.880 

CCMESI itSClI MC 

,B7TE 

COHESI .ASCII ''O' 

888 .B7TE P19,812.808 

.EVEN 



^/^ 
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211B 
2119 

2128 
2121 
2122 
2123 
2124 
2129 
2126 
2127 
212a 
2129 
2130 
2131 
2132 
2133 
2134 
2139 
2136 
2137 
213B 
2139 
2148 
2141 
2142 
2143 
2144 
2149 
2146 



807336 
007342 
087346 
087392 
087394 
007360 
807364 
007366 
007372 
007374 
807408 
087482 
087486 
087410 
007414 
087416 
087424 
807426 
007434 



304967 
012781 
089737 
188429 

113708 
042780 
001414 
122708 
701411 
122708 
0(1486 
084767 
103803 
112061 
008207 
012737 
08(287 
092761 
080207 



.ITNOF SNOPTP 
PTRINT • pApER.TApE READER INTCRUPT MANOUEjl 
CtEARB PARITY BIT, fUgsHES 0P0. PUB-OUTi AND <l,r>', 

ir CHAR', WON'T riT IN Burr-,, save in spsptc (lo bytei, 

ON EOT OR OTHER ERROR, SET HI BIT Or arSPEC, 



011920 
023714 
177990 

177992 
177680 

008177 

008012 

811286 

000012 

000101 177990 

108080 000012 



PTRINTI 


JSR 


r9,SAVRGI 


ICAUSE RTI 0" »ES, 


RESTORE 




MOV 


•PRgrHDiRl 


|F8R PUTBYT 






TST 


MPRS 


|ERR!<R!» 






BUI 


PREOT 


ivrsi TREAT AS EOT 






"0V8 


••PRBiRB 


ICHAPACTER 






BIC 


•177608, R0 








BEO 


EXITB2 


IIGN9RE 888 (CAN'T 


MAPPE"! 1 




CMPB 


•177, H8 


iRUa OUT? 






BED 


EXIT02 


llCNORr 






CHPB 


«i.r,R8 








flEO 


EXIT82 


lICNORC Uf 'S 






J5R 


P?,PUTflYT 








sec 


EXIT02 


iCflT I" 






HOVB 


R8,(rSPEC(Rl) 


iSAVt THIS C"AR, 






RTS 


P5 


■RESTORE REGS, AND 


RTI 


EXIT02I 


MOV 
RTS 


•181i*PPRS 

P5 


iRE-rNABLE READER 




PREOT) 


SIS 


•108888, RrsPCC<Rl) ISHOU EOT 






RTS 


PC 








,ENDC 









.^/3 
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2i«r 

2i*« 

21«» 
tl9» 
2191 

2192 
2193 
219« 
2199 

2196 
2197 
219t 

219» 
2t«e 
2161 
2162 
2163 
2164 
2169 
2166 
216? 



017436 
807442 
007446 
007492 
017496 
007460 
007464 
007466 
007472 
007474 
0079!I2 
007906 



004967 
216729 
012701 
90S737 
100406 
004767 
103406 
110037 
200207 
292761 
209037 
000207 



211420 
000000G 
023760 
177994 

009496 

1779»« 

000001 

177994 



iIFNOr fNOPTP 
ppINT • P»PER T»« ryNCH INTCrijpT t-'ANOLER 
ON ERRQUi M«KE erspEC NoN.0", 



000012 



PPlNTI 


JSR 


r9,S*VKSI 




HOV 


gSR«REA|R9 




MOV 


•ppgrHDiRi 




TST 


»»PPS 




BHI 


PPERR 




JSP 


P?,GEI1BYT 




acs 


N0CHR2 




M0V8 


R0,ppppa 




RTS 


p? 


PPERRI 


■ IS 


•l.SrSPECIRl) 


NOeMRJI 


CUR 


••PPS 




RTS 


PS 


1 


lENOC 





ICAUSE RTI APTER RES, RESTORE 



iNOflNC TO SET 

(RESTORE REGS, AND RTI 

lIMOIC, ERROR 

ICLEAR INTtRUPT ENABLE 



^/y 
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2166 








2169 








2170 








2171 








2172 


007910 


004967 


211346 


2173 


007914 


016709 


0000B0G 


2174 


007920 


212701 


024024 


2179 


207924 


209737 


177914 


2176 


207530 


100406 




2177 


207932 


304767 


009404 


2178 


207936 


103406 




2179 


207540 


110237 


177516 


2180 


207544 


202227 




2181 








2182 


007946 


292761 


200021 


2183 


007994 


309037 


177514 


2184 


007969 


200227 




2189 








2186 








2187 









200012 





.IPNOF 


INOLPI 




1 UPINT 


• LINE 


PRINTER INTERUPT 


HANDLER 


UPlNTI 


JSR 


r9,SAVRGI 


iCAUSE RTI APTER REG, 




HOV 


USRAREA.RS 






"OV 


•LPSFHO.Rl 






TST 


•»LPS 






BMI 


LPERR 






JSR 


PS.OETIBYT 






BCS 


LPorr 


INOTWIN' THE-E 




NOVB 


R0,MLPfl 


HRiTE CHAR 




RTS 


PS 




LPERPI 


BIS 


•l.flPSPEClRl) 


IRECnR" ERRO" 


uporn 


CLR 


••LPS' 


iTURM IT OFP FOR A'JMl 




RTS 


PS 






,ENOC 







RESTnHF 



^O 
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2iaa 

21«1 
2t'Z 
2199 
2194 
2199 
2196 
2197 
219e 
2199 
22B0 
2221 
2202 
22B3 
2204 



00T962 
007570 

007S72 

007S74 
007600 
007606 
007612 
007614 
007616 



?12737 
000000 

009*00 

D16705 
012737 
ei«S06 
009300 
001367 
000167 



007972 000024 



000000C 

007962 000024 
14 



lirNDF INOPOH 
I 

I PoaOWN . POHEH r»IL/REST»H7 ROUTINE 
I 



PgUOWNI MgV 
H«tT 



P0"UP1 
POWLPI 



ClR 
ROV 
"OV 
NOV 
DEC 
BNC 
JMP 

lENoe 

,EOT 



•paHupiP<24 



R» iiNiTULiit Loop count 

USRtRlt|R9 



•POH0NN,Rf24 

pei.(R>)iSP 

R0 

pguLP 

RIIOTH 



IWASTE TINE (AND INJT STACK!) 
|C(1U»'T TIUU DONE 



^/^ 
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2205 

2206 












SOURCE FILE '4 




2207 










2200 
















2209 
2210 










!I.OStD SUBROUTINES ...... ....i 




2211 
















2212 
















2213 










2214 
















2215 
















2216 
















2217 
















22ia 
















2219 
2220 

2221 


1 SUBROUTINE 


'AOOSTK'. CAULEO 


ay js" PC 












ADOS (SPl.iiSPI* TO FAC1IS9),F»C?(R5) WAT 


CHIVC TYPe 










R0,R1 


U>iUSE" 




2222 


, 








R2,R3 


OESTHOYEO 




2223 










R4 HOOirlPD TO REFLECT STACK USAGE 




2224 










R9 MUST POI>'T TO USER'aREA 




2225 










SP OOFS 7» fEEPtR AFTER JSR 




222| 


007622 


312603 




AOOSTKI MOV 


ISP|.,«3 






2227 


007624 


004767 


009124 


JSR 


PC.FIXUP 






2228 


007630 


001414 




BEQ 


ADOINT 






2229 


007632 


012767 


013214 


000000C MOV 


«ERADiJ,SEHvEC 






2230 


007640 


004467 


009290 


JSR 


R4,rPPSAV 






2231 


007644 


016046 




iMORO 


PySH 






2232 


007646 


0000000 




,HORO 


lAOR 






2233 


007690 


016060 




,UORO 


POP 






2234 


007692 


019066 




,>IORD 


FPPRES 






2239 


007694 


009765 


000040 


TST 


FACKKJ) 






2236 


007660 


000113 




JMP 


(R3) 


iCflN" COOES.SGN(PESULTI 




2237 


007662 


009726 




ADOINTI TST 


(SP). 






2238 


009664 


012602 




MOV 


(SP|*|R2 






2239 


007666 


066902 


00004; 


AOD 


FAe2(R9),R? 






2240 


007672 


102403 




8VS 


AOOOVF 






2241 


007674 


010289 


000042 


"OV 


R2,Fa;2|R9| 






2242 


007700 


000113 




JMP 


(R3) 


iCONn COOES. SGNIRESULTl 




2243 


007702 


100425 




AODOVFl am 


AOOPOS 






2244 


007704 


001416 




BED 


A002EHO 






2245 


007706 


009402 




NEC 


R2 






224| 


007710 


109065 


000042 


CURB 


FAe2(R9) 






2247 


007714 


110269 


000043 


M0V8 


R2lFAC2*llR9t 






2248 


007720 


000302 




SUA8 


R2 






2249 


007722 


110245 


000040 


MOVB 


R2,FA5l(R») 






2250 


007726 


109069 


000041 


CURB 


FAC1.((R9) 






2251 


007732 


062769 


143600 


000040 ADO 


»1436»0|FAS1(R9) 




2252 


007740 


000113 




JMP 


tR3) 


ICON" COOES«SCN(RESULT) 




2253 


007742 


009069 


000042 


AD02ER0ICLR 


FAC2<H9) 






2254 


007746 


312769 


144200 


000040 HOV 


#144200, FAei(R9) 




2255 


007794 


000113 




JMP 


(R3) 


ICONO COOES.SGN(RESULT) 




2296 


007796 


105069 


000042 


ADDPOSt CLRB 


FAC2(H5) 




^/7 


2297 


007762 


110265 


000043 


MOVB 


R2,FAC2«1(R9I 




2298 


007766 


000302 




SMAB 


R2 






2259 


007770 


110269 


000040 


MOVB 


R2,FAC1(R9) 







BtSICU HtCXll Vgil 22«nAR.73 t9!«t PtCE 34.1 



2260 907774 109069 000041 

2261 010000 362769 049600 000040 

2262 010006 00011} 
2263 



Cl."0 
100 



•43600|rACtlR9l 
(H3( 



ICONR eaOeS>>SN(RESUlTI 



p-lf 
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2264 








2269 








2266 








2267 








2268 








2269 








2270 








2271 








2272 








2273 


010010 


010046 




2274 


010012 


010146 




2279 


310014 


009203 




2276 


010016 


010401 




2277 


010020 


009201 




227S 


310022 


001776 




2279 


010024 


009000 




2200 


010026 


012746 


000020 


2281 


010092 


006301 




22S2 


010094 


103002 




2283 


010036 


260300 




2264 


010040 


103909 




2289 


010042 


006300 




2286 


010044 


103903 




2287 


010046 


089316 




2288 


010090 


003370 




2289 


010092 


089726 




2290 


010094 


062700 


000002 


2291 


010060 


103479 




2292 








2293 








2294 


010062 


02122? 


177777 


2299 


010066 


001402 




2296 








2297 








2298 


010070 


006300 




2299 


010972 


103470 




2900 


010074 


016901 


000012 


2901 


010100 


160001 




2302 


010102 


103464 




2303 


010104 


320169 


000074 


2304 


010110 


103461 




2309 


010112 


009721 




2306 


010114 


000401 




2307 


010116 


009021 




2908 


010120 


020169 


000012 


2309 


010124 


101774 




2310 


010126 


160001 




2311 








2312 








2313 


010130 


J2t227 


177777 


2314 


010134 


001413 




2315 








2916 








2317 


010136 


012722 


177776 


2318 


010142 


012221 





SUBROUTINC 'ALkoC 



AULOCI MOV 

MOV 
INC 
MOV 
INC 
BEO 
CW" 
MOV 
AULLOOPIASl 

sec 

ADO 
8CS 
ALLNOAOIASL 
SCS 
DEC 
BGT 
TST 
ADO 
803 



R2 
R9 
R4 
R9 
SP 
"»l«(SP) 
Rl,.(SP) 
R9 

R4,m 

p* 

.•? 

R0 
•20|»(SP) 

m 

AULNOAO 

R9,R0 

ERRARAY 

R0 

ERRARAV 

(SP) 

AULLOOP 

ISPI* 

«2,R0 

ERRARAV 



CACLCD ev JSR PC 

AI.UOCATES AHRAV SPACt FROM FREESPACE 

R»,fll PRESERVED 



MUST P01^'T TO VAR GETS OESTROVEO 
MUST CONTAIN SSIMAX GETS OPSTRnTED 
MUST CONTAIN SS2"AX GETS lESTPOVEO 
MUST POI»'T TO USER AREA 
GOES 7f 'DEEPER AFTER JSR 



ilFNOf $NO»TK 

CMP tR2)i«,SVAR 

BEO ,*6 

,ENOC 



«Sl 

3CS 

MOV 

SUB 

RCS 

CMP 

BUO 

TST 

BR 

CLR 

CMP 

SLOS 

SUB 



R0 

ERRARAY 

MlPREt<R91,Rl 

RBlRl 

EHRARAY 

Rt,MI»TR(H9) 

ERRARAY 

IRD* 

.♦« 

IHD* 

RllHIFREE(R9) 

.•6 

RB.Rt 



MUI.TIPLY IRt).(R3).2 

RESULT IN H0 

WATCH FOR OVEPFUOMS 



|RP MOU t 2 TIMES • ELEMFNTS NEEDED, 



IRP ^'0W • « BYTES NEEDED, 



ilFNOf IN08TH 

CHP tM2)|lii,SVAR 

8Ea AUUSTMN 
lENOC 

MOV ',NV6R|IR2|* 

NOV IH2|*j(Rl|* 



^1'/ 



c, 
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231» 


niiM 


312221 




MOV 


(R2l*|(Rll6 


232* 


010146 


010412 




MOV 


R4,(R2) 


232t 


010190 


019303 




oce 


"3 


2322 


010192 


010342 




"ov 


Ri,>|H2) 


2329 


010194 


010142 




MOV 


Rli>(R2| 


2324 


010196 


162712 


000004 


SUB 


»4l(l>?l 


2329 












2326 








.irNDF 


SNOSTH 


2327 


010162 


000427 




BR 


AUUEXJT 


232a 


010164 


809722 




AULSTRNITST 


(R2)* 


2329 


010166 


312221 




MOW 


(N2)*|IR1)* 


2330 


010170 


009303 




oce 


R3 


233t 


010172 


010322 




MOV 


R3,|R2)« 


2332 


010174 


010412 




MOV 


R4,(R2| 


2333 


010176 


010162 


177774 


MOW 


R1,«4(R2> 


2334 


010202 


162T62 


0g**«2 177774 lU* 


t2ia4|R2) 


2339 


010211 


012721 


177777 


MOW 


••l.(«l)* 


2334 


010214 


020169 


000012 


CMP 


"ilHIFREEOUl 


2337 


01022* 


lil77J 




BLOS 


,.10 


233« 


010222 


16)001 




SUB 


R0|R1 


2339 


010224 


011102 




HOW 


IRt)|N2 


2J4g 


010226 


0*9202 




iNC 


R2 


234i 


010230 


021404 




sea 


•UtxiT 


2342 


010232 


0*0301 




swt* 


"i 


2343 


010234 


110122 




MOWB 


r;,(R2)* 


2344 


010236 


0**3Bt 




SWAB 


Rt 


234» 


010240 


110112 




HOVB 


RliIRi) 


234« 








,CNoe 




234? 












234« 


010242 


160069 


00**12 


aulExitisub 


R9lHirRCE(R9) 


2349 


010246 


012601 




MOW 


(SP|*|R1 


2390 


010290 


01260* 




MOW 


(SP|.,R* 


2391 


010292 


0**207 




RTS 


PS 


2392 


010294 


000*04 




ERRARAVIIOt 




2393 








,1'NBr 


SkONCER 


2394 


010296 


092101 


«« 


.ASCII 


NATUV 


2399 








,ENOC 




239* 








.iror 


ll,0NB5R 


2397 








.ASCII 


I ARRAYS TOO LARGE' 


2390 








.ENOC 




2399 


010261 


00* 




.BYTt a 




23«0 








,EWEN 




2361 













J 



Ji^O 
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2362 

2363 










.irNOf 


SNOSTR 


2364 








1 'ARM' SUBROUTINE ' '' ' .— ,— .^— --. 


2369 












CAtLEO BY JSP "7 


2366 












CA1.1.S EV«L Tf OET A 1.8YTE 


2367 












AHSUMENT', SHINCHES TO ERRARG 


2368 












ir ARC NO eooo 


2369 


010262 


0*47*7 


0*1114 


ARGBl 


JSR 


Pf.EVAL 


2370 


010266 


1*3411 






BCS 


ERRAR6 


2371 


01027* 


004767 


00930* 




USR 


PC, INT 


2372 


010274 


0*97*9 


0*0040 




TST 


FACIIMS) 


2373 


010900 


301004 






BNE 


EHRARG 


2374 


010302 


129769 


000049 




TSTB 


rAe2*l(RS) 


2379 


010306 


281081 






BNE 


ERRARG 


2376 


010310 


00*207 






RTS 


Pf ■ 


2377 










.ENQC 




2378 














2379 








ERSQRI 






238* 








ERUOCI 






2381 


010912 


0*0004 




ERRARCI 


lOT 




2392 










.IFor 


mONGfR 


2383 










.ASCII 


'4R0UHENT ERROR' 


2384 










.ENOC 




2389 










.IfNOF 


StONG^R 


2386 


010314 


091101 


107 




.ASCII 


'ARC' 


2987 










.ENOC 




2388 


010317 


00* 






.BYTE 





2389 










.EVEN 




2390 















P-9^1 
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23»1 
2392 










1 'suSrOUTINE i 


BONB< CAUUEo'bv IOT * 


23»3 












PRINTS EPROR MESSAGE FROM AFTER IOT 


23»4 












R0 DESTROVE!" 


239» 












Rt RRfSFRVE" 


2396 












R2,R3|R4 UNUSED 


2397 












,»S MUST Pei"T TO USER AREA 


2390 












SP RESET TO EMPTY STACK 


2399 












PC OOrS NBT RETURN 


2400 


010320 


311601 






BOMBl HOV 


tSPl.Kl 


2401 


010322 


016739 


009000G 




MOV 


USRARt4,R» 


2402 


010326 


I»16906 


900004 




MOV 


PPU(R»I|SP 


2403 


010332 


009069 


000076 




CL" 


0BEVIN9) iCAUSE MES OUTPUT TO TTY 


2404 


010336 


012769 


990036 


909034 


MOV 


•PUHNTTY,C0UUMN(B9) ISET-UP TTY FOR COU 


2409 


010344 


060969 


909934 




too 


R»,C0UIJMN|R9I 


2406 


010390 


904167 


907076 




JSR 


RllMSS 


2407 


010394 


019 


012 




,BVTE 


CR.UF 


2406 










.IFNOr 


IkONGlR 


2409 


010396 


049 






,«SCtl 


t%l 


2410 










,ENDC 




2411 


010397 


000 






,B»TE 9 




2412 










lEVEN 




2413 


010360 


112100 






BOHBNXI "OVe 


|R1)»,R0 


2414 


010362 


001403 






BED 


BOHBOON 


241S 


010364 


004767 


910316 




JSR 


PC.PUICHAR 


2416 


010370 


000773 






BR 


aOHBNX 


2417 


010372 


324927 


000030 


177779 


aOHBOONICHR 


UlNeN0IH9(,6-,SCALAR 


2416 


010400 


103041 






BN|S 


BOMBJNP 


2419 


010402 


904167 


007044 




JSR 


RliHSK 


2420 


010406 
010414 


940440 
942916 


020124 

040 


044S14 


, ASCII 


• AT UlNE I 


2421 


010417 


000 






',8»TE J 




2422 










.EVEN 




2423 


010420 


916990 


900090 




MOV 


u;neno(R9),r» 


2424 


010424 


902499 






BUT 


BOHBNtG 


2429 


010426 


919069 


999042 




MOV 


R0,Fa;2(R»| 


2426 


010432 


909069 


999049 




C1.R 


rACKKSi 


2427 


010436 


900414 






BR 


BOHBOk 


2426 


010440 


110069 


000043 




eoMBNeeiMovB 


RB,FA(2*1(R9) 


2429 


010444 


109069 


000042 




CIRB 


rAC2(M91 


2438 


010490 


900300 






SWAB 


R0 


2431 


010492 


110069 


000040 




HQVB 


RB,FA51(R»I 


2432 


010496 


1«9(69 


000041 




CURB 


F*ei*l(R9) 


2433 


010462 


062769 


043600 


000040 


ADD 


•43600iFA;i|R9) 


2434 


010470 


004767 


007230 




BOHBOKI JSR 


PfiNUHOUT 


243» 


010474 


904167 


006792 




JSR 


RtiNSG 


2436 


0109(0 


019 


012 


000 


.BTTE 


CR,UF,B 


2437 




010904 






,EVEN 




2436 


010904 


000167 


170434 




BOMBJMRIJNP 


REAOV 


2439 















M^ 
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2440 








1 








2441 








1 BuFCUR"INlT 


1/0 OEv, BUFFER 


HFAnEn; 


2442 








1 




' 




2443 








1 CAUUI 


JSR 


PC, But PUR 




2444 








1 








2449 








1 USES 


R2 AND 


R3 




244S 








1 








2447 


910910 


916902 


000102 


BUFCURI 


MOV 


K8HD<H9I,K2 


IKEYROARD 


2446 


910914 


912293 






MOV 


(H2|*|H3 


IBUFF; START 


2449 


010916 


909722 






TST 


(R2I* 


(SKIP TO aOETl 


2490 


919920 


919322 






MOV 


R3,(R2|4 




2491 


919922 


910322 






MOV 


R3,(R2)* 




2492 


919924 


910322 






MOV 


R3,(R2)* 




2453 


919926 


904767 


900032 




JSR 


P?, BUFTP 


iCUtAR TtUEPMlNTER 


2494 
















2499 










iIFNOF 

m6v 


SNOPTP 




2496 


910932 


012702 


023760 




aPPBFHD|R2 


iPAPtR TAPE "UNCM 


2497 


010936 


904767 


904774 




JSR 


PP.INJTBF 




2496 


010942 


912792 


923714 




MOV 


•PRBFHa,R2 


IPAPFR tape "EaDER 


2499 


010946 


904767 


904764 




JSR 


PCiINtTBF 




2460 










,ENOC 






2461 










iIFNDF 


INOUP! 




2462 


010992 


312702 


924024 




MOV 


•UPBFHD,R2 




2463 


010996 


904767 


004794 




JSR 


PCiINiTBF 




2464 










,ENOC 






2469 
















2466 


910962 


90(207 






RTS 


PC 




2467 
















2466 
















2469 








1 








2470 
2471 
2472 








1 buftp 


— INIT 


TEUEPRINTER BUFFER HEADER 








1 CAUUI 


JSR 


PPlBUtTP 




2473 








1 








2474 








1 USES 


R2 AND 


R3 




2479 








1 








2476 


919964 


916902 


000100 


suPtpi 


Nov 


TPHI)(H9),R2 


ITEUCPRINTER 


2477 


919970 


912203 






MOV 


(R2)*,R3 


iBUFF, START 


2476 


919972 


922222 






CMP 


IR2l«i(R2)* 


IPT, TO BGET2 


2479 


910974 


910322 






MOV 


R3,(R2I* 




2480 


010976 


910322 






MOV 


R3,(R2I« 




2461 


910690 


900297 






RTS 


PC 




2492 

















J ^.3 
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24a9 

24S« 
2«S» 

i*»t 

24sa 
24av 

249» 
2491 
2492 
2493 
2494 
249» 
24»« 
2497 
249a 
2499 

ifti 

2»01 
2902 
2»03 
2904 
2909 
290t 
2907 
2900 
2909 
29t0\ 

2912 
2913 
2914 
2919 
291t 
2917 
2918 
2919 
2920 



CHKCHR • CHECK ASCII CHAR, FgR SRCCUL CASES 



CALL I HQV 

JSR 



c;har,]|R0 

R3, CHKCHR 



iNSTRge, iE«EeuTE ir liie del, kalt "ooE>i(ti'i) 

INSTRUC, lEKEC, ir <CR> 

INSTRUC, IE«EC, ir <RUa OUT> (OR '-M 

INSTRUC, lEXEC, ir SELOU 40 OR ABOVE 137 

INSTRUC, iE«Ee, ir eooo sTurr 



010t02 


120027 


000176 


01060« 


t<01434 




010610 


120027 


000179 


010614 


001431 




010616 


120027 


000033 


010622 


001426 




010624 


120027 


000029 


010690 


001423 




010632 


009723 




010634 


120027 


000019 


010640 


001417 




010642 


009723 




010644 


120027 


000177 


010690 


001413 




010692 


120027 


000137 


010696 


001410 




010660 


009723 




010662 


120927 


000040 


010666 


109404 




010670 


120027 


000137 


010674 


101001 




010676 


009729 




010700 


000203 





USES R0 

CHKCHRI CHPB 
9Ea 
CMP9 
BEQ 
CHPS 
BEO 
CHPB 
BEO 
TST 
CHPB 
9E9 
TST 
CHPB 
BEO 
CHPB 
BEO 
TST 
CHPB 

•to 

CHPB 
SHI 
TST 
CCtXITI RTS 



R0i(17> 

C5EX1T 

R»,«175 

CCEXIt 

R0l«33 

CftXii 

R0i«2» 

CCEXIT 

(K3)4 

RBllCH 

CCEXIt 

(H3»* 

"BliirT 

CCEXIT 

R01«'" 

CCEXIT 

(K3)* 

R0i«4e 

CCEXIT 

R0|1137 

CCEXIT 

(H3)* 

R3 



IAI.T HOOE 

I ALT MOOt 

lAUr HODE 

|(tU' 

iTe <CR> RETURN 



|T8 RUB OUT RETURN 
I RUB OUT 



ITO L|H1T RETURN 



JRC(>, CHAR, RETURN 



JSiV 
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2921 

2922 
2923 
2924 
2929 
2926 
2927 
2926 
2929 
2930 
2931 
2932 
2933 
2934 
2935 
2936 
2937 
293a 
2939 
2940 
2941 
2942 
2943 
2944 
2949 
2946 
2947 
2940 
2949 
2990 
2951 
2992 
2993 
2994 
2999 
2996 
2997 
299a 
2999 
2960 
2961 
2962 
2963 
2964 
2969 
2966 
2967 
2966 
2969 
2970 
2971 
2972 
2973 
2974 
2979 



310702 
010706 
010710 
0107-14 
010720 
010722 
010726 
010730 
010734 
010736 
010740 
010742 
010746 
010790 
010792 
010794 
010796 
010760 

010762 

010766 

010770 



010773 



010774 



010775 



212700 
300402 
312700 
004767 
103420 
305765 
301017 
316902 
001411 
111003 
060903 
020227 
101007 
360200 
111013 
001404 
111002 
300207 

300167 

000004 

041904 



076 



010777 



010774 

000462 



300040 
000042 



001996 



109 



CHKISET 
CHKOSET 



CHECK I/O CHANNEL ANf^ StT.lip INPUT (tDEV(R5)) 
CHECK I/O CHANNEL ANI SET.UP OUTPUT (00EV(R5)| 



"OV 
JSR 



CAOOR, oP CODE LINE »Tr; 
PCiCHKISET (CHKOSET) 



AFTER '»'3,91 



USESI R0iR1iR2iR3iH9 

CHECK |P SPECIFIED CHANNEL LECAL (NUHBER IN RANCE AND l/o 
DEVICE ASStHBUEO |N), RETURN COnE FOR SPECIFICO DEVICE 
(SAHE AS VALUE OF lOEV lOOCVI) I>' "2, ON EXIT, Rl PTS', 
TO 8TTE AFTER CHANNEL NUMBER, 



■MUST BE INTEGER 

iTTT . EVERYTHING SET.UP 

iFIRST TABLE ENTRY 

|PT5, TO ACTUAL RYTE 

IHAX CHANNEL NUHRER (CURRENTLY) 



CHKISETIfflV 


• ITABI,E,R0 




RR 


COHCHK 


CHKOSET IHOV 


ROTABLE, R0 


COHCHKI 


JSR 


PC.EVAL 




BCS 


ERSXIZ 




TST 


FAei(R9) 




BNE 


EHCHAN 




NOV 


FAC2IR9),R2 




BEO 


O«T012 




•fOVB 


(R0),K3 




AOO 


R9,R3 




CHP 


R2l<2 




BHI 


ERCHAN 




AOO 


R2,R0 




"OVB 


|R0),|R3) 




BEO 


EHCHAN 




HOVB 


(R0),K2 


OUr012t 


RTS 


PC 


ERSX12t 


JHP 


EHRSX9 


ERCHANI 


lOT 






iIFNOF 


SLONGER 




.ASCII 


\OCE\ 




,ENOC 






.IFOF 


IltONG^R 




.ASCII 


'DEVISE CHA 




.ENOC 






,B»TE 





1 


.EVEN 




I 
OTABLEl 


.BYTE 


oCCv 




.IFDF 


SNOPTP 




.BYTE 







.ENOC 






■IPNOF 


JNOPTP 




.BYTE 


2 




.ENOC 






.IFOF 


INOUPI 




.BYTE 


9 



lENTRY IN TABLE OF OEV, CODE 
)CODC INTO'IQEV OR OOEV 
IHEAMS NO DEVICE THERE 



p.A6 
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2576 
2977 
257f 910776 IB4 

2»r» 
2»e> 

2961 810777 977 

2982 

296} 

29«4 

2989 

2986 811809 902 

2987 

2988 011901 989 

2989 



I 



■ ENoe 

,B»Tt 4 

.CNoe 



I TABLE I .BYTE IPEV 

iiror jNOPTP 

,BTTt 

lENDC 

iIPNOf INOPTP 

.BYTE 2 

,ENOe 

.BYTE 



p-?-y 
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2999 














••«•>>••■-••>. •••.•^••. •_-•••••.••«. 


2991 










1 SUBROUTINE 


CURVARS' OtUCD BY JSP PC 


2992 














' CUetRS VtRS TO SC«tAR !EROS,KUUL STRINGS 


2993 














tUSO tNITUUtiCS RANDOM NO SEN 


2994 














RB OESTROYtO 


2999 














Rl,R2i"3,R4 UNUSED 


299| 














R9 MUST POI"T TO USER APtA 


2997 














SP SOfS NO nEEPER ArTER JSR 


2998 


011002 


012769 


032331 


089964 


CURVtRSIMOV 


•f2331|RNDt(P9| 


2599 


011018 


012769 


163291 


990966 




HOV 


«1632»1|RN02(R9) 


2600 


011016 


011909 








HOV 


<R9),H0 


2601 


911029 


020069 


088914 




CLRLOORICHR 


RB,U0rREE(R5) 


2602 


011924 


193921 








BHIS 


euRPREE 


2603 


011026 


021927 


177779 






CMP 


(H9),»,SCAUAR 


2604 


011932 


193412 








BUO 


CUROK 


2609 
















2606 












iIFNOr 


INOSTN 


2607 


811934 


021927 


177777 






CRP 


tRB),»,SVAR 


2606 


011940 


001404 








BEB 


C|,RSVAR 


2609 












.ENoe 




2610 
















2611 


011042 


012720 


177779 






MOV 


•|SCAUAR,(PB)* 


2612 


011946 


089910 








CUR 


(N9) 


2613 
















2614 












.ITNOr 


INOSTN 


2619 


011099 


099401 








BR 


1*4 


2616 


011992 


012919 






CURSVtRIMOV 


(R9)*|(R0I 


2617 












iCNOC 




2618 
















2619 


011994 


012919 








MOV 


(R9)4|(R0I 


2629 


011996 


012919 








HOV 


(R9)*i(R0) 


2621 


011969 


062700 


000004 




C|.ROKl 


«0D 


•4,Rg 


2622 


011064 


090799 








BR 


CkPtOOP 


2623 


011066 


099929 








CUR 


(R9)* 


2624 


011078 


020969 


099919 




CLRrREEICMP 


RB|ARHAYS(R9) 


2629 


011974 


191774 








fluos 


■ •4 


2626 


011076 


016969 


809819 


090812 




MOV 


AHRAYS(R9|,HirREC|P9) 


2627 


011104 


016969 


000914 


090072 




MOV 


UOPREE<R9),U0STR<H9) 


2628 


811112 


016969 


000014 


000974 




MOV 


Ui)rREE(B'>iHISTR(R5) lEMPTY STRING STORAGE 


2629 


011120 


012769 


000033 


000032 




MOV 


•33,6?BCTR(R9I 


2630 


011126 


016909 


0000194 






MOV 


PBU(R>l|R0 


2631 


011132 


012729 


177777 






MOV 


•9tllN0)* 


2632 


011136 


099929 








cu" 


(RBI* 


2633 


011140 


029969 


000002 






CMP 


R9,UINIT<R9) 


2634 


011144 


101774 








BUDS 


,•6 


2639 


011146 


098207 








RTS 


PC 


2636 

















^^7 
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J»37 

263« 
2*9« 
264) 

2t4X 
2»42 
2»43 
2644 
264$ 
264$ 
2647 
264« 
2649 
26M 
269t 
2692 
2693 
2694 
2699 



SUBROUTINC lOtVTCNl 



011190 
011194 
011160 
011162 
011166 
311170 
011172 
011174 
011176 
011202 
011204 



012746 000034 
022703 090000 
101002 

062703 130000 
006104 
006103 
009316 

003367 

042703 170000 

009726 

000207 



1 


SP 


OIVTtNl "OV 


•44,.(SP) 


OIVtOOPICNP 


• 9010^,8-3 


9HI 


,♦6 


100 


•130000, P3 


ROl 


R4 


»PU 


R3 


DEC 


<?Pt 


»6T 


OIVLOOP 


9ie 


•t70000|R3 


TST 


(5P)* 


RTI 


P5 



CALLED BY JSK PC 

DIVIDES P3|R4 By OECI'ltl, 10 

»ll,Rl,R2 UNUSED 

R3,R4 IS THE 31 BIT UNSIGNED INTEBEB TO OIVIOE 

R9 UNUSED 

OOfS 2 OEEPE" •FTES JSR 



jL?.f 



kSICl 


K»exii 


V021 


22al1tR«73 


2696 








2697 








2698 








2699 








2660 








2661 








2662 








2663 








2664 








2669 


011206 


010146 




2666 


011210 


010246 




2667 


011212 


010346 




266B 


011214 


009046 




2669 


011216 


016902 


000072 


2670 


011222 


016901 


000014 


2671 


011226 


010169 


000072 


2672 


011232 


009016 




2673 


011234 


192216 




2674 


011236 


00i012 




2679 


011240 


320269 


00)074 


2676 


011244 


103772 




2677 


011246 


010169 


300074 


267S 


011292 


009726 




2679 


011294 


312603 




2660 


011296 


312602 




2681 


011260 


312601 




2682 


011262 


300207 




2683 


0H264 


309003 




2684 


311266 


192203 




2689 


011270 


300303 




2686 


011272 


192203 




2687 


011274 


361602 




2688 


011276 


009202 




2689 


011300 


030327 


000001 


2690 


011304 


0)1402 




2691 


011306 


00S303 




2692 


011310 


061903 




2693 


011312 


320369 


000004 


2694 


011316 


103390 




2699 


011320 


320306 




2696 


011322 


103013 




2697 


011324 


020369 


000018 


2698 


011330 


101343 




2699 


011332 


320369 


000012 


2700 


011336 


101009 




2701 


011340 


020369 


000014 


2702 


311344 


103339 




2703 


311346 


020319 




2704 


011990 


103733 




2709 


311392 


062716 


300004 


2706 


011396 


161602 




2707 


011360 


020213 




2708 


011362 


001009 




2709 


011364 


010113 




2710 


011366 


112221 
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iIFNor INOSTK 



SUBROUTINE 'ONptCK' CttLEO BV JSP PC 

P»eKS STPING STONAGE TOMARO UOU CORt 

R0 UNUSED 

Rl,R2iR3 PNESERVED 

R4 UNUSED 

R9 »UST POI«T TO USER ARE* 

SP r.ors 1» lEEPER AFTER JSR 
Pll'ISP) ITO UNDERSTAND THESE ROUTINES IT |S WEtPfUL To 
R2,.(SP) iKrOW THAT NON.NULU STRINGS ARE STORED AS 
R3,.(SP) I(I.ENCTh,2 BYTE ^ACKPTR.M BYTE STRING, LENGTH) 
(SP) IHHERE LENGTH IS THE VALUE Of N INO IF BACKPTR 



ONPACKl HOV 
NOV 
NOV 
CLR 
HOV 
HOV 
HOV 

ONPLDOPICLR 
8|SB 

ONPBAOI CMP 
BLO 
HOV 
TST 
HOV 
HOV 
Hgv 
RTJ 

DNPNZROICLR 
BI9B 
SHAB 
BISB 
ADO 
INC 
BIT 
BES 
DEC 
ADD 
CNP 
8HIS 
CMP 
BHIS 
CMP 
BHI 
CMP 
BHI 
CMP 
BHIS 
CMP 
BLO 

ONPCDODtADO 
SUB 
CMP 
BNE 
MOV 
HOVB 



LDSTR|R9),R2 

L0FREt(R9l,Rl 

RilL0STR(R9) 

ISP) 

|R2)*,(SP) 

ONPNiNO 

R2rMISTR(R»| 

ONPLOOP 

Rl,HIifTR(R9) 

ISP)* 

(.SP)»,R3 

(SP)*,R2 

(5P)»,Rl 

PC 

R3 

(R2)*lR-3 

R8 

(R2)*lR9 

I5P),K2 

R2 

R3,01 

.46 

R3 

(R9|,H3 

R3,P0l,(R9| 

DNP3AU 

RJ,5P 

ONPGOOD 

R3,ARHAYS(R9) 

DNPBAP 

R?iHirREE(R9) 

ONPSOOO 

Ri,L0FREE|R9) 

DNPBAi; 

R?,(RS) 

ONPBAO 

»4,(SP) 

I5PI|R2 
R2,|R3) 
DNPIGNO 
RlllPS) 
(R2)*l(Rll* 



lis CDO.THEN IT IS RELATIVE TO SYMBOLS, 



)SAVE HIGH STRING IDORES! 



^^^ 



stcu 


M»exii 


V021 


22aM4R>79 
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011970 


00991» 




DEC 


<SPI 




011972 


00997S 




•CT 


■ •< 




011974 


000721 




9R 


ONP04U 




011974 


0«1602 




ONPISNOUOO 


(SP),K2 




011400 


000717 




30 


ON'BAQ 










lENDC 












.EOT 

















^30 
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2719 








2720 








2721 








2722 








2723 








2724 








272S 








272» 








2727 








2720 








2729 








2730 
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CHPS 


(R1)»I«,TEXT 


3022 


012996 


001372 






8NE 


ERRSX9 


3023 


012960 


010203 






»0V 


R2|R3 


3024 


012962 


010102 






«0» 


RtiR2 


302» 


012964 


109721 






TST9 


I'll* 


3026 


012966 


001376 






SNE 


■ •2 


3027 


012970 


020604 






CNP 


SP,R4 


3020 


012972 


103672 






auo 


ERRP09 


3029 


012974 


010246 






xev 


R2i«<;p) 


3030 


01J976 


161716 


000003 




SU0 


•?||S'I 


3031 


012602 


010146 






"ov 


"tl'lfl 


3032 


012604 


160216 






sgo 


R?i(»P) 


3033 


012606 


122103 






CMPB 


(Rt)*|R3 


3034 


012610 


001399 






8NC 


ERRSX9 


3039 


012612 


009316 






BEC 


(j'l 


303t 


012614 


001410 






0EO 


aUNULb 


3037 


012616 


010602 






MOV 


SP|R2 


3030 


012620 


062702 


000002 




too 


• 2|R2 


3039 


012624 


004767 


004422 




JSR 


P?,H*KCSTR 


3040 


012630 


012616 






NOV 


($P)«,|SP) 


3041 


012632 


000167 


000924 




JHP 


QMOTBUM 


3042 


012696 


022626 




OUNULLI 


?MP 


(SP)»|(SP)* 


3043 


012640 


012746 


177777 


00tV»LI 


HOV 


••I.'ISP) 

S0PR4TR 


3044 


012644 


000429 






ap 


304» 










,ENOC 




3044 

3047 














012646 


000167 


000330 


ER>O02t 


JMP 


ERRP02 


3948 















iTlqat if IntEOER 
IRETURN 



ISAVC OUOTt CHAR, 



ISAME AS STARTING QUPTE CHAR,? 



^3 6 



ASICL 


NACXll 


V021 


22lMAR. 


79 19141 PASE 44.6 






3049 


' 








.IFNor 


SNOSTH 




3090 


012692 


004767 


003932 


STRSARRIJSR 


pJ.LOgOET 
STROBfH 




3051 


012696 


000406 






BR 




3092 


012660 


009722 




STROVARITST 


(R2I« 




9059 


012662 


026227 


000002 


177777 


CMP 


21R2)i».l 




9054 


012670 


001401 






8C0 


STRGBIH 




9099 


012672 


011202 






MOV 


("2)|H2 




3096 


012674 


011203 




STROSTHIHOV 


(R2I.M9 




3097 


312676 


020327 


177777 




CMP 


R9,».i 




3059 


012702 


001796 






BEQ 


OOTVAU 




3059 


012704 


020604 






CMP 


SP,R4 




3060 


012706 


103757 






9L0 


ERPO02 




3061 


012710 


009046 






CI.R 


• <SP) 




9062 


012712 


111316 






MOVB 


<R9|||SPI 




3063 


012714 


304767 


004932 




JSR 


PCiHAKESTR 




3064 


012720 


126627 


300002 


000226 S0PRATRICHP9 


2tSPI|«,AMPERS 




3069 


012726 


001434 






BEO 


CONCAT 




3066 


012730 


121127 


300226 




CMPB 


|R1),»,AMPERS 




3067 


012734 


001422 






BEO 


AMPWAJT 




3060 


012796 


126627 


300002 


00B235 


CMPB 


2(SP),«,TERM 




3069 


312744 


001277 






BnE 


ERRSX5 




3070 


012746 


012600 






MOV 


(SP|*,H0 




3071 


012790 


005726 






TST 


ISP)» 




3072 


012792 


011602 






MOV 


(SP),H2 




3073 


012754 


010016 






MOV 


R0,|SP) 




3074 


012756 


009200 






INC 


R0 




3079 


012760 


001406 






BEQ 


SOPRX ICHECK NULL 


3076 


012762 


062700 


000002 




AOO 


•2iR0 




9077 


012766 


010603 






MOV 


SP|R9 




9070 


012770 


110340 






MOVB 


R9,.(R0) 




3079 


012772 


080309 






9N4B 


R9 




3000 


012774 


110940 






MOVB 


R9,«|H0) 




9001 


012776 


000261 




SOPRXt 


SEC 






3082 


019000 


000112 






JHP . 


("21 




3e99 


013002 


112146 




AMPHt|TinOV8 


(R1|»,.(SP| 




9084 


013004 


004767 


176972 




J5R 


"flEVAU 




3005 


013010 


103743 






BC5 


SOPRATR 




9086 


013012 


000004 




ERRHtXI 


lOT 






9087 










.ifNor 


SI, ONCER 




9086 


013014 


391916 


115 




.ASCII 


\NSM\ 




9089 










,ENOC 






9090 










.IFor 


SUONG|R 




3091 










.ASCII 


'NUMBERS ANO STRINGS 


MIXtOI 


9092 










.ENoe 






9099 


013017 


000 






,8»TE 






3094 










.EVEN 






90»9 


013020 


321627 


177777 


CONCATt 


CMP 


t5P)i»»l 




9096 


019024 


001002 






SNE 


CATNOT 




9097 


013026 


022626 






CMP 


|SP|»,(SP)4 




3090 


013090 


000733 






BR 


SOPRATR 




3099 


019032 


016602 


000004 


CATNOTi 


MOV 


4(SP),R2 




9100 


019096 


020227 


177777 




CMP 


R2,P.i 




9101 


019042 


001004 






BNE 


CATUONG 




9102 


013044 


012600 






MOV 


(SP)*iRB 




3103 


013046 


009726 






TST 


(SP). 





^3 7 



e«S|CL HteXll Vgjt 22>n<R«73 15141 Ptec 44>7 



31B4 


013090 


010016 






MOV 


RBllSKI 


3119 


013052 


000444 






■R 


MTCOH 


91I« 


013094 


009000 




C»tL0N6iet« 


R0 


3107 


013094 


1912S0 






B|SB 


(Ra),RB 


Site 


913060 


011603 








I5R1.R3 


31B9 


313062 


f20604 








SP,R4 


me 


013064 


103670 








ERPO02 


3111 


013066 


009046 








• ISPI 


3112 


013070 


111316 






nCVB 


IR3)i(SPI 


3113 


013072 


>i60016 








R0,(SP) 


3114 


013074 


021627 


000J77 






(SP|,»377 


3119 


013100 


101042 








EHRSTR 


3116 


013102 


010602 








SP,R2 


3117 


013104 


062702 


000006 






•6|R2 


311$ 


013110 


004767 


004136 






PC.MAKESTR 


3119 


013114 


012603 








I5P|*.R3 


312» 


013116 


016602 


000004 






4|SPI|R2 


3121 


013122 


089000 








R0 


3122 


013124 


191200 






B|9B 


(R2(,M0 


3123 


013126 


010366 


000104 






R3,4(5P) 


3124 


019132 


060009 








R(,R3 


3129 


013134 


062709 


000003 






•J,R3 
t|R|*tR2 


mt 


013140 


012602 








3127 


019142 


0«972« 








(?'!» 


J129 


013144 


0«900( 








R» 


3129 


013146 


191200 






B|?B 


(R2|,H0 


3139 


013190 


062702 


000003 






•3,R2 


3131 


013194 


112223 






MOVB 


(R2)*|(R3)* 


9132 


013196 


009300 








R0 


3133 


013160 


009379 






B6T 


>•* 


3134 








STMOI 






3139 


013162 


011600 




OUOTBUHIHOV 


<»P|,"0 


313» 


013164 


010602 




CATCOHI 


MOV 


SPiR2 


3137 


013166 


062700 


000003 




too 


•3|R0 


3139 


019172 


110240 






MOVB 


R2l>(K0) 


3139 


019174 


000302 






SMIB 


RZ 


3140 


019176 


110240 






MOVB 


R2l«(ll0| 


3141 


019200 


000647 






BR 


SOPR»iR 


3142 










iCNDC 




3143 














3144 


019202 


000167 


176964 


ERRP02I 


JMP 


ERRPO), 


3149 














314J 










.jFNOr 


IN9STH 


3147 


019206 


000004 




ERRSTRl 


lOT 




3149 










.irNOF 


SkONStR 


3149 


013210 


092123 


114 




, ASCII 


\»7l\ 


3190 










,CNOC 




J191 










.If or 


tliON6{R 


3192 










.ASCII 


'STRING TOO LONG' 


3193 










.CNDC 




3194 


019219 


000 






.BYTE 




3199 










.EVEN 




3196 










,ENOC 




3197 














3198 








EREXPI 







c^Sf 



kSICL 


MJOXll 


V021 


22aMAR>; 


'3 19)41 PACE 44.8 




9199 








ERSTaRI 






3160 








ERAOOI 






3161 


013214 


000004 




ERROVRl 


lOT 




3162 










,17Nor 


SUONGtR 


3163 


013216 


059117 


106 




.ASCII 


• ovr< 


5164 










lENOC 




3169 










.IFor 


SkONGER 


3166 










.ASCII 


'OVERFUOUI 


3167 










,ENDC 




3160 


013221 


000 






,8»TE 3 




3169 










,EVEN 




3170 














3171 


013222 


312746 


300000G 


SIhFNI 


MOV 


■?lN>*ISPI 


3172 


013226 


000434 






8R 


ruNCTi 


3173 


013230 


012746 


000000G 


COSFNI 


"OV 


•$OSt>(SP) 


3174 


013234 


000431 






BR 


rWNCTI 


3179 


013236 


012746 


00B000G 


SORFNI 


MOV 


»SORT,.(SP) 


3176 


013242 


012767 


010312 


000000G 


MOV 


<CRSaK,IERVEC 


3177 


013290 


000423 






BR 


rUNCT) 


3170 


013292 


012746 


0800000 


atnfni 


MOV 


•ATAN,«(SP) 


3179 


013296 


000420 






BR 


ruNCTi 


3100 


013260 


012744 


000000G 


EXPFNI 


MOV 


•fxp.XSP) 


3101 


013264 


012767 


019214 


000000G 


MOV 


•(REXP.SERVEC 


3102 


013272 


000412 






BR 


rSINCTI 


3163 


013274 


0U746 


000B00G 


lOGFNI 


MOV 


•ALOGi«(SP| 


3164 


013300 


012767 


010312' 


000B00G 


MOV 


•ERLOO.IEHVEC 


3189 


013306 


000404 






BR 


rUNCTl 


3186 














3187 










.IFNOr 


INOSTN 


3188 


313310 


000167 


177476 


ERRMX9I 


JHP 


ERRNIX 


3189 










.CNOC 




3190 














3191 


013314 


000167 


177662 


ERPOIII 


JHP 


ERRPO? 


3192 
3193 


013320 


004767 


176096 


rUNCTII 


JSR 


'5.EVAt 


3194 










.I'Nor 


SNOSTH 


3195 


013324 


109002 






Bce 


ruNcTj 


3196 


013326 


000167 


174760 




JHP 


ERRARG 


3197 








FUNCTJi 






3198 










,ENOC 




3199 














3200 


013332 


312609 






MOV 


l$P)*|R3 


3201 


013334 


301002 






BHC 


.46 


3202 


019336 


000167 


001196 




JHP 


ERRUPN 


3203 


013342 


122127 


000237 




CMPB 


(Rl)*l6,RPtR 


3204 


313346 


001090 






BNC 


CRRSX9 


3209 


313390 


304467 


301940 




JSR 


R4,rPPSAV 


3206 


313394 


012930 






lUORD 


PJSHr' 


3207 


019396 


019964 






,HORO 


ruNOK 


3218 


013361 


ntm 






,UOf*0 


FMRt} 


3209 


013362 


300440 






BR 


OPRFN 


3210 


013364 


010601 




7UN0KI 


MOV 


SR|R1 


3211 


313366 


010446 






HOV 


R4,a(;P| 


3212 


013370 


312746 


013416 




MOV 


•rUNR(T|.(9P) 


3213 


013374 


012746 


300137 




MOV 


•137, .«SP) 



iPusu fac, fuoat |r necessarv 

|G0 ?0 FUNCTION 



(SAVE ADDRESS OF PUSHED >RG 
ISAVE "4 

/DUMMY RETURN ADDRESS 
|0UM"Y JUMP INSTR, 



P3f 



B«S|CL Htexil Vg2t 22.n«ll.73 ISM). PACE 44-9 



J814 

321« 

3JIT 

3:tt 

3il9 
322e 
3221 
3222 
3223 
3224 
3229 
322« 
3227 
322a 
3229 
3230 
3231 
3232 
3233 
3234 
3239 
323« 
3237 
323a 
3239 
3248 
324i 
3242 
3243 
3244 
3249 
324« 
3247 

324a 

3249 
3290 
3291 
3292 
3293 
3294 
3299 
Sifi 
3297 
929a 
3299 

326a 

3261 
3262 
3263 
3264 
3269 
3266 
3267 
326a 



913401 
013402 

013406 
013410 
013412 
013416 
013422 
013424 
013426 
013432 
013436 



013440 
013444 



712746 000401 

010900 

010609 

004070 000092 

062706 900010 

012604 

022626 

010069 000040 

01016J 000042 

000134 



000167 177346 
0B4767 179732 



013490 103773 



013492 

013496 

013460 
013464 
013470 



013474 
013476 
013900 
013904 
013906 
013910 
013914 
013916 

013920 

013926 
013932 
013934 
013940 
013942 
013990 
013992 

013996 
013960 

013962 

013966 
013970 



122127 000237 
001004 

B04767 002110 

000167 176476 

000167 177090 



009716 
001010 

009766 
001409 
009726 

304467 

2000000 

019066 

012767 
009769 
001036 
009769 
001006 
012769 
022626 
080167 

009716 
001077 
009765 

100013 
000004 



000002 
301400 

014064 
000040 

000042 

000001 

176410 



"0» 
m{v 

"OV 

JS« 

"OV 
CMP 
NOV 
"OV 

.iTNOr 
ERRMX8I JMP 

.CNOc 

iNtfNl JSP 

lENDC 
ChPB 

aNC 

JSP 
OPPFNI JHP 
CRPSX9i JHP 



><01><ISPI 

P9,R8 

SP,R9 

RB,*P3SiVE|R0) 

•a-,|SP 

t|P|4lR4 

I5P1*|ISP1* 

R0,r»Cl(R9i 

Pl,r»f2(R9) 
•(P4)» 

JNOSTR 
ERRMtX 



PdCVtU 



nog" OF jROUntNT 

lOuli'Y 8» 

|S»VE R9 V«LUE 

iRtTlIRN ADDRESS (TO OUMMV PROG IN STKj 

IPBP DUMnr PPOORAM 
iRtSTQPE R4 

iRtPIBVt OLD PAC fROH STACK 
iSTOPE RESULT IN FAC 

lANO RETJRN 



SNOSTH 
ERRMXB 



IR1)*|P|RPAR 
ER»»X? 
PS. INI 
OPRATQR 
ERRSX9 ' 



UPIRROI 



IF A IS NOT 0|'l,O*'' IT 
TST (?H ■ 



0000000 UAH 



000042 



UA4I 

I a IS 

UA9I 



BNE 
TST 
BED 

TST 
JSR 
jMORD 
,HORD 

"OV 
TST 
9NE 
TST 
BNE 
"OV 
CHP 
JMP 
INTCCER 
TST 
BNE 
TST 

apu 

lOT 
, If NOP 



U41 

ZlJPl 

UAl 

ISP)* 

P4,rPPSAV 

llR 
rppREj 

•ERREXPitEPVEO 
rABl(R9) 

UAt0 

r»e2(R9) 

U»9 

•;ir»52iR9) 

($P)*|ISP)4 

OPRATOR 

(5P| 

UAt7 

rAe2(R9) 

UA9 

SLONOCR 



lis UPPER A B 
lis LOUE" A B 



lis UPPER a • B 
lis LOUER 8*0 
ISET RESULT 1 



lis A • 



lis LOUER 8 > 
INO, ERROR MESSAGE 



P-/0 



iSiCL 


MABXll 


V021 


22.M4R.73 


3269 


013972 


393104 


060 


3278 








3271 








3272 








3273 








3274 


013979 


000 




3279 








327J 


013976 


320027 


004000 


3277 


313602 


103372 




3276 


013604 


300167 


177404 


3279 


013610 


103367 




32S0 


013612 


300167 


177376 


3261 


013616 


30906S 


300040 


3292 


013622 


089065 


300042 


3263 


013626 


000790 




3204 








fZ» 








32a(J 


313630 


009769 


000042 


3287 


013634 


301036 




]2sa 


313636 


016900 


300040 


3269 


313642 


310002 




3290 


013644 


.142700 


133177 


3291 


313690 


320027 


343230 


3292 


313694 


103426 




3293 


313696 


342702 


177600 


3294 


013662 


392702 


000200 


3299 


313666 


320027 


342080 


3294 


313672 


301406 




3297 


013674 


101016 




3296 


013676 


006202 




3299 


013700 


IBJ414 




3300 


313702 


062730 


000200 


3301 


313706 


080767 




3302 


013710 


009769 


000040 


3303 


313714 


100081 




3304 


313716 


305432 




3309 


313720 


305065 


008040 


3306 


313724 


310265 


000042 


3307 


313730 


380712 




3306 








3309 


313732 


305716 




3310 


313734 


381405 




3311 


313736 


384467 


301192 


3312 


313742 


316846 




3313 

3314 
3319 


313744 


314104 


314146 


313758 


305765 


300040 


3316 


313754 


108320 




3317 


3137S6 


^08704 




3318 








3319 








3320 


013760 


316500 


030042 


3321 


013764 


310002 




3322 


013766 


302001 




3323 


313770 


085408 





19141 PAOE 44.10 





■ASCII 


igV0> 






lENoe 








,iror 


ILONGtR 






.ASCII 


IQIVISION BY 01 




lENOC 








iBTTE 


8 






.EVEN 






ERROIVI 


CMP 


R0,«4B00 






BHIS 


UAB 






JMP 


ERSTAH 






BHIS 


UA8 


lOlV BY 




JMP 


ERROVM 


lOVETLOK 


UA9I 


CLR 


rAei(R9| 


)SET RESULT !• 




CLR 


P4C2(R9) 






BR 


UA4 




IftX B 


IF Integer < 296 




UA{0l 


TST 


rAC2(H9) 






aNE 


una. 5 






"OV 


rAei(M9l,RB 






"OV 


R8|R2 






Bie 


•108177, R8 


(EXTRACT EXPONENT 




CMP 


R8|«40200 


ICHECK TOO S"ALL 




BLO 


UA10,9 






Bie 


•177688, R2 






BIS 


•2a0|H2 


|R2 IS MANTISSA 


UAi8AI 


CMP 


R0, •42000 






BEG 


UA18B 






BHI 


UAta.6 






ASR 


R2 






9CS 


u*ia,9 


l|P RIT CLEARED, NO GOOD 




ADD 


•280, R0 


lUPDATE EXPONENT 




9R 


UA10A 




UA10ei 


TST 


FACIIRS) 






BPL ■ 


UA10C' 






NEG 


R2 




UAiZCI 


CLR 


rACKKS) 






"OV 


R2irA;2(R5) 






BR 


UA9 




IB IS REAL 






UA18,5l 


TST 


l§P| 


IIS A i 




BEO 


UA12 






JSR 


R4,rPPSAV 






,UORO 


PQSH 






.UORD 


UAJNP|UA23 




UA12I 


TST 


FACKKS) 


II! UPPER B> 




BPL 


UA9 


lYES 




BR 


UAB 


INO, ERROR 



IB Integer, a real 

UAi7l "OV FAe2(R9),Rj 

"OV R0,R2 

BGE UA17A 

NEG R0 



Py/ 



ISAVE POP SIGN TEST 



SASICU HACXtl V921 22>n«fl>7} 13141 PtCE 44.11 



3324 


813772 


020027 


000296 


3329 


013776 


103097 




332« 


014000 


304467 


001110 


3327 


014004 


916060 




332* 


014006 


316072 




332» 


014010 


314072 


014020 


333e 


014014 


016046 




3331 


014016 


000000G 




3332 


014020 


014110 


014040 


3333 


014024 


016046 


016046 


3334 


014030 


000000S 




3335 


014032 


at6060 




3336 


014034 


314104 


014010 


3337 


014040 


016060 




333a 


014042 


014120 


014096 


333» 


014046 


016072 




334« 


014090 


016046 




3341 


014092 


0000000 




3J42 


014094 


016060 




3343 


0140S6 


019066 




3344 


014060 


000167 


176102 


3345 








3346 








3347 


014064 


000004 




3348 








3349 


014066 


042936 


122 


3390 








3391 








3392 








3393 








3394 


014071 


000 




3399 








3396 








3397 


014072 


006269 


000044 


3396 


014076 


103002 




3399 


014100 


009724 




3360 


014102 


000134 




3361 


014104 


011404 




3362 


014106 


000134 




3363 


014110 


009769 


0000*4 


3364 


014114 


001773 




3369 


014116 


000770 




3366 


014120 


009769 


000090 


3367 


014124 


100367 




336S 


014126 


000764 




3369 


014130 


009716 




3370 


014132 


100794 




3371 


014134 


000134 




3372 








3373 


014136 


010246 




3374 


014140 


004467 


000790 


3379 


014144 


000000G 




3376 








3377 


014146 


014170 




3376 


014190 


014130 





U«i7tl 


CMP 


R0|02>6 




BHIS 


UA2B 




JSP 


R4,FPPSAV 




,UOR0 


POP •■ 




,WOPO 


PUSH! 


UAt7ai 


,HORO 


UAASR|UA170 




,MOPO 


PUSH 




,UORD 


SMUR 


U«t7DI 


,UORO 


UATSTBiUAirr 




lUORO 


PySH.PMSM 




,HORO 


SHLR 




,MORD 


POP 




,UOR0 


UAJMP|UA17a 


u»i7ri 


,HORO 


POP 




,UORO 


UATST2,I|A1« 




,MORO 


P«SH1 




,MORO 


PUSH 




.WORD 


SOVR 




• WORD 


POP 'POP 


U*19l 


,UORO 


FPPRES 




JHP 


OPRATOR 


CRREXPI 






UA21I 


lOT 






.IFNSF 


Sl,ONe?R 




.ASCII 


\!tRS 




.ENOC 






,irop 


SI.ONCER 




.ASCII 


(• ERROR' 




.ENDC 






.BYTt 







.EVEN 




UAASRI 


ASP 


R0SAVe(R9l 




BCC 


UAJMP 


UANJMPI 


TST 


(M.4)* 




JMP 


•(R4)* 


UAJNPl 


H0» 


•N4,R4 




JMP 


•(R4)« 


UAtST0| 


TST 


R0SAVE (R9( 




SEO 


UAJMP 




BR 


UANJMP 


UATST2I 


TST 


R23AVt|R9l 




BPt 


UAJMP 




BR 


UANJMP 


UATSTAI 


TST 


•SP 




SMI 


UA21 




JHP 


•(R*)* 


UAt0l 


MOV 


R2l>(SPI 




JSR 


R4,rPPSAV 




.WORD 


SIR 


UA23I 








,HORO 


REVRSE 




,HORD 


UATSTA 



IR0 IS abS<b) if too big. FCOaT 

IGO INTO POtISM MODE 
ICURRENT PROOUCT IS A 
■CURRENT ANSHER IS 1 (ON STK) 
(SHIFT Bi branch if bit IS 
ICET CURRENT PRODUCT ONT OSTACK 
IHUCTIPLT INTO CURRENT ANSWER 
ITEST IF OONti BRANCH IF SO 
iTUO COPIES OF CURRENT PRODUCT 
ISOUIRE IT 

lAND POT RESUUT SACK 
IPOUISH JUMP TO 17S 
ISTORE ANSWER INTO FAC 
iTEST SIGN Bi IF * JUMP 
(PUSH 1 ONTO STACK 

lANS ■ 1/ANS |F S NEG 
ANSWER TO FAC 

lANO GET OUT 



tSH|P OVER JUMP ADDRESS 
IPOLISW MODE JUMP 



iTEST SIGN or B 

■ POLISH JUMP IF B * 



■PUSH int s on stack 

iFtOAT B 

■ REVERSE TOP TWO ON STK 
■TEST TOP STK, BR TO ERR IF 



^V<^ 



.SICI. 


MACXll 


V021 


22.NAR.; 


'3 15141 PAGE 44.12 




3379 


314192 


314212 






.NORO 


CALOC 


3360 


014194 


316046 






,HORO 


P«5H 


33St 


014156 


300000G 






,WORO 


SMUR 


3302 


014160 


314224 






.WORD 


CEXP 


3383 


014162 


315066 






iHORO 


FPPRES 


3364 


014164 


000167 


179776 




JMP 


OPRATOR 


3389 


014170 


312600 




REVRSE 1 


MOV 


(SP)*|R0 


3386 


014172 


312601 






MOV 


<SP)*|R1 


3387 


014174 


312602 






MOV 


(SP)*,R2 


3388 


014176 


312603 






MOV 


ISP|*|R3 


3389 


014200 


010146 






MOV 


"i.'ISPI 


3390 


014202 


010046 






MOV 


R0,.(SP) 


3391 


014204 


310346 






MOV 


R3,.|SP) 


3392 


014206 


310246 






MOV 


R2|.(SP) 


3393 


014210 


300134 






JMP 


»(R4)4 


3394 


014212 


312765 


000000G 


000092 CALOGI 


MOV 


• A|,0G|R3SAvetR9) 


3399 


014220 


000167 


177140 




JMP 


F(iN0K 


3396 


014224 


312769 


330030G 


303052 CEXP^ 


HOV 


•fXP,K3SAVE(RSl 


3397 


014232 


000167 


177126 




JMP 


FUNOK 


3398 
3399 

3400 


014236 


000167 


179930 


CRRP04I 


JMP 


ENRPOl, 










1 IFnOF 


SNOSTK 


3401 


014242 


300167 


176544 


ERRHKll 


JMP 


ERRMI« 


3402 










,EN0C 




3403 














3404 


314246 


300167 


176272 


ERRSXAt 


JMP 


ERRSX9 


3409 


314252 


112102 




FNFNI 


HOVB 


(Ht)*|R2 


3406 


014294 


122127 


000299 




CMPB 


|Ht)»,»,LP*R 


3407 


014260 


001372 






BNE 


EHRSXA 


3408 


014262 


366502 


000004 




ADD 


PIJI.(R>I|R2 


3409 


014266 


320604 






CMP 


SP,R4 


3410 


014270 


103762 






81,0 


ERRP04 


3411 


314272 


311200 






"OV 


(R2)tR0 


3412 


014274 


301511 






SEO 


ERRUFN 


3413 


314276 


310046 




FNSUAPI 


MOV 


R0l.(SP) 


3414 


314300 


304767 


179076 




JSR 


P?.EVA(, 


3419 














3416 










.IFNOF 
Bis 


SNOSTN 


3417 


014304 


103426 






FNSTR" 


3418 










.ENOe 




3419 














3420 


314306 


312600 






MOV 


l§PI*lR0 


3421 


314310 


112002 






HOVB 


(R0)*|R2 


3422 


014312 


100900 






BMI 


ERRACl 


3423 


014314 


300302 






3UAB 


R2 


3424 


314316 


192002 






9ISB 


(R0|4|R2 


3426 


314320 


361502 






ADO 


<R9),H2 


3426 














3427 










.IFNOf 


INBSTH 


3428 


014322 


321227 


177777 




CHP 


(R2),li,$VAR 


3429 


314326 


301749 






BEO 


ERRMXi 


3430 










,ENOC 




3431 














3432 


314330 


322227 


177779 




CMP 


IR2)*I», SCALAR 


3433 


314334 


301401 






BEO 


,♦4 



■ CALL ALOO FUNCTION ON *, RESULT TO FaC 

■PUS" Lo't*' ONTO STACK 

ICALC 9«L0G(>) 

ICALC EXP(8.L0C(Ani RESULT TO F*C 



■ROUTINE TO REVERSE TOP ? 
■FLTPT NUMBERS ON STACK 



IRP MOW CONTAINS THE OEF POI'lTER, 



(RESTORE THE OEF POl.'TER, 

(GET THE VARIABLE F"PM THE OEF, 



■ IP THE OEF VARIABLE IS STRp'C A^O 
■THE VALUE ISNT THEN ITS AN rRRO", 



P7_3 



a»SICL lACXll Vaai 22in»R»73 tSHt PiOE 44. tJ 



]4]4 


n4»6 


ni2« 






HOV 


|N2|,HZ 


3435 


914349 


e20694 






Chp 


SPiR4 


3436 


914342 


103735 






8L0 


ERRP04 


3437 


914344 


311246 






«0V 


(R2),.(SP) 


3438 


914346 


916522 


900040 




"OV 


F»Cl<H5),(R2)« 


3439 


914352 


911246 






MOV 


|R2)i«ISP) 


3442 


914354 


916512 


900042 




«ov 


F*e2(HS|,(R2) 


3441 


914369 


300490 






■R 


fNREPI, 


3442 














3443 










.IFNDF 
MOV 


JNOST" 


3444 


914362 


916690 


000002 


rNSTRI 


2|SPliR0 


344!i 


914366 


112092 






MOVB 


(R0l*lR2 


3446 


91437B 


100451 






am 


ERR4C1 


3447 


914372 


900302 






SU4B 


R2 


3446 


914374 


152092 






aiss 


(RB)»|R2 


3449 


914376 


361592 






400 


(R9),H2 


349e 


914499 


922227 


177777 




CMP 


(R2|«|f,SVtR 


3451 


914494 


301316 






BNC 


ERRMXl 


3452 


914496 


326227 


900002 


177777 


CNP 


2|R2)|>>1 


3453 


914414 


001491 






BEO 


.44 


3454 


914416 


911292 






KOV 


(R2).K2 


3455 


914429 


911293 






NOW 


(82), R3 


3456 


914422 


912612 






NOV 


<5P)«,(R2) 


3457 


914424 


910316 






HOV 


R3,(SP) 


3451 


914426 


910246 






"OV 


R2..(SP) 


3459 


914439 


911202 






HOV 


("21. ''2 


346B 


914432 


909292 






INC 


P2 


3461 


014434 


901412 






BEO 


FNNEWN), 


3462 


914436 


909203 






INC 


R3 


3463 


014440 


301094 






BNE 


FNOUNN 


3464 


914442 


116622 


990901 




HOVB 


1(9P),(R2|* 
(SP|*,IR2) 


3469 


014446 


112612 






HOVB 


3466 


914450 


000414 






BR 


FNREPW 


3467 


914452 


112322 




FNOLNNI 


HOVB 


(R3|*i|R2)t 


3469 


914454 


111312 






HOVB 


(R3)ilR2) 


3469 


914456 


162793 


990002 




SUB 


• 2,R3 


3470 


914462 


995726 




FNNEVINUITST 


(5H» 


3471 


914464 


919602 






MOV 


SP,R2 


3472 


914466 


309203 






INC 


RJ 


3473 


914470 


901494 






BEO 


FNRCPl, 


3474 


914472 


900302 






SNiB 


R2 


3475 


914474 


110223 






HOVB 


R2,|R3)4 


3476 


914476 


300392 






swts 


P2 


3477 


014599 


119213 






HOVB 


R2.(R3) 


3479 










,ENOC 




3479 














3489 


914592 


121027 


000243 


FNBEPLI 


cmpb 


(R0)|P,COHHt 


3481 


914596 


901007 






BNE 


FNNOCOM 


3482 


914510 


122021 






CMPB 


(R0)*llRl)* 


3493 


914512 


001671 






BEO 


FNSN4P 


3494 


914514 


900167 


173972 


CRRtGll 


JHP 


CRRARb 


3495 


914529 


900994 




CflRUrNi 


lOT 




3486 










iIFNOF 


SI,ONGER 


3487 


914922 


343129 


116 




liSCII 


'UFN' 


3489 










lENOC 




»SICL 


H4CX11 


V921 


22«HAR. 


73 ISMl P«GE 44.14 




3489 










.JFOF 


$l,ONCtR 


3499 










.ASCII 


'gNOEflNEO FUNi 


3491 










lENOC 




3492 


914525 


990 






.BYTE e 


1 


3493 










■ EVEN 




3494 


914526 


121927 


300237 


rNNOCOHICMPS 


(HB),»,RP»R 


3495 


914532 


391379 






BNE 


EHR4C1 


3496 


914534 


319046 






"OV 


R»,.(SP) 


3497 


914536 


122921 






CHPS 


IROI'llRlU 


3499 


914540 


3B1369 






BNC 


ERRAGl 


3499 


914542 


122027 


900254 




CMPB 


(P0)»l»,EQ 


3598 


914546 


301362 






SNE 


crrag; 


3501 


314550 


910146 






MOV 


Rii'lS") 


3502 


914552 


319091 






"OV 


R9|R1 


3593 


014554 


094767 


174622 




JSP 


'C,EV»l. 


3594 


914569 


193492 






ses 


1*6 


359S 


914562 


395993 






CWR 


»? 


3596 


914564 


399491 






BR 


1*4 


3597 


014566 


912693 






"OV 


(SP)»,R5 


3599 


914570 


121127 


900201 




CMPB 


(l»tl.»,EOI. 


3599 


914574 


901224 






BNE 


ERRSK* 


3619 


914576 


912601 






"OV 


|SP)»,R1 


3511 


914690 


312600 






"OV 


(5P)*rR0 


3512 


914602 


114046 




FNRLUPl 


HOVB 


.(R.0(|.(SP) 


3513 


914694 


114966 


309991 




"OVB 


•(RBIlKSP) 


3514 


914610 


312632 






"OV 


<5P)*.R2 


3915 
3516 

351? 


914612 


?6l5a2 






too 


(R5),H2 










,IFnOF 


SNOSTK 


3919 


914614 


921227 


177777 




CMP 


(R2),»,SV»R 


3519 


914620 


911416 






BEO 


FNRSTR 


3529 










lE^OC 




3521 














3522 


914622 


922227 


177775 




C"P 


(H2)*i»,SCtL4R 


3523 


914626 


301401 






BEO 


.♦4 


3524 


914639 


311232 






"OV 


(R2),"2 


3525 


914632 


212662 


390902 




MOV 


ISP)*,2IR2I 


3526 


914636 


■112612 






"OV 


(SP)»i(RJ) 


3927 


914649 


900426 






BR 


FNCHK 


3529 


914642 


912612 




FNRSSCI 


MOV 


(SP)*,(R2) - 


3929 


314644 


919046 






"OV 


R0,.(5P| 


3539 


314646 


311290 






"OV 


<H2),"0 


3931 


914650 


161992 






SUB 


(H5),K2 


3532 


014652 


309292 






INC 


R2 


3533 














3934 










ilFNOF 


iNOSTN 


3935 


914654 


390411 






BR 


FNRCOM 


3936 


314656 


309722 




FNRSTRI 


TST 


(R2)* 


3937 


314669 


926227 


900002 


177777 


CMP 


2IR2)i«.l 


3539 


914666 


901765 






BEO 


FNRSS; 


3939 


914670 


311232 






"OV 


(R2).M2 


3949 


914672 


312612 






"OV 


(SP)«,(R2I 


3941 


914674 


319946 






MOV 


R0,.(5P) 


3942 


314676 


311230 






HOV 


(H2),"0 


3943 










,ENDC 





)ST4CK THE OlO VAUUE »N0 REPLACE IT 
|«n" THE NE" VALUE 



IRCSTORE THE OEF POINTER, 

IGCT THE VARIABLE FROM THE OEF, 



I IF THE OEF VARIABLE IS mUHEPIC ANO 
I'THE VALUE ISNT THEN ITS AM FRRO", 
I IF THE VAR ISHT A STRING SCALAR 

ITHEN 00 THIS, 

|R3 WOU CONTAINS THE OLD VALUf, 
I0(H?) NOW CONTAINS THE NEU VALUE, 
|0(SP) NOM CONTAINS THE 1L0 VALUE, 

ITOPISTK) IS A TEMP FOR VAR ADDRESS, 
|R2 »0V CONTAINS THE NEW VALUE', 

iBPA'iCU IF THE NEW VALUE IS "ULLi 

iSRA'ICH IF THE OLO VALUE IS "'ONNULL, 
lOLO VALUE IS NULL, NEW [S NCT", SOI 
IMAKE AN ABS BACKPTR TO THE VAR, 
KTHC »'E" VALUE IS NOW PROTECTEO) 
lOLO ANO NEW ARE BOTH NONNULL SOI 
iPUI OLO BACXPTR INTO THE NEW V»LUE, 

IGET RIO OF THE TEMP, 



I (CHECK NULL STRINGI) 

(SET THE BACKPTR OF THE OL!) VALUE 

ITO'ITS CURRENT STACK AOnfiESS, 



py/ 



^^dT 



iSICl, 


MACXll 


V021 


22»M>R>73 


39«4 








3»4S 


3147B« 


009200 




3946 


014702 


001404 




3»47 


014704 


000302 




994S 


014706 


110228 




3549 


014710 


000302 




3550 


014712 


110220 




3S91 


014714 


012600 




3952 


014716 


124027 


000295 


3593 


014722 


001327 




3594 








3999 








399« 


014724 


019703 




3557 


014726 


001411 




3558 


014730 


01)346 




3999 


014738 


028327 


177777 


3960 


014736 


081802 




3961 


014740 


008167 


179794 


3962 


014744 


000167 


176212 


3963 








3964 








3969 


014790 


000167 


179212 


3966 








3967 









19141 
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fnhconI INC 
Ho 


Rl 


rNRSNUl, 


SUiB 


R2 


MOVB 


R2,|Rai* 


SU4S 


R2 


HOVB 


R2,(R01* 


rNRSNULIXOV 


(SP|*,R0 


FNCHKt CMPB 


•(RB)i«iUP*R 


BNC 


FNRUUP 


iI^'NOF 
TiT 


SNOSTK 


R3 


BEb 


FNNUMSR 


NOV 


R3|«|SP) 


CMP 


R?, #177777 


9NC 


.♦« 


JMP 


SOPRATR 


JHP 


STPRO 


,ENDC 




rNNUxCRUMP 


OPRATOR 


,EOT 





ICMECK NUH STRING 



^H(o 



lASICL 


MACXll 


V021 


22*NARi 


3968 








3969 








3»7B 








3971 








3972 








3973 








3974 








3979 








3976 








3977 


014794 


012602 




3978 


014796 


089716 




3979 


014768 


081413 




3980 


014762 


089769 


008840 


3581 


014766 


001821 




3582 


314770 


016946 


000042 


3983 


014774 


004467 


000114 


3984 


019008 


080808C 




3989 


019002 


016060 




3586 


019004 


915066 




3587 


019006 


000418 




3588 


019010 


089769 


000040 


3989 


015014 


081406 




3990 


019016 


009726 




3991 


019020 


004467 


000070 


3992 


015024 


000008S 




3993 


8119026 


019066 




3994 


019038 


080244 




3999 


019032 


300112 




3596 









19141 PACE 49 



1 SUBROUTINE 


iFIXgp' CALLED 


8v JSP PC 






"ATCHES TYPES OF 0(SP),2(SP| ANO FAC1(R9) ,F4C2(H!>) 






R8, 


,K1 


U«lU!En 






R2 


OESTOOVtn 






"3, 


,R4 


UMUStO 






RS 


MUST Pni"T TO USER AREA 






SP 


SOES NO lEEPER AFTER JSR 


FIXUPI 


HOV 
TST 
BEQ 
TST 


ISP)«,R2 
(SP) 

FIXTST 
FAC11R9) 








BNE 


FlXREt 




iCONI C0OES»NONJCR0 HEANS FLOATING, 




NOV 


FAC2(H9),«i 


rSPl 


!•••• 




JSR 


R4,FPPSAV 








,UORD 


SIR 








lUORD 


POP 








,UORO 


FPPRE5 








9R 


FlXCLi 






FIXTSTI 


TST 


FAei(R91 








BEO 


FlXREi 




lOONO COOESm MEANS INTECEB. 




TST 


(SP)* 




I»«»* 




JSR 


R4,FPPSAV 








,UORO 


tlR 








,HDRD 


FPPRES 






FIXCLHt 


CLi 






ICONO !;0OES«N0NiER0 HEAN<! FLOATING, 


FIXRETI 


JNP 


(H2) 







^V7 



:-t^ 



lAStCt 


HACXll 


V021 22>NAf|i 


JS97 






35»8 






3»99 






}t0il 






36B1 






]tS2 






3609 


0UB34 


112102 


3604 


019036 


100407 


3609 


015040 


000302 


36^6 


015042 


1521S2 


3617 


015044 


961902 


3606 


019046 


1112200 


360« 


0190:> 


020027 177775 


3610 


015054 


183402 


3611 


019056 


000261 


3612 


019060 


000207 


3619 


019062 


000241 


3614 


019064 


000207 


9615 







19141 PASE 46 



SUBROUTINE IFLINC 



I. 

I 

1 

I 

I 

I 

FtlNEI 



rixt 



"ove 


("l)*l"2 


BMI 


f^E 


9U«B 


112 


BIS8 


(ltl|*,R2 


ADO 


("SI,"! 


HOV 


(H2)*,RB 


CHP 


l)0,«,SCALAI( 


81.0 


fi,x 


SEC 




UTS 


»c 


etc 




«TS 


PC 



CABLED B» JSP PC 

riNOS THE »0"RfSS OF THE LINE NO 

"ErEPENCED BV (fll) IN R2, 

IF THE SVMPOl. TABLE PEFEPENCE IS NOT A LINE 10, 

SETS CARPy, 0TUE««1SE, THE CAPPY IS CLEA", 



<^vr 
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3616 
3617 
36ia 
3619 
3620 
3621 
3622 
3623 
3624 
3629 
3626 
3627 
3626 
3629 
3630 
3631 
3632 
3633 
3634 
3639 
3636 
3637 
3639 



019066 316900 000044 

019072 016901 000046 

019076 016902 000090 

019102 316503 300092 

019106 016546 000094 

015112 000204 



019114 010069 

015120 Z1816S 

015124 010265 

015130 010369 000092 

015134 312665 008094 

015140 080134 



00046 

08098 



1 ROUTINE ' 


FPPRESI CALLED !►! POLISH MODE 


1 


RESTORES RB THRU R4 SAVED 9Y FPPSAV 


1 


ANO RETURNS IN NORHAL EXEC HOOE 


FPPRESi MQV 


R»SAVE(R5I,R0 


MOV 


RlSAVi<R9),Rl 


HOV 


R2SAVEtR9),R2 


HOV 


R3SAVEIR5),R3 


HOV 


R4SAVt(R5),.(SPJ 


«TS 
1 »•-<•••»•- 


R4 



I ROUTINE ' 

I 

1 

FPPSAV I HOV 
HOV 
HOV 
HOV 
HOV 
J«R 



FppSAV' CALLED BV JsP P4 

SAVES R0 TUSH R4. ANO RETURNS IN 

POLISH HdOE 
R0iR0SAVCIR5) 
R1,R1SAVE(R5) 
R2,R2SAVE(R9) 
R3,R3SAVE1R5) 
|SP(»|R4SAVE(R5) 
•(R4)* lENTER POLISH HOOE 



a-/"? 
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3«39 


















3640 








1 etnaTT (seT2BYti • ctr byte 


OUT oF hInC Buffer usInC 


3641 








1 SET 


POINTER 


1 i><2)i 






364J 


















3»43 








I CALLI 


•CBUFF, 


, HPR, BASE3, 


iRl 




3644 










•[BASE 


OFFSET or GET PTR'.J.HS 


364$ 










JSR 


PC.OEIBTI 






3646 


















3647 








1 USES 


RBlBlil 


)2iR3 






3«4a 


















364» 








i ?^r 


RN CHAR 


, IN R0, 






3690 








aiT isi 


CL" IF CHAR- 


, OBTAINEO 


3691 












SET IF Bgrr- 


, UAS 


EMPTY (NO CHAR',) 


3*92 


















3693 


B19142 


012703 


000004 


OEtlSYTIXOV 


•8«ETiiR3 






3694 


01914* 


000402 






BR 


0ET8YT 






369JS 


ai9l9B 


012703 


000006 


OET2BYTIM0V 


•aCET2,R3 






3696 


819194 


012702 


177776 


OEtBYTl 


NOV 


•PS.Rll 




(STATUS 


3697 


ai9i*g 


011246 






NOV 


(R2|i*ISP| 

»PR7,(»2) 






3698 


0t»l*2 


012712 


000340 




HOV 




iHtOMEST PRIORITY 


3699 


01916* 


0*0103 






ADO 


PtiBS 






3661 


019170 


021961 


000010 




CHP 


(RS),flPUT(Rl) 


lANTTHINO IN BUFF? 


3661 


0X9174 


001412 






BEO 


B«FEHP 






36*2 


019176 


113300 






HOVB 


•|R3)*iRP 




ISET BYTE 


3**3 


019200 


009243 






INC 


•(R3) 




IPT, TO NEXT BYTE 


3**4 


019202 


0213*1 


000002 




CHP 


iRSIiBENOIRl) 


lURAP AROUNOT 


36*9 


019206 


101402 






BLOB 


NOURP 






3*** 


019210 


01*113 


000000 




MOV 


BJTRTlRll, 


IR3I 


|PT, Tfl NEXT BYTE TO GET 


3**7 


019214 


"12612 




NOHRPI 


MOV 


|SP)*llR2l 




■STATUS BACK 


3»*a 


019216 


000241 






CLC 






ISIGNAI SUCCESS 


3**9 


019220 


000207 






RTS 


PS 






3*70 


019222 


012*12 




BUrEHPI 


MOV 


(SP)*,|R2I 




(STATUS BACK 


3*71 


019224 


000261 






SEC 






ISH0« faiuure 


3*72 


019226 


000207 






RTS 


Pf 






3*73 



















J16^ 
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3674 








3679 








367* 








3*77 








3*7B 








3679 








3680 








3*81 








3*82 








3683 








3684 








3*89 








3*8* 


019230 


010246 




3687 


019232 


004767 


177704 


3688 


01923* 


103409 




3*89 


019240 


014102 


000012 


3*90 


019244 


?03011 




3691 


019246 


012*02 




3*92 


019290 


000207 




3*93 


019292 


016100 


000012 


3*94 


01929* 


001423 




3*99 


0192*0 


0090*1 


000012 


369* 


019264 


ilB02«t 




3497 


019266 


300747 




3*98 


019270 


010046 




3699 


019272 


B1020B 




3700 


019274 


B04767 


003314 


3701 


019300 


103001 




3702 


019302 


300000 




3703 


019304 


II12400 




3704 


01930* 


^09061 


000012 


3709 


019312 


116902 


000077 


370* 


019316 


012772 


000101 019360 


3707 


019324 


000790 




3708 








3709 


019326 


114902 


000077 


3710 


019332 


?32772 


004000 019360 


3711 


019340 


201003 




3712 


319342 


012772 


000101 019360 


3713 


019390 


000001 




3714 


019392 


004747 


000324 


371-9 


019396 


000729 




371* 








3717 








3718 


019360 


177960 




3719 


0193*2 


177990 




3720 









It— r^—-—!"^r——-i— --——-— •^—1!—"— 

I 

I GETCHAR • RETURN A (HAR, IN R0 QR UAIT UNTIU YOU CAN 

I 

I CALLI ICBUFF, HUR, BASEl.Rl 

I JSR PC,GEICHAH 

I 

I USES RSi (R0>R1iR2) 

I 

I RETURNS CMAR, IN R0 

I IF PAPER TAPE HEADER EOT FOUNO, EXIT TO 'READY'', 

I 

GEtCHARlHoV 

GETCHll JSR 

BCS 

MOV 

BGT 
CETXl MOV 

RTS 
NOCHARI MOV 

BEO 

CLR 

SEC 

BR 

HOV 

MOV 

JSR 

BCC 

HALT 

MOV 

CLR 

MOVB 

MOV 

BR 



XCHtRt 



rZi"<SP| 

PC.GEtlBYT 

NOCHAH 

BFSPEP(R1I,H2 

XCHAR 

ISP)*,R2 

PC 

SrsPEC(«l),R0 

REENAB 

BFSPECCRll 

CETX 

R0,<(SP| 
R2,R0 
PCiPUTBYT 
■ *4 



ISOTHINC THERE YET 

ICHECK IF HEADER STOPPED 

10 OR ^ IS OKi BRA>ICH IF CHAP 



ICMECK EOF OH EXTRA CHAR 



IPUSH OLD CHAR 
iPOSITtON >IE«T 



(HAKE SURE IT COT IN( 
IGET BACK OLO CHAR 



IRE-CNABLE INPUT DEVICE 
I (CARRY IS CLEAR) 



ICHECK BUSY BIT 



(SP)»,R0 
BFSPEJIRl) 
ldEV(H9),R2 
«1,01.»ITA8(R21 
CETX 
I RE>ENABLE PROM A DCAO START 
REENASt MOVS iaEV|H9),H2 

BIT (004000, •ITAe|R2) 
BNE GCUAII 
MOV •10t,HTA8<R2) 
GCUAITl HAIT lHAlT FOR AN INTERRUPT 

JSR PO.IOHAIT IHASTE TIME 
BR GETCHl 

I table OF Input device status registers 

ITABl ,HORO TKS 
,HORO PHS 



^2^"/ 
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3721 








3722 








9729 








9724 








372» 








972« 








3727 








372« 








3729 








373B 








3731 


015964 


010265 


000022 


3732 


ai597B 


012702 


177777 


3733 


315374 


010265 


300024 


373* 


0154^0 


310269 


000026 


3735 


0154B4 


121127 


300259 


3736 


015410 


001049 




3737 


315412 


005201 




373B 


015414 


004767 


173762 


373» 








374« 








J74X 


015420 


1)9442 




9742 








3749 








3744 


015422 


004767 


000146 


374S 


015426 


005765 


300040 


974» 


015432 


001097 




9747 


015434 


016565 


000042 


3748 


015442 


110499 




3749 


015444 


112102 




3758 


015446 


120227 


000237 


3751 


015452 


001422 




3752 


015454 


120227 


000249 


3753 


015460 


001020 




9754 


015462 


004767 


179714 


9755 








3756 








9757 


015466 


1(9417 




3756 








9759 








3760 


015470 


004767 


000100 


3761 


015474 


005765 


000040 


3762 


015500 


001014 




9763 


015502 


016565 


000042 


3764 


015510 


100410 




9765 


015512 


122127 


000297 


9766 


015516 


001001 




9767 


015520 


000207 




976a 


015522 


000167 


175016 


9769 








9770 








9771 


015526 


000167 


175260 


3772 








3773 








3774 


015592 


000167 


174960 


3775 









'SETVAH' SuaROUTtNC 

TA|« SUSROUTtNE AEAOS A VAHlAStE NAHC OR 

AN ARHAr EtEMENT, AND ADDRESSES THAT 

VARIABLE \1 CDRE, SD TWAT A SUBSEQUENT 'ST0V4RI 

CALL »ILU STORE THE TAC IN THE VARIABLE, 

DESTROrS rACl ANO FAe2', 

CALLE? by JS» PC.OETVAR 

Rl POINTS TO TME CODE NAMIKO THE VARIABLE 



0(0826 



CEtVARI 


HOV 


r2,VARSAV(r5) 




MOV 


•.1,R2" 




HOV 


R2,SSISAV(R5) 




HOV 


R2,SS2SAV|R5) 




CMP( 


(Rtll'.LRAR 




BNE 


NOSUBS 




INC 


R» 




JSR 


PSiEVAL 




.IfNor 


SNOSTK 




BCS 


ERRMX^ 




,ENoe 






JSR 


PC, INT 




TST 


rAet(M5) 




BNE 


ERRSSl 




HOV 


rAe2|H5),SSlSAV(n5l 




BHI 


ERRSSl 




Hova 


|R1)*|R2 




CMPB 


R2,»,HPAR 




BED 


NOSUBS 




CNPB 


R2,t,;0HHA 




BNE 


ERRSX3 




JSR 


RC.EVAL 




.ifnof 


SNOSTH 




BCS 


ERRHX3 




,ENOC 






JSR 


p5i1nI 




TST 


rAei(H5) 




BNE 


ERRSSi 




HOV 


rAC2(H5),SS2SAV(<>5l 




BMI 


ERRSSl 




CHPB 


(H1)*|"«,RP4R 




BNE 


ERRSX9 


NOSUBSI 


RT3 


P5 


ERRSX9I 


JHP 


ERRSX5 




.IFNOr 


SNOSTH 


ERRNX9I 


JHP 
.ENOC 


ERRHIX 


CRRSSII 


JHP 


ERRSS2 



^3"^ 
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3776 
9777 
9776 
9779 
9780 
3781 
3782 
3783 
3784 
3785 
3786 
3787 
3788 
3789 
3790 
9791 
3792 
3793 
3794 
3795 
3796 
3797 
3799 
3799 
3608 
3601 
3602 
3803 
3834 
3635 
3606 
3607 
3608 
3609 
9610 
3811 



015536 
315540 
315542 
315544 
015546 
015550 
015552 



015554 
015560 
015564 
015566 
315972 



«12209 

305722 
010922 
305722 
iI10922 
305022 
300207 



INITBf . INIT, BgrrtR HUos, 



CALLI Hjv 
JSR 



(CHOR, ACI0q,],R2 
PCjINlTBr 



USES R2iR9 

LEAVES R9 POINTING To HdRO AFTER lA^T IN BgFF, HDR, 



NITBFl HOV IR2)»iR9 

TST (R21* 

HOV R3,(R2)4 

TST (R2)* 

HOV R3,(R2)'> 

CLR IR2)* 

RTS PC 



IBUFF, START AODfl, 
IPT, TO 9GET1 

IPT, TO aPUT 

IBFSPEC 



316500 00(016 

312720 000225 

310(19 

310065 0(0014 

300207 



INI7SCR • SCRATCH USER AREA 



CALL! JSR 

USES H( 

NiTSCRIHoV 
HOV 
HOV 
HOV 
RTS 



PfllNlTSCR 



C9DE(h5),hR 
•,EOr,(R0)« 
R0,(R5) 

R(,L0FREEIR5) 



^S-J 
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3112 

3at3 

Jil« 
3»15 
3116 
3817 

3eia 








SUBROUTJNE > 


INTI C»tLEO BV JSR PC . ^.,„ , 
COMPUTES INtiriOi CONVERTING THE RESULT 












TO « 1 


(KORO INTESER. IF POSSIBLE 


015974 
315680 
819612 


?16500 
001452 
004967 


0008*0 
003264 


Ntl 


«0V 


rAei(H5),HB 

INTRTSf 

R$,S1VRES 


ISCT HIOM ORDER WORD IN "0 
ULRFAOY »N INTEGER 
jS»Vt BE5ISTEHS 


3»l» 

3»za 


0196B6 
819610 


1910001 
04270* 


1*0177 




HOV 

eic 


R*iRt 
»1**177,R0 


[EXTRACT EXPONENT 


3821 


815614 


020027 


040280 




CdP 


R8, 848200 


(CHECK ASS VALUE < 1 


3822 
3823 


815620 
015622 


103473 
020027 


046800 




CMP 


INT7 

R0, 846000 


(CHECK INTEGER BV TRUNCATION 


3824 


S19626 


10103? 






BHl 


INTRTS 


(YES, RETURN 


3825 
3826 
3627 


015638 
015632 
819636 


005002 
16270* 
0*3*34 


043(00 




CUR 
SUB 
8CT 


R2 

«4360*iR0 

INT9 


(CHECK MORE THAN 19 BITS INTfCER 
(YES, PRODUCE FLT INT ANSHEH 


3828 


019640 


!'«0301 






8U<B 


«1 




3829 
3838 


015642 

815644 


105001 
196501 


000*43 




CL«* 
B|S8 


r»e2«i("9i,Ri 


(Rl IS 16 BITS OF MANTISSA 


3831 


015690 


092701 


18**0* 




81! 


<l*B0V8iRl 


(SET HIOOEN »IT 


3*32 
3833 
3834 


015654 

015696 

819660 


000241 

006001 
8*9700 






CLC 
TST 


Rl 

R8 


(GET 15 BITS OF ABSOLUTE VALUE 
(TEST ALREADY INTEGER 


3835 
3838 
3837 
3838 


019662 
815664 
015666 
815670 


00208S 
006201 
009902 

062700 


008200 


INtll 


8ce 


INTI* 
"1 
R2 
•20*|R8 


(YES 

(SHIFT MANTISSA 1 RIGHT 
(ADO CARRYBIT TO R2 
(INCREMENT EXPONENT 


3839 

3848 


015674 
015676 


302773 
305765 


000040 


INtlAI 


BIT 

TST 


INTI 
F«Cl|R9) 


(LOOP UNTIL OONE 
(QRIiilNAL NUMBER NEG 


3841 
3842 


019702 
019704 


100005 
389702 






8Pt 
TST 


INT2 
R2 


(NO 

(ANY BITS iEROEDJ 


3843 
3844 


019706 
019710 


001402 
009201 






INC 


INTIB 
"1 


(ADJUST FOR NEGATIVE 


3845 


019712 


102447 






BVS 


INT9 


(OVERFLO" 


3846 


015714 


005401 




INtlBI 


NEC 


Rl 




3847 


015716 


310165 


000042 


<Nr2t 


HOV 


R1,F«C21RS) 




3848 


015722 


009*65 


000040 


INt2«l 


Ct" 


FACKHSl 




3849 


015726 


000207 




INtKTS 


«TS 


P? 




38S0 
3891 


015730 


02*027 


00220* 


lNt9l 


Cup 


R8, 82280 


(CHECK Done 


3852 


015734 


002*09 






ecE 


INT6 


(YFS 


3893 
38S4 


015736 
019740 


000261 

0*6182 






SEC 

»ou 


R2 


(SET CARRY BIT 

(CREATE PATTERN OF BITS TO CLEAR 


3899 


019742 


0827** 


**(20* 




400 


•200iK0 




3896 
3897 


01*746 
015750 


e»«77» 

01698* 


000042 


INT6I 


BR 
H0» 


INT9 
F»C2(K»)iR» 


(SAVE OLD FAC2 IN CASE NEG ARC 


3898 


015794 


040269 


000042 




BIC 


R2,r«C2(R»l 


(CLEAR BITS 


3899 


015760 


009769 


000040 




TST 


F»C1(K9I 


(CHECK NEG ARC 


3860 
3861 


019764 
015766 


100360 

030200 






BPU 
BIT 


INTRTS 
R2,R0 


(NO, DONE 

(CHECK EXACT INTEGER ALREAOY 


3862 


019770 


001796 






BEO 


INTRT? 


(YES, RETURN 


3863 


019772 


0*4467 


0000001: 




JSR 


R4,$P0LSH 


(NO, MUST SUBTRACT 1 


3864 


015776 


018*46 






,UORO 


PUSH 


(PUSH FAC 


3869 


016000 


016*72 






,UORO 


pysHi 


(PUSH Floating i 


3866 


016002 


000000G 




,UORO 


ISBR 


(SUBTRACT 



^6'i 



BASICL HACXll V02t 22>MAR>73 19)41 PACE 92«1 



3867 


016004 


316060 




3868 


016006 


015726 




3869 


016010 


009701 




387* 


016012 


100403 




3871 


016014 


305069 


000*42 


3872 


016020 


00*740 




3873 


016022 


012769 


177777 000042 


3874 


01603* 


0**734 




3875 


016032 


312769 


143600 008040 


3876 


01604* 


0*9069 


000042 


3877 


016044 


00073* 




3878 








3879 


016046 


316546 


000042 


3880 


016052 


016546 


000040 


3881 


016056 


0**134 




3882 


016060 


012665 


000040 


3883 


016*64 


("12665 


300042 


3884 


01607* 


0*0134 




3885 


016*72 


009046 




3886 


016074 


012746 


040200 


3887 


01610* 


00*134 




3888 








3889 








3898 








3891 








3892 








3893 








3894 








3899 








3896 








3897 








3898 








3899 


016102 


0*9269 


0*0*70 


3900 


016106 


189769 


000106 


3901 


016112 


001402 




3902 


016114 


0*0167 


163024 


3903 


016120 


0*5737 


0*0090 


3904 


016124 


0*1402 




3905 


016126 


0*0137 


000091 


3906 


016132 


300207 




3907 











.WORD 


POP (POP A^SHER TO FAC 




iHORO 


INTRTS (AND RETURN (OUT oF P0LI5H MpOE) 


INT7I 


TST 


Rl ' (ARSIABGl < I 




BHI 


INT8 




CLR 


FAC2(H9) (IF ♦ THEN ANS IS 




BR 


INT2A 


INTBI 


MOV 


•177777, FAe2(R5) (IF - THEN ANS IS -l 




9R 


INT2A 


INt9l 


MOV 


•143680, FACllRSI 




CLR 


FAC2(HS) 




BR 


INTRTS 


PUSHI 


MOV 


FAC2(K5I,>(SPl 




MOV 


FAC1|H9),.(SP) 




JHP 


•(R4)« 


POP( 


«0V 


(SP)*,FAC1(R5) 




MOV 


(SP)*,FAC2(R5) 




JMP 


•(R4)* 


PUSHI 1 


CLR 


-ISP) 




MOV 


•40208, .(SP) 




JMP 


•<R4)» 



(•• 
I 



I loNAIT • HASTE TIME TILL NEXT INTERRUPT 



( 

I CALL I JSR 

I 

lOUAITI INC 
TST* 
BEO 
JMP 

MTRETl TST 
BEO 
JMP 
RTS 



pCiIoHAIT 

RN0CT(R9) 

CNCFLG(R5) 

KTRET 

READY 

••58 

.*• 

••50 

PC 



(CHECK WAIT LOOP AOOR 
(SPECIAL WAIT ROUTINE 



;iSs 



BAStCL M»CXll Veai 22.««H.r3 15MI PACE 53 



39ea 








39d9 








391B 








3»11 








3912 








3»13 








39l« 








3915 








3916 








3917 








3918 








3919 








392e 








3921 








3922 


816134 


854967 


802732 


3923 


816148 


116585 


880077 


3924 


816144 


816881 


816290 


3925 


816158 


889788 




3926 


816152 


881882 




3927 


816154 


068581 




3925 


816156 


811181 




3929 


816168 


816582 


880020 


3935 


816164 


828269 


880020 


3931 


816178 


881481 




3932 


816172 


389382 




3933 


816174 


884767 


177830 


3934 


816288 


183881 




3935 


816282 


888287 




3936 


316284 


118812 




3937 


816286 


284367 


172370 


3935 


816212 


888752 




3939 


816214 


888287 




3945 


816216 


388762 




3941 


816228 


808769 




3942 


816222 


389282 




3943 


816224 


328265 


380816 


3944 


816238 


183761 




3945 


816232 


304167 


801286 


3946 


816236 


015 


012 


3947 








3945 


816241 


352114 


114 


3949 








3955 








3951 








3952 








3953 


816243 


819 


012 


3954 


816245 


000 




3955 








3956 


816246 


810744 




3957 








3958 








3959 


816258 


808182 




3968 








3961 


816252 


823714 




3962 









LINCET • EOIT » LINE INTO UINE BUFFER USING OEtCHAr 

CALLI USER ARE! BASE INfg r9 
jSR PCiLlNGET 

PRESERVES ALL REGISTERS 

RECgGNUEs '•' ANO <RUB oUT> Fqr pyS oUT »N0 <ALT «oOE> 
AND "U' FOR LINE DELETE) <CP> AS LINE ■Tt«MI\ATOR, 
THROUS AHAT ALL OTHERS BELOU ASCII 48 AND ABOVE 
ASCII 137, 



I SAVE PEGS, 

ICUHR, INPUT OEV, COOE 
ITO SELECT OEV, 



LINSETI 


JSR 


r9,SAVREG 


LINAI 


nOVB 


I0EV(H5»,R8 




"OV 


TAB3l"8),>tl 




TST 


R0 




8NE 


LINE IN 




AOO 


R5,R1 




HOV 


<i?l).?!l 


LINEINI 


NOV 


L!NE(H5),H2 


LINRUBI 


CHP 


R2|LINE|R9| 




SCO 


DOCHAK 




DEC 


R2 


OOCHARl 


JSR 


P?,GETCHAR 




ace 


COTONE 




RTS 


PC 


GOTONEI 


NOVB 


R0,(R2) 




JSR 


R3,CHKCHR 




SR 


LIMA 




RTS 


PC 




BR 


LINRUB 




BR 


OSCHAH 




INC 


"2 




CMP 


R2,C0DE(R9| 




BLO 


OOCHAH 




JSR 


RllMSGERR 




,BTTE 


CR.LF 




,IFNOF 


ILONOER 




.ASCII 


'LTL' 




lENDC 






,IFOF 


ILONGER 




.ASCII 


'LINE'TOO LONG' 




.ENOC 






,8»TE 


CH.LF 




.BYTE 1 






.EVEN 






BR 


LINEIN 


TABSI 








* 


KBHO 




.IfNOF 


SMOPTP 




* 


pRarHQ 




,ENOC 





lUSEP BASE 

IHAVE USER BUFF, NOR, 



lOON'T RUB OUT TOO MUCH 



lOON'T COME BACK iTILL YOU GOT ONE 

llNOICATE INCOMPLETE LINE (CARRY SET) 

IPUT HER IN 

jRtTURN EXEC. ONE 9F NEXT FIVE LOGS, 

)IF LINE DELETE 

(DONE (<CR>) (CARRY CLEAR) 

)MCA>!1NCLESS CHARS', 

)GOOB CHAR-, 

)CH£CK LINE SPACE OVERFLOW 



^SZ 



BASICL MACXll V821 22>HAR.73 
3969 



19141 PAGE 93-1 



cH-i"? 



BASICU M»CXll Vasi 22.M»H'.73 UMl H6i f* 



3*64 








9969 








39»» 








3»67 








396» 








3969 








397B 


016264 


005000 




3971 


016296 


009069 


000040 


3972 


016262 


t!09065 


000042 


3973 


016266 


121327 


000232 


3974 


016272 


001404 




397S 


016274 


1213J7 


006234 


3976 


016306 


001002 




3977 


016302 


06)10) 




397) 


016304 


065203 




3979 


016306 


122327 


066375 


39S( 


016312 


061416 




3961 


016314 


124327 


066374 


396! 


016321 


0«14e4 




3963 


616322 


122S27 


666376 


3964 


gtt32« 


0*146* 




396» 


ei633g 


0I6267 




396» 


016332 


015209 




3967 


016334 


112365 


000041 


3966 


016340 


112345 


006040 


3969 


016344 


11296S 


696643 


399B 


016390 


112965 


066642 


3991 


016354 


065706 




3998 


016356 


061411 




3993 


616360 


065765 


661649 


3994 


016364 


66166J 




3995 


016366 


01546$ 


699942 


3996 


016372 


a»8469 




3997 


016374 


062769 


169666 


3996 


016402 


062716 


069662 


3999 


016406 


060207 




4106 









alTEVit' 



LltEVittCI." 
CU» 
Cl.« 
CdPB 
BEQ 
CNfB 
BNC 
COM 
LEVPUUSIINC 
LEVLITl CHPB 
BEQ 
CHPB 

aeo 

CNPB 
BEO 
PT5 
LEvrLTl INC 
HOVB 
HOVB 
LEV2LT) "OVB 
tEVlUTI HOVB 
TST 
BCa 
TST 
BNC 
NEC 
BR 
LEvrNEGIiOD 
UEVPOSl 400 
ITS 



SUBROUTINE 

CilLLE? B» JSR PC.UITEV'L 

Rl POINTS TO THE COOC 

THIS SUBROUTINE !S CALLED TO EVALUATE « 

LITERAL IN THE CODE, 

R9 

rACl(H9) 

rAC2("9) 

(R3),»,PLU» 

LEVPLUS 

(H3)|6,NINUS 

LEVLIT 

R6 

R3 

<R3)*i»,tLITl 

LEVILI 

•(R3)(»irLIT 

LeVFLT 

<R3)*|»,Il,tT2 

LEV2LI 

PS 

R3 

(R3)*|rACl*l<R5) 

(H9)*|FAC1(R5I 

(R3)*|FAC2*1(R5) 

|R3)*|FAC2(R5) 

R0 

LEVPOS 

FACllHS) 

LEVrNEC 

rAC2(R9) 

LEVPOS 

•109eeB|FACl(R5) 

•2i(SP| 

PC 



BASlCL NACXll V021 22ll1A))<73 15(41 PASE 59 



cSi'r 



4901 
4662 








1 SUBROUTINE ' 


LOCoeT'. CAlLEO BV JSR PC _ _____ _,^ 


4669 












GETS LOC OF ELEMENT IN ARRAy (CHECKS SUBSCRIPTS 


4064 












R6 MUST CONTAIN SSI GETS DESTRorEO 


4005 












Rl UNUSEO 


4066 












R2 MUST Pl^r'T TO V4R GETS SET TP RESULT 


4667 












R3 MUST CONTAIN SS2 GETS OESTH"YEO 


4066 












R4 UNUSEO 


4669 












R9 MUST POl'lT TO USER AREA 


4610 












SP GOES 11 DEEPER AFTER JSR 


4611 


016419 


021227 


177775 


LOCCETI 


CHP 


(R2),«, SCALAR 


4012 


016414 


391463 






BED 


LOCALOC 


4013 


016416 


065762 


000904 




TST 


4(R2) 


4614 


016422 


169617 






BPL 


LOCSSl 


4615 


016424 


016246 




LOCALOCIHOV 


R2,-(SP) 


4016 


016426 


010446 






MOV 


R4,'.(SP) 


4017 


016436 


016346 






MOV 


R3,.(|P) 


4016 














4019 










iIFNOF 


5N6STK 


4629 


016432 


004767 


172599 




JSR 


PflONKACK 


4021 










,ENOC 




4622 














4023 


016436 


312709 


090912 




NOV 


•12. RJ 


4624 


016442 


311604 






M0» 


(§PllK4 


4625 


016444 


160401 






BmI 


1*4 


4626 


016446 


010304 






MOV 


R?,R4 


4627 


016490 


064767 


171334 




JSR 


P?, ALLOC 


4026 


016494 


012603 






MOV 


(SP)*,R3 


4629 


016496 


012604 






MOV 


(SP)»,R4 


4030 


016460 


012602 






MOV 


(SP)4,R2 


4031 


016462 


029962 


096664 


Loessii 


CMP 


R0|4|R2) 


4032 


016466 


191649 






BHI 


EHRSS3 


4633 


016470 


365763 






TST 


RJ 


4034 


016472 


106427 






3MI 


LOCN02 


4035 


016474 


099762 


666666 




TST 


6tR2) 


4036 


016569 


196436 






BMI 


ERRSS3 


4037 


016502 


020362 


006666 




CMP 


R3,6IH2) 


4036 


016S06 


101033 






BHI 


ERRSS3 


4039 


016910 


316246 


000604 




MOV 


4(R2)i«(SPt !•••• 


4046 


016514 


399216 






INC 


(SP) 1. • 


4641 


016516 


010346 






MOV 


R3,.(SP) 1* • 


4042 


016526 


012746 


000626 




MOV 


•26, .ISP) !• • 


4043 


016924 


066363 




LOCLOOPIASL 


R3 )• • 


4044 


016926 


306366 


000002 




«SL 


2(SP) (• • MVULTIPLY SS2 »■> 5S1M«X 


4046 


016532 


103002 






9CC 


,46 !• • RESULT IN R3 


4046 


016534 


066603 


000004 




ADD 


4(SP)|H3 !• • 


4047 


016546 


005316 






DEC 


(SP) !• • 


4046 


016542 


363379 






BGT 


locloop i» • 


4049 


016544 


022626 






CMP 


(SP)«,(SP)* 1* • 


4090 


316546 


30S726 






TST 


(SP)* !*••• 


4B51 


gi6»s 


066309 


\ 




• DO 


R3,R0 


4052 


316552 


305200 




L0CN02I 


INC 


R9 


4093 


016554 


006900 






»SL 


R0 


4054 














4055 










,iFnof 


1N0STH 



^r? 



BtSICL HtCXll 



22!!N«R.73 15141 



4097 

*tia 

4il9« 
4160 
4061 
4062 
406] 
4064 
4069 
4066 
4067 
4060 
4069 
4070 
4071 
4072 
4073 
4074 



a;65J6 821227 177777 

016962 3014^1 



016964 306900 

016966 016202 000002 

016972 060002 

016974 300207 

016976 300004 



016600 047923 



102 



1 CAGE 59-1 




CMC 


(R2),»,SV*» 


aEo 


.♦4 


,ENOC 




«su 


R0 


"OV 


2<R2)i"2 


too 


R0,R2 


UTS 


PC 


ERRSS3I lOT 




ilFNOr 


SI,OMCLR 


.tSCII 


\S08\ 


lENOC 




,lFor 


JliONOtR 


.ASCII 


'SUBSCRIPT OUT or POUNDS 


,ENOC 




,8TTE 




,EVEX 




.EOT 





,-PCo 



SICU 


MUCXll 


V021 


22<l1«fl«73 


15141 PACE 56 






4075 
4076 
4077 












SOURCE FILE #7 








1 SUBROUxiNE 


asTPROOl CALLED 


8V JSR PC 


4078 










LISTS 


THE USfR PROGRAH THROUGH 'PU 


407V 












B0 - R4 OESTROTEO 


4080 










RS HUST P01''T TO USER AREA 


4081 










SP GOES ?? riEEPtR AFTER JSR 


4082 


016604 


314501 


000016 


UStPROSIKOV 


C0DE1H5),R1 




4083 


916610 


112102 




UStLOOPIMOVB 


(R1)*,R2 




4084 


316612 


302142 




see 


LSTPTK 




4089 


316614 


120227 


000201 


CHPB 


R2|«.E0L 




4096 


3166Z0 


001444 




BEO 


USTEOU 




4087 


316622 


120227 


000225 


CMPB 


R2,>.E0r 




4088 


316626 


001001 




BNE 


1*4 




4089 


316630 


300287 




RTS 


R? 




4090 


316632 


123227 


000374 


CHPB 


R2,».rLIT 




4091 


316636 


103064 




8HIS 


LSTSPtC 




4092 


016640 


042702 


177400 


SIC 


»177400|R2 




4093 


016644 


310703 




"OV 


PC,R3 




4094 


016646 


3627il3 


161936 


LStPCI «00 


•KEYWOS-LSTPC. 


R3 


4095 


016692 


01S334 




UStSRCHIBOV 


R3,R4 


|R4 IS START OF KEYJORO 


4096 


016694 


112330 




"OVB 


|H3)*|R0 




4097 


016696 


100376 




SPU 


.•2 


ILOOP TILL GET END KEYWO"0 


4098 


316660 


120002 




CMPB 


R0,R2 


|COMPA»E VALUES 


4099 


316662 


001373 




8NE 


LSTSRCH 




4100 


316664 


112400 




LStKNDI "OVB 


(H4)*,R0 




4101 


316666 


100403 




BMI 


LSTCHK 




4102 


016670 


304767 


302012 


JSR 


PC,PUICH4R 




4103 


016674 


300773 




9R 


LSTKWO 




4104 


016676 


124127 


300211 


LSTCHKI CHPB 


•(Rl)l»,MEXT 




4106 


016702 


301410 




aEO 


LSTNEXT 




4106 


.016704 


122127 


000262 


CHPB 


tHl)*,»,rM 




4107 


31671B 


301337 




8NC 


LSTLOOP 




4108 


016712 


112100 




LStrNI "OVB 


|Ht).,RB 




4109 


016714 


362700 


000200 


too 


• 'A*'Aii2)R0 




4110 


016720 


006000 




HOR 


R« 




4111 


016722 


000427 




BR 


LSTCHAR 




4112 


016724 


362701 


000013 


LSTNEXTUOO 


•13, Rl 




411J 


016730 


300727 




BR 


LSTLOOP 




4114 


016732 


111102 




USTEOLI «OVB 


(K1).N2 




4119 


316734 


100010 




BPU 


LSTLIN 




4116 


016736 


120227 


000229 


CHPB 


R2,«.tOF 




4117 


316742 


301015 




BNE 


LSTBSLH 




4118 


316744 


004167 


000990 


tSTCRLPlJSR 


Rl,HSIiOOtV 




411» 


316750 


015 


012 


000 .B'TE 


CR.Lr.a 




4120 




316754 




.EVEN 






4121 


316794 


300715 




8R 


LSTLOOP 




4122 


316796 


300302 




LSTLINI SW4B 


R2 




4123 


016760 


005201 




INC 


Rl 




4124 


016762 


151132 




BISB 


(Rl)l?2 




4125 


016764 


305301 




DEC 


Rl 




4126 


016766 


361502 




400 


(R5|,R2 




4127 


016770 


321227 


177775 


CHP 


(R2)i», SCALAR 




4128 


316774 


103763 




81.0 


lstcrlf 




4129 


316776 


012700 


000134 


LSTSSLHIHOV 


•!\,RB 





^<i/ 



ISICU 


MACXll 


Va21 


22.H«R»79 


19|41 P»OE 94»1 




4191 


017002 


004767 


001700 


LStCH4«|JS« 


p;,pui?n»R 


4131 


017006 


000700 






BR 


LSTLOOP 


4192 


017010 


120227 


000374 


tStSFEeiCMPB 


R2,»,ri.lT 


4193 


017014 


001429 






sea 


tSTFLlT 


4194 


017016 


120227 


000376 




CMPB 


R2,0,II.1T2 


419S 


317022 


103426 






8L0 


LSTILl 


4196 


017024 


S01412 






SCO 


USfTlLZ 


4197 


017026 


112100 




tStTEXTIXOVS 


("1)*,R0 


419B 


017030 


001667 






BEO 


LSTLOOP 


419» 


017032 


804767 


001690 




JSR 


Pg,PUTCHtR 


4140 


017036 


000773 






BR 


LSTTEX! 


4141 


017040 


109069 


000049 


LStlLlI 


CURB 


F»C2*l(R9) 


4142 


017044 


112169 


000042 




MOVB 


(Rl)*,r*C2(R5) 


4143 


017091 


000404 






BR 


LITILB 


4144 


017092 


112169 


000049 


U$tll2l 


HOVB 


(Rl)«|r*C2*l(R9) 


414» 


017096 


1121*9 


000042 




"qvB 


(R1)*|PAC2<R9) 


4146 


017062 


009069 


000040 


IStltSI 


CLR 


PACKRSI 


4147 


017066 


000410 






SR 


LSTFLB 


4146 


017070 


112169 


000041 


tStrLlTIMOVB 


(R1)*|F*C1*1(R!) 


414» 


017074 


112169 


000040 




»OVB 


lRl)*ir»Cl(R!| 


41»8 


017100 


112169 


000049 




MOVB 


(Rl)*irAC2*l(R9) 


4191 


017104 


112169 


000042 




MOVB 


(Rl)«irAC2(R9) 


4192 


017110 


0(4767 


000610 


usrruBi 


JSR 


Pe,NUHbUT 


4193 


017114 


000167 


177470 


LSTJHPI 


JMP 


LSTLOOP 


4194 


017120 


0a«302 




LStPTRI 


SU4B 


R2 


4199 


017122 


192102 






BISB 


(Rl)*,R2 


4196 


017124 


061902 






400 


(R9),f<2 


4197 


017126 


021227 


177779 




CMP 


|R2),l>, SCALAR 


4196 


017132 


103030 






BHIS 


LSTVAI* 


4199 


017134 


011202 






KOV 


("21, "2 


4161 


017136 


002409 






BUT 


LSTLNO 


4161 


017140 


010269 


000042 




HOV 


R2irA52(R») 


4162 


017144 


009169 


000040 




CLR 


rAeit"9) 


4163 


017190 


000414 






BR 


LSTLNX 


4164 


017192 


110269 


000049 


LStLNOI 


HQVB 


R2,rA52*l(R9) 


4169 


017196 


109069 


000042 




CURB 


rAC2(H9) 


4166 


017162 


000302 






SUIB 


R2 


4167 


017164 


110269 


000040 




HOVB 


R2,F4Cl(R9) 


4166 


017170 


109069 


000041 




CURB 


rAei*i(R9i 


416V 


017174 


862769 


043600 000040 


400 


«4960ilir»Ct(R9) 


4170 


017202 


004767 


000916 


LStlNXI 


JSR 


PC.NUHOUT 


4171 


017206 


012700 


000040 




HOV 


»BU,RB 


4172 


017212 


0I0673 






BR 


LSTCHAR 


4173 


017214 


116200 


000010 


IStVtRI 


MOVB 


10(R2I|R0 


4174 


017220 


004767 


001462 




JSR 


PC.PUTCHAR 


4179 


017224 


116200 


000011 




MOVB 


11IR2)|R0 


4176 


017230 


001402 






BEO 


.*♦ 


4177 


017232 


004767 


001490 




JSR 


PS.PUICHAR 


4178 














4179 










iirop 


INOSTK 


4160 










BR 


LSTJMP 


4161 










,ENOe 




4162 










ilPNor 


INOSTK 


4163 


017236 


021227 


177777 




CHP 


(R2),»,SVAR 


4164 


017242 


001324 




■— 


BNE 


LSTJMP 


iSlCU 


"ACXll 


V021 


22bH4R,79 


19141 Pk&l 96>2 




4169 


017244 


012700 


000044 




MOV 


•>S|RV 


4166 


017290 


300694 






BR 


lstchar 


4167 










lENOC 


' 


4166 















p-&^ 



P-6 B 



n> 



BASICU HACXtt V0it 22tn«l<<73 



4189 








4190 








4191 








419J 








419J 








4194 








4195 








4196 








4197 








4198 








4199 








4200 








4201 








4202 








4209 


017252 


004767 


000112 


4204 


017296 


101413 




4209 


017260 


004757 


171722 


420« 


017264 


004767 


000100 


4207 


017270 


101406 




4208 


017272 


000804 




4209 








4210 


017274 


051923 


117 


4211 








4212 








4213 








4214 








4215 


017277 


000 




4216 








4217 


017300 


004767 


000064 


4218 


017304 


101372 




4219 


017306 


010069 


000074 


4220 


017312 


016600 


000002 


4221 


017316 


011202 




4222 


017320 


062702 


000003 


4223 


817324 


110023 




4224 


017326 


122323 




4225 


01733B 


112223 




4226 


017332 


009300 




4227 


017334 


003375 




4228 


017336 


016600 


000002 


4229 


017342 


110013 




4230 


017344 


160003 




4231 


017346 


010600 




4232 


017350 


009720 




4233 


017352 


110043 




4234 


017354 


000300 




4235 


017356 


110043 




4236 


017360 


009303 




4237 


017362 


010366 


000002 


4238 


017366 


000207 




4239 








4240 








4241 


017370 


016900 


000074 


4242 


017374 


010003 




4243 


017376 


066600 


000004 



19141 PiOE 97 

.irNOf INOSTH 



STRIMG or CH4B4CTESS 



SUBROUTINE IntKESTH' CALICO BV JSP PC 

BAKES A BASIf ST'tNS rPOH 
n0 OESTPOft" 

UNusro 

MUST POIMT TO A »0"0 HMrCH CONTAINS 3 UESS 

THAN THE AOOHESS Or THE TIPiT CHARACTEP 
DESTPOYtO 
UNUSCO 

HUST Pn|»iT TO USER AREA 

ON E>iTRY 0<SP) MUST CONTAIN • CHARACTERS 
ON EXIT »(SP) CONTAINS POINTER TO THE SIRING 

IHILL NEU STRING FITJ 

I YES 

iNC, CARSAGE COULECT 

ITPY AGAIN 

IFITS THIS TIME 



HAKESTRIJSR 
BLOS 
JSR 
JSR 
8L0S 

ERRSOVI lOT 



Rl 
R2 

R3 
R4 
RS 
SP 

PSiHAKETRT 

HAKCOT 

PCiDNPACK 

PJlHAKETRY 

HAKGOT 



.IPNOF 
.ASCII 
lENDC 

,1'or 

, ASCII 
lENOC 
.BYTE 
lEVEN 

HAKCHKI JSR 
BHI 

HAKGOT I NOV 
NOV 
NOV 
ADD 
HOVB 
CHPB 
HOVB 
DEC 
BGT 
HOV 
MOVB 
SUB 
HOV 
TST 
HOVB 
SNAB 
HOVB 
OEC 
HOV 
RTS 



SkONCtR 

\sso\ 



SbONGCR 

'STRING STORAGE OVtRFLOW 



PfiMAKETRT 

ERRSOV 

R0,HISTR(H9) 

2|SP),R0 

(R2llK2 

•3,R2 

R0l(RJ)* 

(R3)«i(R3l* 

|H2)»1<R3I* 

R0 

,'* 

2(SP)|R0 

R0,|R3) 

R0|R3' 

SP|l)0 

(R0I* 

R0,<<R9) 

R0 

R0|>(H9) 

R3 

R3,2(5P) 

PC 



ISAVE NEW HIGH STRUG AOOR 
|R0 NOU CONTAINS t CHARS, 

|R2 >'0U CONTAINS ADDRESS OP CHARS, 
IRS PUTS CHARACTCHS IN 



I SUBROUTINE TO CHECK ROOH ENOUGH KoR STRImG 
HAKETRYIHOV H|STR(H9IiR0 

HOV R0|R3 

ADO 4ISPI|R0 



<?^V 



BASICU HACXtl VB21 22iHAR.73 19141 PAGE 97>1 



ADD 

chp 

RTS 



4244 


017402 


062700 000804 


4249 


017406 


i'20069 000012 


4246 


017412 


000207 


4247 






4248 






4249 






4250 






4251 






4252 






4253 






4254 






4255 






4296 






4297 






4298 






4299 


817414 


010346 


4260 


017416 


010446 


4261 


017420 


006304 


4262 


017422 


006103 


4263 


017424 


006304 


4264 


017426 


086103 


4269 


017430 


062604 


4266 


017432 


089903 


4267 


017434 


062609 


4268 


017436 


006304 


4269 


017448 


306103 


4270 


017442 


000207 


4271 







,ENOC 



• 4,R0 
R0lHirREEIR9) 

PC 



SUBROUTINE 'HpYTENf 



MPVTENI 



CALLED 8Y JSP PC 

HULTIPLirS R3,R4 BY OECIHAL 10 

R0,RliR2 UNUSED 

R3,R4 IS THE 32 BIT UNSIGMEO INTESE' TO HULTPUY 

PS UNUSED 

SP GOES 4 DFEPE" AFTER JSR 



HOV 


R3,.(SP) 


HOV 


R4,.(SP| 


ASL 




"OL 




ASL 




ROL 




ADO 


(SP)»,R4 


ADC 




ADD 


(SP)*,R3 


ASL 




ROL 




RTS 


Pf 



^66 



BiSICu HACXll Vtil 22!'>l«l)>73 tSMl PASE 5S 



4J72 
«!73 
4!74 
427S 
4276 
4877 
4278 
427V 
4281 
4281 
4282 
428] 
4284 
428» 
428* 
428t 
4288 
42S« 
4298 
4291 
4292 
4299 
4294 
429S 
4296 
4297 
4298 
4299 
4J8B 
4381 
4302 
4383 
4304 
4309 
4306 
4307 
4308 



017492 
017494 
0174*( 

017464 
017472 
017476 
817900 
017904 
017906 
017911 
017514 
01791* 
017920 
017522 
017924 
017530 



017444 111700 000049 
01749* 0»040t 



112108 
1090*9 

01694* 
012765 
06»565 

008404 
916946 
112100 
081403 
004767 
008773 
009201 
086201 
006301 
t<12669 
080201 



001187 
808894 
000096 
080894 

008094 



001172 



HSC • OUTPUT A UNE TO TTY 

MSGOOEV • OUTPUT A mNE TO CUB"', OUTPUT OEV, 

CALLI JSP PllHSE (HS60!>ev) 
.ASCII "tMESSAOEJ" 
,BYTE 
.EVEN 

iHtTURK UE"C 

USES R0 

SET UP LINE MITM NuhBEr o^ BYTEs TEpBINAtCD 
8V A BYTE or (00, 

HStERRI 

.irNor siiONGCR 

MOVS t'XiRV 

BR H8GC0N 

.ENDC 

HSSI N0V8 (H1)«|R8 

HSBCOMt CLRB CNaFI.C|R9| 

NOV C0I,UHN(R9),.(SP) 

"OV »5LMNTTY,C8l.UMN(»5) 

AOO R»,C0I,UNN(R5) 

BR FRSTOyt 

HSSODEVtxOV COLUMN (R9),.(SP I 

OOMSGI HOVB |Rt)*|R0 

BEO LINDUN 

TRSTOUTUSR PC.PUTCHAH IPUT CHAR, TO 

BR OOHSS 1 00 ^'EXT CHAR 

UlNOUNI INC Rl ITO INSURE RETURN ON 

A5R Rl I EVEN UORO BOUNDARY 

ASL Rl 

MOV (SP)»,COUyNN(B5) 

RTS Rl 



ISAVE FOR TEHP SWITCH 



BAStCL HACxll V02t 22iHAR>73 19141 PASE 99 



^a 



430y 








4310 








4911 








4312 








4313 








4314 


017532 


312746 


008237 


4319 


017536 


089703 




4316 


017940 


001413 




4317 


017942 


100803 




4318 


017944 


006809 




4319 


017946 


386804 




4328 


017998 


085216 




4921 


017992 


090927 


040800 


4922 


017556 


301010 




4929 


017560 


306334 




4924 


017962 


386109 




4325 


017964 


305316 




4326 


017966 


300771 




4927 


017978 


089704 




4928 


017972 


301967 




4929 


017574 


309726 




4990 


017976 


300207 




4331 


017600 


309702 




4992 


017602 


001429 




4939 


017604 


100416 




4934 


017606 


386289 




4339 


017618 


086804 




4336 


017612 


086209 




4337 


017614 


086804 




4338 


017616 


086209 




4939 


017620 


086804 




4940 


017622 


086283 




4941 


017624 


086804 




4942 


017626 


362716 


008884 


4343 


017692 


084767 


177996 


4344 


017636 


309382 




4345 


017640 


300744 




4346 


317642 


304767 


171902 


4947 


217644 


S35232 




4948 


017698 


000740 




4949 


017652 


386203 




4998 


017654 


386804 




4951 


017656 


390327 


177000 


4992 


317662 


381373 




4959 


317664 


385716 




4954 


017666 


383802 




4355 


317670 


(112716 


088881 


4356 


317674 


321627 


088377 


4957 


317700 


18i402 




4358 


317702 


312716 


000377 


4359 


017706 


110966 


008B01 


4368 


017712 


312603 




4361 


317714 


380903 




4362 


317716 


006003 




4369 


017720 


086004 





1 SUBROUTINE 


'NORM' NORHALIiES 1>'TECER CONTAINED IN 






R3 ANO R4, MULTIPLIED 9Y EXPONENT 






IN R2, ANSWER IS IN R3, R4, 






CALLED B» JS" "C 


NORMI 


"OV 


•237, '(SP) 




TST 


R9 




BEO 


LiTTST 




BPt 


LITNOHM 




ROR 


R3 




ROR 


R4 




INC 


(SP| 


LITNORMIBIT 


R9, (40000 




BNE 


LJTOK 




ASL 


R4 




ROL 


R9 




OEC 


(SP| . 




an 


LITNOMM 


UITTSTI 


TST 


R4 




8NE 


LJTNOHM 




TST 


<SP)* 




RTS 


PC 


tlTOKI 


TST 


R2 




eco 


LITSTO 




BHI 


LITOIY 




ASR 


R9 




ROR 


R4 




ISR 


R9 




ROR 


R4 




ASR 


R9 




ROR 


R4 




ASR 


R9 




ROR 


R4 




AOO 


»«i(SP) 




JSR 


PC.MPYIEN 




OEC 


R2 




BR 


LITNOKM 


UTOIVI 


JSR 


PCiDIVTEN 




INC 


R2 




BR 


LITNOHM 


LITSHRt 


ASR 


R9 




ROR 


R4 


LiTSTOi 


BIT 


R9,»177B00 




BNE 


LITSHH 




TST 


ISP) 




BUT 


1*6 




MOV 


«ll(SK) 




CMP 


<SP),»377 




BLOS 


1*6 




MOV 


»977,(SP) 




MOVB 


R9,l(5P) 




MOV 


(SP|t,R9 




SNAB 


"9 




ROR 


«3 




ROR 


fl4 



A67 



a»SlCL MACXll VB21 22sfl»H«73 15MI 



4J64 J177Z2 J«e2Br 
436» 



P»GE i9->X 

"TS PC 



5i^i^ 



BASICU HACXll Vgil 22<MtR>73 19(«t P«eC 60 



4366 








4367 








436a 








4369 








497e 








4371 


817724 


804S67 


001142 


4372 


817738 


312701 


020706 


4373 


817734 


800446 




4374 








4375 








4376 








4377 








4376 








4379 








4360 








438i 








4362 








4383 








4384 


817736 


817600 


808088 


4389 


817742 


862716 


880002 


4386 


817746 


804567 


801128 


4387 


017752 


818001 




4388 


817754 


305765 


800040 


4389 


017768 


801410 




439e 


817762 


10002$ 




4391 


817764 


862765 


100000 


4392 


817772 


801016 




4J93 


017774 


809065 


800042 


4394 


028088 


801016 




4395 


020882 


809769 


800042 


4396 


820006 


180013 




4397 


820010 


809465 


800042 


4398 


820814 


102005 




4399 


020816 


ai276S 


844000 


44ee 


820824 


889069 


000042 


44ei 


820030 


912780 


808059 


4482 


028034 


808485 




4423 








4494 








44JIS 


820836 


320127 


328570 


4406 


328042 


801483 




4487 








4488 








4489 


820044 


012700 


000040 


4410 


020850 


304711 




4411 








4412 








4413 


820052 


316904 


000042 


4414 


820096 


009002 




4415 


828068 


016983 


800049 


4416 


828064 


301010 




4417 


828066 


312730 


300837 


4418 


828072 


809704 




4419 


828074 


801016 




4428 


828876 


812700 


000060 



1 'NUMOUT' SUBROMTINt 






CAtLEK BV JSR PC, NUMOUT 






OUTPUTS AN UNSICMEO NU"8£R FHO" THE FAC 






VIA THE SUBROUTINE PUTCHAR', 


NUNOUTl 


JSP 


R9,SAVRE5 




"OV 


•PUTCMAR,Rl 




BR 


NUMSTT 


) 'NUMSON' SUBROVTtNC 






CAtLEU BY JSR PC, NUHSGN 






•UORO OUTPDT 






WHERE OUTPUT IS THE OUTPUT ROUTINE, 






WHICH HAT BE PUTCHAH OR SAVCHAR, 






OUTPUTS A SIGNED NUHRE" ''MM THE 






FAC V|A THE OUTPUT ROUTINE, 


NUHSGN) 


»oy 


•<SP)|R0 




AOO 


•2,|SPI 




JSR 


R5|SAVREG 




HOV 


R0>R1 




TST 


FAeilRS) 




BEO 


NUHFIX 




BPL 


NVMPOS 




HOD 


»1990B0,FAC1(R5) 




BNE 


n(;hneo 




Ct» 


FAC2IR9) 




SNC 


NyMPOS 


NUMFIXI 


TST 


rAC2(R9) 




BPt 


NUHPOS 




NCG 


FAC2(S9) 




BVC 


NUMNEG 




"OV 


• 44000, FACURSl 




CI." 


rAC2(R9) 


NUMNCCI 


MOV 


•'•|R0 




BR 


NgMPR!> 


NUMPOSI 








ilFNor' 


SNOSTR 




CMP 


R1,»SAVCHAR 




BEO 


NynSTT lOON'T OUTPUT BLANK FOR S 




,E»OC 






MOV 


«B\.l»» 


MUMPRSI 


JSR 


POilRll 


NUmSTTI 








Mgy 


FAe2(H9|,R4 IR4 • 1,0" ORDER "A>|TISSA, 




CLR 


n2 jR2 » OECIHAL EXPONENT', 




«0V 


FACHR9(,H5 |R3 i HIGH ORDER MANTISSA 




BNE 


NVHFtT 




"OV 


•J7,R» 1R8 « BINARY EXPONENT, 




TST 


R4 




BNC 


nQhshft 




"OV 


•10, RB 



^6 9 



iSICU 


HACXll 


V021 


22.««R»73 


19M1 PASE 60.1 






4421 


120102 


004711 






JS* 


p;i(Rt) 




4422 


020104 


000207 






BTS 


PC 




4423 


020106 


010300 




NUMruTi 


MOV 


R3,R( 




4424 


020110 


006300 






»SL 


R( 




442S 


020112 


109000 






CLUB 


R( 




442» 


020114 


!I00300 






SU4S 


RB 




4427 


020116 


162700 


00»i't 




SUB 


•171, H0 




442e 


020122 


042703 


1776(( 




BIC 


•177600, R3 




4429 


020126 


0S2703 


0((20( 




BIS 


•200|H3 




4430 


020132 


009300 




NUMSHFT 


IDCC 


R( 




4431 


020134 


006304 






ASI. 


R4 




4492 


020136 


016103 






ROt 


R3 




4433 


020140 


030327 


(40((( 


NUMNORHiaiT 


R3, (40000 




4434 


02(144 


00177! 






BCO 


NUMSHri 




4439 


020146 


009700 






TST 


R( 




443t 


020190 


003016 






SET 


NVMBIG 




4437 


020192 


006203 






ASR 


"3 




4438 


020194 


0*6(04 






ROR 


R4 




«43« 


020196 


0(62(3 






ISR 


R3 




4441 


020160 


006004 






RQR 


R4 




4441 


020162 


006203 






tSR 


"1 




4442 


020164 


006(04 






ROR 


R4 




4443 


020166 


0(6203 






*SR 


R3 




4444 


020170 


0(6004 






ROR 


R4 




444» 


020172 


062700 


00(0(4 




•00 


• 4,R0 




4446 


020176 


004767 


177212 




JSR 


PCiMPTTEN 




4447 


020202 


009302 






DEC 


R2 




444» 


020204 


000799 






BR 


NUMNOMM 




4449 


020206 


020(27 


000004 


iUH9ii;i 


CMP 


RB,»4 




445B 


020212 


003407 






BUE 


NUMOK 




44S1 


020214 


0(4767 


170730 


NUMOIVI 


JSR 


PQ.OIVTEN 




4492 


020220 


0092(2 






INC 


R2 




4493 


020222 


000746 






BR 


NyMNOHM 




4494 


020224 


0092(( 




NUMAtNl 


INC 


R0 




4499 


020226 


906203 






4SR 


R3 




4496 


020230 


006004 






ROR 


R4 




4497 


020232 


020027 


000004 


NUHOKI 


CMP 


R0I04 




449) 


020236 


0(2772 






BUT 


NIJMAUN 




4499 


020240 


02(327 


09((0( 




CMP 


R3, 690000 




4461 


020244 


1(3363 






BHtS 


NyMOIV 




4461 


020246 


062704 


0(1290 




too 


•;29«,R4 


iROgMOINC, 


4462 


020292 


103at( 






3CC 


NORNOOV 




4463 


020294 


009203 






INC 


R3 




4464 


020296 


020327 


090000 




CMP 


R3, #90000 




4469 


020262 


103404 






BUO 


NURNDOV 




4466 


020264 


012703 


004000 




HOV 


14000, R3 




4467 


020270 


009(04 






CUR 


R4 




4466 


020272 


009202 






INC 


R2 




4469 


020274 


012700 


0(((06 


NORNOOVINQV 


06, R0 




447B 


020300 


01(34» 




NUMOtCI 


MOV 


R3,.(SP) 




4471 


020302 


000316 






SU48 


(SP| 




4472 


020304 


006(16 






ROR 


ISR) 




4473 


020306 


006(16 






ROR 


ISP) 




4474 


020310 


006(16 






ROR 


<SP) 




447S 


020312 


042716 


177760 




SIC 


•177760, (SP) 





a^iD 



ASICU 


MACXll 


V021 


22>MtRa73 


4476 


020316 


062716 


0(((6( 


4477 


020322 


042703 


174(00 


4470 


020326 


0(4767 


177(62 


4479 


020332 


0(930( 




4490 


020334 


003361 




4481 


020336 


310603 




4482 


020340 


062703 


0(0014 


4483 


020344 


020227 


177776 


4484 


020390 


002404 




4489 


020392 


001446 




4486 


020394 


020227 


000006 


4487 


020360 


001491 




4488 


020362 


314300 




4489 


020364 


0(4711 




4490 


020366 


312700 


000(96 


4491 


020372 


3(4711 




4492 


020374 


012704 


0000(9 


4493 


020400 


014300 




4494 


020402 


0(4711 




4499 


020404 


0(9304 




4496 


020406 


003374 




4497 


320410 


012700 


008109 


4498 


020414 


0(4711 




4499 


020416 


012700 


0(0(93 


4900 


020422 


3(9702 




4901 


020424 


10(003 




4902 


020426 


012700 


000099 


4903 


02(432 


0(9402 




4904 


02(434 


0(4711 




49(9 


020436 


012700 


000060 


4906 


020442 


162702 


000012 


49(7 


020446 


1(0402 




49(8 


020490 


309200 




4909 


020492 


Z00773 




4910 


020454 


004711 




4911 


020496 


210200 




4912 


020460 


062700 


000(72 


4913 


020464 


0(4711 




4914 


020466 


0((439 




4919 


020470 


012700 


00(09^ 


4516 


020474 


•0(4711 




4917 


020476 


012700 


0(0060 


4918 


020902 


004711 




4519 


020904 


312704 


000006 


4920 


020510 


010600 




4921 


020912 


022027 


000060 


4922 


020516 


301(02 




4923 


020920 


009304 




4}J4 


mm 


300773 




4*29 


020924 


^20402 




4926 


020926 


0(3(02 




4527 


020930 


310204 




4928 


020932 


0(9204 




4929 


020934 


009202 




4930 


020936 


309202 





19|41 



41 PAGE 60.2 




ADO 


•<(,(SP) 


BIC 


•174000, R3 


JSR 


P?,MPTTE»I 


DEC 


R0 


BGT 


vyHOIG 


MOV 


SP,R3 


ADO 


■14, RJ 


CMP 


R2,«.2 


BUT 


N^Mf-Ml 


sEa 


NUMPMi 


CMP 


R2,«6 


BUT 


NgMFMS 


NUHFMtl MOV 


»(R3),R0 


JSR 


• f',,RB 


MOV 


JSR 


PC.IRJ) 


MOV 


• 9,R4 


NUMUPII MOV 


.<R3)|R0 


JSR 


Rg.tRl) 


DEC 


R4 


BGT 


NUMUPl 


MOV 


•IE,R« 


JSR 


PC,(R1) 


MOV 


•14, R0 


TST 


B2 


8PU 


,*10 


MOV 


•<>,R0 


MEG 


R2 


JSR 


RCiI'll 


HOV 


•10, RB 


SUB 


•12, R2 


BMl 


1*6 


INC 


R( 


9R 


■ •10 


JSR 


RC,(R11 


MOV 


R2,R0 


ADD 


•>0.12,R0 


JSR 


RPidi 


BR 


NVMEXIT 


NUHrH2| MOV 


•!,,R(' 


JSR 


PC,(R4) 


MOV 


•«(,•( 


JSR 


PC,(R1) 


NUMrM3l MOV 


•»>R4 


MOV 


SP,R0 


CMP 


(R(1»,»<0 


BNE 


|46 


DEC 


R4 


BR 


,n» 


CMP 


R4,R2 


acT 


,♦6 


MOV 


R2,R4 


INC 


R4 


INC 


R2 


INC 


R2 



S>-10 



stcu 


H»CXll 


V021 


22.M«R» 


4531 


920941 


209302 




«9]2 


923942 


0)1003 




4939 


021944 


012700 


000096 


4S34 


dZtfii 


004711 




»S35 


920992 


114300 




4S3» 


020994 


304711 




4S57 








4936 


020996 


009304 




4539 


020960 


003367 




494B 


020962 


362706 


000014 


4941 


020966 


000207 




4942 








4949 








494* 








4949 


02>97» 


004967 


000276 


4946 


020974 


016901 


000060 


4947 


02060* 


110021 




494a 


020602 


010169 


000060 


494V 


020606 


009269 


000096 


499e 


020612 


000207 




4991 








4992 









19141 P«9C 60«3 

NUMLP3I oec n: 

"NE 1*10 

JSR P$i("ll 

NOV •|l<3)|"0 

JS« »C,(R1) 



DEC 


R4 


90T 


NgMtPJ 


NUHCXITIIDO 


•14, SP 


"75 


PC 


.ifNor 


SNOSTK 


SAVCHkKI 




JS» 


p9,3tyiteG 


"OV 


T2(R9|,Rt 


H0V9 


P0,("l>* 


NOV 


H1,T8|R9) 


INC 


TllR9i 


»TS 


PC 



lENOC 
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^7<^ 



-^ 





























1 PUTBYT • PUT 


BYTE INTO R|N5 suffer 










1 CAILI 


"OV 


tBuFF, HOr',] 


Rl 














"OV 


CCHAR]|R0 
















JSR 


Pf.PUIBYT 
































1 USES 


R0iRli 


)2.R3 
































1 RAISE PRIORITY SIN5E THIS 


NAY BE CALLED AT 










1 MAINSTREAH 


BUT ACCESSES 


POU'TERS THAT MAY CHAN5E AT 










1 INTERUPT LEVEL, 














1 RETURNS HIT 


* 'C B|TI CLR 


IF 


RYTE COT IN 














SET 


IF 


KO ROO" 






















!I20614 


012702 


177776 


PUTBYT 1 


"OV 


•PSiR2 








020620 


011246 






"OV 


(R2)i><SP) 




ISAVE STATUS 




020622 


012712 


000340 




HOV 


»PR7,!»21 




IREPLACE «IT" HIGHEST 




020626 


016103 


000010 




"OV 


BPUTCHD.RS 








020632 


009203 






INC 


R3 




ICANIIOATE FOR NEW POSITION 




020634 


020361 


000002 




CMP 


RJ,BENO(Rl) 




INEEO TO URAP AROUNO? 




020640 


101402 






BLOS 


NOURAP 








020642 


916103 


000000 




MOV 


BSTRTiBl),R3 




lYFSI KE" P05, AT TOP 




020646 


il20361 


000004 


NOURAPI 


CNP 


N3,BCtTl(Rl) 




I IF FQUAU TO EITHER lET pTR 




020692 


001412 






SEO 


NOROO" 




I TUE" NO ROOM 




020694 


020961 


000006 




CMP 


R3|Bi:ET2tRl) 








020660 


001407 






9E0 


NOROO" 








020662 


110071 


300010 




Hova 


RB,»SPUT(R1) 








820666 


310361 


300010 




"OV 


R3,BPgT(Rl) 




lUPOATC PTR, 




320672 


312612 






"OV 


(SP)*,(R2) 




ISTATUS BACK 




020674 


000241 






CLC 






ISICNAL SUCCESS 




020676 


300207 






RIS 


PC 








020700 


012612 




NOROOHI 


"OV 


(5P)«,(R2) 




rSTATUS BACK 




020702 


000261 






SEC 






|SH0« FAILURE 




020704 


008207 






RTS 


pg 

























^73 
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4919 
4991 

459; 

4992 

4999 
4994 

4995 
4996 
4997 
499S 

4999 
4688 
4601 
46B2 
4693 
4604 
4609 
4686 
4687 
4686 
4689 
4618 
4611 
4612 
4613 
4614 
4619 
4616 
4617 
4618 
4619 
4628 
4621 
4622 
4623 
4624 
4629 
4626 
4627 
4628 
4629 
4638 
4631 
4632 
4633 
4634 
4635 
4636 
4637 
4638 
4639 
4640 
4641 
4642 
4643 



828786 
828712 
828716 
828722 
028726 
828738 
828734 
828748 
828742 
828746 
828798 
828794 
828796 
828760 
828762 
828764 
828770 
828778 
828776 
821880 
021082 
821086 
821010 
821814 
821022 
821026 
821032 
021034 
821036 



821040 
821042 



PUTCHAR • PUT CHAR Jo CURRENT PUTPUT OEVi 
CAULI (LOAD 00EV(R9)I 

Hgv cCHAR]|Re 

JSR P5iPUlCHAH 
SAVES ALL rESSi 



TRIES TO FIT CHAR INJo pRoPER SuFfEn. 
TAILURE, 



OoES To Io«AIT 0'* 



804967 
812746 
809279 
109765 

281482 
808167 
116984 
801083 
109765 
801032 
816481 
889784 
801082 
860901 
811181 
804767 
183087 
8847S7 
889316 
001371 
1(5061 
808422 
109061 
812774 
805265 
105761 
801018 
805726 
800287 



8fet0i 

823760 



800160 
847777 
880034 
880186 

160218 
808076 

800187 

821848 



177624 

175184 

800012 

800012 
880188 
880070 
880012 



821044 824024 



pUTCHARtJSR 


r9,$AVrEC 






"OV 


•47777, »<SP) 


lIKIT TIME OUT COUNT 




INC 


PC0HJNN(»9) 






TSTB 


CNCFLIilRB) 






BEQ 


PUTCCO 






JMP 


RtAOY 




PUtCCOl 


H0V8 


0bEV(R9),R4 


(OUTPUT DEVICE COOE 




BNE 


HDRSTliP 


llF NOT TTT, CONTINUE 




TSTB 


CNOFLSIR!) 


iCHECK FOR i»0( 




BNC 


aUT018 


UF SET EXIT IHHEOIATELY 


HORSTUPIHOV 


TABl(ll4|,Rt 






TST 


R4 


HHICH DEVICE? 




BNE 


pQtit 


iNOT TTy 




ADO 


R»iRl 


iNEEn CURR', USER'S BUFF, 




«ov 


<R1),KI 


INOW, ACTUAL HEADER 


PUflTI 


JSR 


p5,puIbyt 






BCC 


ITSIN 






JSR 


PC.IOHAIT 


INO ROOHI "AIT 




OEC 


I5P) 


ITIME out 




BNE 


PVTIT 






CL"B 


SFSPE5(R1| 






BR 


OEVERH 




ITSINI 


CL»8 


BFSPECIRll 






"OV 


•i80,»TAn2|R4) 


lENAOLE INTEaUPT ON CHOS 




INC 


RN0CT(R9) 






TSTB 


BFSPECtRl) 


Il/O ERRORt 




BNE 


OfVERN 




our0i0i 


TST 


(SP). 


IPPP TIME OUT COUNT 




RTS 


PC 


IRFSTOOES RECS-, ANO RETU 


1 TABl 


. OEV, 


BUFFER HORS, (TPHO IS "FFSET lOTo USRAREA 


1 roR 


AODRi TO TPRTR, BUFF, MOR, ) 


TABU 


* 


TPHD 






.IFNDF 


SNOPTP 






* 


PFBFMO 






,ENOC 








,IFOF 

8 

,Enoc 


SNOPTP 












.IFNOF 


JNOLPT 
UPBFHU 






* 





^:>i 
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4644 
4649 

4646 
4647 
4640 
4649 
4690 
4691 
4692 
4693 
4694 
4699 
4696 
4697 
4658 
4699 
4668 
4661 
4662 
4663 
4664 
4665 
4666 



821044 177564 

821858 177594 

821892 177514 

821894 388884 

821896 847184 



821061 



22«HAR«73 
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.ENOC 








.IFOF 


SNOLPT 






,EnOC 






1 tAB2 


• OEV, 


STATUS hEC, 




TAB2I 


« 


IPS 






* 


PPS 






* 


LPS 




DEyERRI 


lOT 








, IFNDF 


SbONClR 


122 




.ASCII 
lENDC 


\(INR\ 






,IFOF 


$l,DNStR 






.ASCII 


VDEVI^E NOT RE40»\ 






,ENOC 








,BTTE 


8 






.EVEN 








.EOT 





9-16 
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4167 

4668 
4669 
4>7B 
4«71 
4472 
4673 
4674 
4675 
4676 
4677 
4678 
467V 
4681 
4681 
4682 
468] 
4684 
4685 
4686 
4687 
4688 
4689 
4690 
4691 
4692 
469} 
4694 
4695 
4696 
4697 
4698 
4699 
4700 
4701 
4702 
4709 
4704 
4705 
4706 
4707 
4708 
4709 

«ri0 

4711 
4712 
4713 
4714 
4715 
4716 
4717 
4718 
4719 



021062 ail646 

021064 312766 021132 000002 

321072 010446 

021074 010346 

021076 010246 

021100 010146 

021102 010046 

021104 010546 

021106 016605 000014 

021112 004736 

021114 012600 

021116 012601 

021120 012602 

021122 012603 

021124 012604 

021126 012605 

021130 000207 

021132 000002 



021134 012765 177775 

021142 005201 

021144 122127 000261 

021150 001402 

021152 300167 171366 

021156 000207 



I 

I w^.. .................. ...i... 

I 

I S*VRCC • S«VE tt,L RCSlSTCRS 



MUHCC FILE •» 



CAULI 



CJSR 
JSR 



I 
I 
I 
1 

I 
I 
i 
I 

SAVROll M|)\( 
MOV 

SAVRCet HOV 
MOV 
"OV 
NOV 
"OV 
"OV 
"OV 
JSR 

RCSREGI MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
RTS 

INTEXTI RTI 



p5iSUBRi3 
R5|S<VREG 



IMUST CAUL SAVhEC From suBqT^', 



PUSHES ALL rECS, and exits "ItM ACOR, o" STACK 

WHICH BRINGS Control back when subr, does irts pc, 

THEN, RESTORES REGS, ANO DOS'! 'HTS PC U-ICH RET'JRNS 10 JUST 
AFTER CALL TO INITIAL SURROUTINt ("OOIFIEO BOUERING SPECIAL) 

(SPI.'ISP) 

•iNTEXT.JISPl 

R4,.(SP) 

R3,>ISP) 

R2i<ISP) 

Rl,.(SP) 

RI,-(SP) 

R5,.(SP) 

12-,(SP),R5 

PC,»(SP)* 

(SP)*,RB 

(SP)*,R1 

|SP)*.»2 

(SP)*|R3 

(SP)«|R4 

(SP)*,R5 

Ri; 



IFCR RETURN TO SUBR, 
lOET OLD R5 
ISTACK NEXT UOC,! 



(BACK TQ CALLER OF INIT, SUSP, 



I sCANpNO • SCAN loKEN FoH '«' 



I 

I CALLI MOV 

I JSR 

I 

I USES Rl 

I 

SCANPNOIMoV 
INC 
CMPB 
BEQ 

PNOCOI RTS 



CPTR, TO BYTE BEFORE '•' 
PdSCANPUO 



•, SCALAR, UINEN0IR51 

Rl 

(Rl)*,«, POUND 

PNOGO 

ERRSX9 

R? 



P76 
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4720 








I '..........., 




4721 


1 SUBROUTINE < 


>SKIpE0L' CALLED SV JSP PC 


4722 










MOVES Rl PAST THE NEXT ^EOL' 


4723 










RO UNUSED 


4724 










Rl MOOiriEO TO REFLECT OPERATIO-J 


4725 










R2,R3,R4,R5 U^'USEO 


4726 










SP GOES Nf HEEPER AFTER JSR 


4727 


021160 


062701 


000003 


SKIP05I AOO 


f j,Rl 


4728 


021164 


005201 




SKIP02) INC 


Rl 


4729 


321166 


005201 




SKIP01I INC 


Rl 


4730 


021170 


105721 




SKIPEOLITSTB 


IRll* 


4731 


021172 


002375 




BCE 


SKIP0J, 


4732 


021174 


124127 


000374 


CMPB 


•1R1),»,FLIT 


4733 


021200 


301767 




BEO 


SI(IP0S 


4734 


021202 


101014 




• BHI 


SKIPHl 


4735 


021204 


122127 


000201 


CMPB 


|Rl)*l«,EOL 


4736 


321210 


001420 




BEO 


SKIPRTS 


4737 


021212 


124127 


300262 


CMPB 


•(R1),«,FN 


4738 


321216 


<!01762 




BEQ 


SKIP02 


4739 


021220 


122127 


300211 


CMPB 


!Rll*l«,NEXT 


4740 


021224 


001361 




BNE 


SKIPEOL 


4741 


021226 


062701 


000012 


AOO 


• 1,2, Rl 


4742 


321232 


000756 




BR 


SKIPEOL 


4743 








1 EITHER 


,imTll375|, ,ILIT2(376) OR ,TEXT(377I 


4744 


021234 


122127 


000376 


SKIPHll CMPB 


IR1I*1»,IL1TJ 


4745 


021240 


001751 




BEO 


SKIP02 


4746 


021242 


103751 




BLO 


SKIP01 


4747 


021244 


105721 




SKIPTXTITSTB 


(Rl)*' 


4748 


021246 


J01376 




BNE 


5KIPTXT 


4749 


321250 


<100747 




9R 


SKIPEOL 


4750 


021252 


900237 




SKIPRTSIRTS 


PC 


4751 












4752 












4753 












4754 












4755 


1 'SToVARf SUBROUTINE 


4756 










CALLED B» JSR PCSTOVAR 


4757 










STORES FACl, FAC3 IN THE VARIABLE OR 


4758 










ARRAT element LAST AriORESSEO BY THE 


4759 










SUBROUTINE 'GETVAR' 


4760 


021254 


316502 


000022 


STOVARI MOV 


VAHSAy(R5),R2 


4761 












4762 








.ifnof 


JNOSTH 


4763 


021260 


321227 


177777 


CMP 


(R2),l>,SVAR 


4764 


321264 


301421 




BEO 


ERRMX7 


4765 








,ENOC 




4766 












4767 


321266 


l><16500 


000024 


MOV 


SSISAV<R5),RII 


4768 


021272 


100405 




BMI 


StONOSS 


4769 


021274 


316503 


000026 


MOV 


SS2$AV(R5),R3 


4770 


321300 


304767 


175104 


JSR 


PC,L05GET 


4771 


021304 


300404 




BR 


STOCOMM 


4772 


021306 


322227 


177775 


STONOSSICMP 


(R2)«|i>, SCALAR 


4773 


321312 


J01431 




BEO 


SIOCOMM 


4774 


021314 


311202 




"OV 


(R2I,M2 



^77 



SICU 


MACXll 


V021 


22.H>Ra 


73 
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021316 
021322 
021326 


016922 

916912 
909297 


000040 

900042 




5T0C0MMI"0V 
UTS 


r»Cl<H5),(S2)* 
rAC2(N9|,<R2l 


4702 


021330 


008167 


171456 




.IPnof 
errmx7i jmp 

,ENOC 


Jnostk 

ERRnlii 



^?r 
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4703 
4704 
4709 
4796 
4797 
4799 
4799 
4790 
4791 
4792 
4793 
4794 
4799 
4796 
4797 
4799 
4799 
4000 
4901 
4902 
4009 
4004 
4909 
4006 
4907 
4009 
4009 
4010 
4011 
4012 
4013 
4914 
4015 
4016 
4017 
4019 
4919 
4920 
4621 
4022 
4023 
4024 
4025 
4026 
4927 
4020 
4029 
4039 
4931 
4932 
4033 
4034 
4939 
4936 
4037 



.IfNOF SN05TK 



021334 
021340 
021344 
021346 
021352 
021394 
921360 
021364 
021366 
021970 
921376 
021400 
021402 
021404 
021406 
921410 
021412 
021414 
921416 
021420 
021422 
921424 
021426 
921430 
021434 
021436 
921440 
021442 
021444 



016902 

321227 
iI01037 
316900 
100409 
216903 
904767 
300406 
909722 
026227 
901499 
011202 
012603 
!'12600 
310012 
.100409 
912603 
212690 
310012 
909202 
161502 
905200 
001409 
362700 
110240 
900302 
110240 
900113 
3*0167 



000022 
177777 



000026 
175024 



'STOSVAR' SUBROUTINE 



000002 



171342 



STOSVARIMQV 
CMP 
ONE 
NOV 
BHt 
MOV 
JS" 
aR 

STOSSNOITST 

177777 CMP 

SEQ 

MOV 

STONMCOIMOV 
MOV 
MOV 
9R 

STOVTABIMOV 
MOV 
MOV 
INC 
SUB 

STOVCOMIINC 
BEQ 

too 

MOVB 
SHAB 
MOVB 
STOSXI JMP 
ERRNX6t JMP 

lENOC 



CALLEC BY JSB PC.STOSVAR 

STORES A STRING VA»U8l,E AS «OORFSSEn 9Y 

VARSAV 

VARSAV(R5),R? 

IR2li»,SVA9 

ERRMX6 

SS1$AV(R5I,R9 

STOSSNO 

SS2SAV<R9),R3 

PCiUOCGEY 

stOMMCO 

(H2)* 

2(R2)|«-1 

ST0VTA9 

(R2),H2 

(SP)»,H3 

(SP)*,R0 

R0i(R21 

STOVCOM 

(SP)*|R3 

(SP|«,R0 

R0ll»2> 

1)2 

(R5),M2 

R0 

STOSX 

• 2|R0 

R2|<(N9) 

R2 

R2,4(N0) 

(H3| 

ERRMIX 



ICHECK NULL 5T»INC 



321450 305766 990002 

921454 301499 

021456 362766 100000 

321464 000167 U«132 

321470 305466 000904 

921474 102373 

921476 312766 044090 



SUBROUTINE 'SUBSTX; CAULEO Bv Jsr pc 



SU8STKI TST 

BED 

90992 ADD 

»0STK1| JMP 

SU8INTI NEC 

BVe 

00002 MOV 



2(SP) 
SUBINT 
•100090, 2ISPI 

lOOSTK 

4(SP) 

AOSTKl 
•44000, 2(SP) 



NEGATES J(SP),2(SP) THEN CONTINUCS 1" (ADOST« 

P0.R1 U^iUStO 

»2,R3 OCSTRr>rEO 

'4 "OOiriCD TO REfLECT ST»C« USICE 

'9 MUST P01"T TO USER'aREA 

SP COCS J? nCEPER ArjER JSR 



A 79 
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4a]S a21S04 ttilH 09)194 

*i39 92191* 99974S 

4949 



a" 

9R 



4(SP) 

AOSTKl 



jiro 
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4841 








4942 








4943 








4944 








4849 








4846 








4847 








4849 








4949 








4899 








4891 








4692 


921912 


316992 


399029 


4893 


921916 


919291 




4894 


921929 


i22izr 


399919 


4899 


921924 


391379 




4896 


921926 


916999 


999016 


4997 


921932 


114149 




4999 


921534 


329192 




4999 


921936 


391379 




4969 


921949 


999969 


399996 


4961 


921944 


122927 


399949 


4962 


921999 


991779 




4963 


921992 


124927 


999915 


4964 


921996 


991933 




4969 


921969 


112711 


999291 


4666 


021964 


399297 




4867 


921966 


121927 


999996 


4969 


921972 


991406 




496« 


921974 


121027 


909060 


4979 


921699 


193499 




4971 


921692 


121927 


399971 


4672 


921696 


191932 




4973 


921610 


999167 


390739 


4974 








4979 


921614 


912794 


196942 


4976 


921629 


12i097 


900101 


4977 


921624 


1M499 




4978 


921626 


12£927 


900132 


487» 


921632 


191992 




4889 


921634 


312734 


196634 


4881 


321648 


919793 




4992 


981642 


969493 




4883 


921644 


919992 




4884 


921646 


122223 




4889 


921650 


e91776 




4886 


321692 


114394 




4887 


921694 


199414 




4888 


921696 


391599 




4889 


921669 


999392 




4899 


021662 


122227 


999949 


4991 


321666 


391767 




4992 


S2167B 


999392 




4893 


321672 


122327 


399940 


4694 


321676 


301763 




4699 


321799 


199723 





'THAN' SUBROUTINE 



IRANI MOV 
MOV 
CMPB 
9Ne 
MOV 
HOVB 
CMP 
BNE 

TRiNLUPICtR 

TRANVARICHPB 
9ED 
CMPB 
SNE 
MOVB 
RTS 

TRYNUMI CMPB 
9E0 
CMPB 
81,0 
CMPB 
8Ht 

NUMJMPI JMP 

TRVKUOI »0V 
CMPB 
91,0 
CHPB 
9Ht 
MQV 
COMTABI MOV 
TRNPCI AOO 
TRVAGNt HOV 
RETRY I CMPB 
BEO 
M0V8 
BHI 
9E0 
DEC 
CMPB 
BEO 
OEC 
CMPB 
9E0 
TSTB 



IRP IS WHERE ORIGINAL TEXT IS, 
IRI IS HMERE TRANSLATED TEXT GOES, 
(PREVIOUS ITEM HASNIT A VAR, 



CALLED BY JSR PCiTRAV 

TRANSLATES FROM INPUT ASCII CODE 

TO INIERNAL CODE, CONSISTING OF TOKENS, 

LINE NUMBER RErE'EMCES, SYMBOL TABLE 

REFERENCES, AND LIBERALS, ALWAYS RETURNS, 

NO MATTER WHAT IS INPUT, 

AS NEW SYMBOLS ARE L'lCOUNTEREO, BUILOS NEW 

ENTRIES INTO TME SYMBOL TABLE, 

ERRORS ARE TRANSLATE'^ TO :,TEXr,,,-,3 

LINE|M9|,R2 

R8,R1 

(R1)»,«CR 

>•< 

C0DE(M9),R9 

«(Rt>l»(R9) 

.•4 

Tl(R9l 

(R0)»,»BL 

THANVAR 

•(R0)l«CR 

TRYNUM 

•lEOLilKl) 

PC 

|R9),»', 

NUMJMP 

(Kg),»i9 

TRYKWU 
|R9),P<9 

THYKWU 
ISNUM 

»KEYW0S»TRvPCiR4 

|Rg),<>A ICUECK ALPHA KEYWORDS 

COMTAU ITOO LOW 

(RB),><i 

C0MT4B ITOO HIGH 

«KEYA»TRNPC,R4 IJU5T RIGHT 

PC,R3 

R4,R3 lAOORESS TABLE 

R0,R2 

(H2)*i(R31* 

RETRY 

-(R31(R4 

AMATCM 

NOTKMO 

R2 

(H2)*,iBL 

RETRY 

R2 

IR3)«|«BL 

RETRY 

(R3|* 



J^7/ 



iSICL 


H4CX11 


V021 


22iM«R.73 


«896 


321702 


100376 




4S9T 


321704 


300797 




4a»a 


321706 


309332 




4899 


321713 


313230 




4ygg 


321712 


113421 




49»l 


021714 


123427 


300220 


49B2 


321720 


301540 




49e3 


321722 


123427 


300262 


49S4 


321726 


301461 




4989 


321730 


120427 


0(0211 


4916 


321734 


301905 




4907 


321736 


123427 


000297 


49ea 


321742 


001403 




49e9 


321744 


120427 


000296 


491B 


321790 


001273 
122^04 




4911 


021792 


000297 


4912 


021796 


301402 




4913 


021760 


312704 


080232 


4914 


321764 


362704 


177970 


4915 


321770 


112721 


000377 


4916 


321774 


020100 




4917 


321776 


103(76 




491B 


322300 


121(04 




4919 


322032 


301409 




492B 


322004 


121027 


080019 


4921 


022810 


001415 




4922 


322312 


112821 




4923 


022014 


303771 




4924 


022016 


109(21 




492S 


022020 


3(9200 




4926 


022022 


120427 


800(47 


4927 


022026 


3(1403 




4926 


322030 


112721 


000296 


4929 


022034 


300641 




493B 


022036 


112721 


800297 


4931 


322042 


300636 




4932 


022044 


109021 




4933 


022046 


112711 


000201 


4934 


022092 


018102 




493S 


022094 


124227 


000377 


4936 


322060 


001379 




4937 


322062 


11(412 




4938 


322064 


112742 


000377 


4939 


022070 


300207 




4940 


022072 


122027 


000040 


4941 


022076 


3(1779 




4942 


022100 


124(27 


088101 


4943 


022104 


103411 




4944 


022106 


121027 


300132 


4945 


022112 


10{006 




4946 


022114 


112002 




4947 


022116 


306302 




4948 


022120 


162702 


003200 


4949 


022124 


110221 




49S0 


022126 


300604 





19141 P4CC 66.1 



BASICU HACXll V021 22>n«R«73 19(41 



4991 
4992 

4953 
4994 
4999 

4956 
4957 
4996 

4999 
4960 
4961 
4962 
4963 
4964 
4965 
4966 
4967 
4968 
4969 
4970 
4971 
4972 
4973 
4974 
4975 
4976 
4977 
497S 
4979 
4960 
4981 
4982 
4983 
4984 
4985 
4986 
49S7 
4988 
4989 
4990 
4991 
4992 
4993 
4994 
4995 
4996 
4997 
4998 
4999 
5800 
5001 
5302 
5003 
9034 
9009 



322130 

322134 
322140 
322142 
322144 
322146 
322190 
322192 
322154 
322196 
022160 
022164 
022166 
322170 
322174 
322230 
022234 
322206 
022212 
022214 
322220 
322222 
322226 
32223( 
322232 
322236 
322240 
322242 
322244 
322246 
322252 
322254 
322296 
322262 
322264 
322270 
322272 
322276 
322338 
322332 
322334 
322336 
322310 
322314 
322316 
322320 
322324 
322326 

322332 
022334 
322340 
322342 



112740 
112740 
309301 
320100 
101013 
308429 
020100 
103(1( 
109021 
109(11 
362701 
32010( 
10900} 
00(167 
38(167 
121027 
1(1(36 
121(27 
1(3403 
309769 
301419 
112721 
320100 
103361 
121027 
301482 
112021 
30077] 
109021 
112711 
00(207 
112(02 
122027 
301779 
124027 
101(06 
121827 
103403 
300302 
192002 
3(0302 
;<11533 
122027 
3(1775 
309300 
32)365 
103033 
321327 
183033 
362703 
300767 
362733 



000116 
00(106 



177344 
800^64 
30(132 

0(0101 

30(096 

000377 

0(0(19 



0(0201 

3(0(40 

300071 
300060 



300040 

300(14 
17777S 
000084 

030010 



322346 326327 177770 177777 



BfU 


■ •2 


8R 


TRYACn 


4HJTCHI DEC 


R2 


HOV 


R2,R0 


"OVB 


R4,(R4)* 


CMPB 


R4,»,NEM 


SCO 


REMPA^K 


CMPB 


R4,«,FN 


BCD 


trhfn" 


CMPB 


R4,|»,NEXT 


BEO 


NEXriLL 


CMPB 


R4,l,SauOT 


BEQ 


OiiOTPAK 


CMPB 


R4,»,oauOT 


BNE 


TMANLyP 


QUOTPtKICMPB 


•,S0UOT,R4 


SEO 


,»6 


HOV 


•<".' •»,Sau0T,R4 


too 


«'i.,souor,R4 


HOVB 


•lTEXT,(Ri)* 


CMP 


Rl.RB 


BHIS 


ERRTRN 


STOSTRI CMPB 


(Re),H4 


9E0 


ENDOUOT 


CMPB 


(R0),»CR 


BEO 


ENOCR 


MOVB 


(RBI'lIRll* 


BR 


STOSTM 


CNOaUOTICLRB 


(RD* 


INC 


P0 


CMPB 


"4,»'! 


BEQ 


ENosoyo 


M0V8 


• (OQUOTEiIRD* 
TRANLUP 


BR 


ENOSQUOIMOVB 


•iSQUOTE. 101)4 


aR 


TRANLyP 


ENOCRt CLRB 


IRll* 


MOVB 


»,EOLilRll 


HOV 


R1,R2 


CMPB 


.(R2),4,TE«T 


BNE 


,.4 


MOVB 


R4,|R2) 


MOVB 


»,TEXTc(R2) 


RTS 


PS 


TRNrNI CMPB 


(R0)*,«BL 


BEO 


1*4 


CMPB 


-(R0)l»'t 


BI.0 


TRFNBAO 


CMPB 


|R()i«'i 


BHI 


TRFNBAO 


MOVB 


(RB)*,R2 


4SI. 


R2 


SUB 


•<A*'».2|R2 


MOVB 


R2,(R1I* 


BR 


THANLyP 


11 PACE 66.2 




TRrN8»0IM0VB 


«<Ni'1R0) 


Move 


«'F,.|R() 


DEC 


Ri 


CMP 


"1,R0 


BHI 


ERRTRN 


BR 


REMPACK 


NEXFILLICMP 


R1,R0 


SHIS 


ERRTRN 


CLRB 


(Hll* 


CURB 


!Rt) 


•00 


•11. Rl 


CMP 


Rl.RB 


BHIS 


EMRTRN 


JMP 


TRANLUP 


ERRTRNI JMP 


ERRTR7 


NOTKUOI CMPB 


iROiP'i 


BHI 


REMPACK 


CMPB 


(R0),»<A 


BLO 


R^HPACk 


TST 


Tl(R9i 


ua 


ISVAR 


REMP4CKIH0VB 


«iTEXI,(Rl)* 


CMP 


R1,R0 


BHIS 


ERRTRN 


STOTXTI CMPB 


(R8),fCR 


BEO 


CARREt 


MOVB 


I«()*l(Rl)* 


BR 


STOTXT 


CARRCTI CURB 


IRD* 


Move 


'lEOLllRll 


RTS 


PC 


ISVARI MOVB 


(R()*lR2 


CMPB 


|R()«l(BL 


BEO 


1*4 


CMPB 


•IR81.»'9 


BHI 


NOOICIT 


CMPB 


l«0),»'0 


BLO 


NODIOIt 


SHAB 


R2 


81SB 


(R0)«l«2 


SWAB 


R2 


NOOIGITIMOV 


tR9),K3 


CMPB 


|R0)*l«BL 


BEO 


<'4 


DEC 


R0 


VARSRCHICMP 


R3,L0FREE(R9) 


SHIS 


PUTITIN 


CMP 


(R3),«, SCALAR 


BHIS 


NOTIT 


100 


• 4,R3 


BR 


VARSR^H 


NOtlTl too 


■10, R3 


.IFNDF 


INOSTM 


CMP 


-10(R3),4,SVtR 



■ SAME AS INITIAL QUOTE CAR,? 



PF^ 



12 VtRS IN A HOW IS »N ERROR SC OONT 
IHASTE STMBOL SPACE ON IT, 



J^F3 



atSICU HACXll V221 ;2pnAR.73 IJMl PtOC ««•] 



5006 


922354 


001406 






0EO 


TRVSVaR 




5807 










,ENOC 






5008 
















900« 


022396 


022302 






chp 


(N3I*|R2 




9ei.0 


322360 


301357 






BNE 


varsr;h 




sen 


322362 


121027 


000044 




CHP8 


(RB),»'$ 




5B12 


022366 


001754 






0Ea 


VARSRJH 




5B13 
















9014 










.ifNor 


INOSTR 




501S 


022370 


300406 






BR 


rOUNOV 




5016 


022372 


222302 




TRySVAftlCMP 


(R3|*|H2 




5017 


022374 


3lt35t 






BNE 


varsr;h 




5016 


022376 


121027 


008044 




CMPB 


(H8),»'$ 




501» 


022402 


001346 






BNE 


varsr;m 




50Z0 


022404 


009200 






INC 


Re 




5021 










,ENDC 






5022 
















5023 


022406 


162703 


000012 


rOUNOVI 


SUB 


m,ni 




5024 


022412 


000441 






BR 


RETVAH 




5025 








PUTITIN 


1 






502$ 










iIFNOF 


INOSTH 




5027 


022414 


062703 


000014 




ADD 


•14, RJ 




5026 


022420 


020369 


000072 




CMP 


R3,tOSTR(R») 


INAKC SURE STRINGS ARE NOT THERI 


902» 


022424 


103409 






BtO 


PyTAOK 




9030 


022426 


0B4767 


000926 




JSR 


PC.UPPACK 


)|F THEY ARE, PACK TMEM UPWARDS 


9031 


022432 


020369 


000072 




CHP 


R3,L0SrR(R9) 


lANO TRY AGAIN 


9032 


022436 


103060 






BHIS 


ERR0V2' 


INO 1000 


9033 


022440 


005743 




PUTAOKI 


TST 


•(R3I 


|R3 IS ENO OF ENTRY 


5034 










,ENOC 






5035 
















9036 










iifor 


SNOSTK 




9037 










ADD 


.1,2, R3 


1 ADDRESS END OF ENTRY IN R3 


5036 










,ENOC 






5039 
















5040 


022442 


320365 


000012 




Cmp 


R3,HirREE(95) 




5041 


022446 


101054 






BHI 


ENR0V2 




5042 


022450 


010365 


030014 




MOV 


R3,L0FREEIR5) 




5043 


022454 


310243 






MOV 


R2,<(N3) 




5044 


022456 


20504} 






CLR 


-IR3I 




5045 


022460 


305043 






CUR 


•(R3) 




5046 


022462 


005043 






CLR 


•(R3) 




5047 


022464 


312743 


177775 




MOW 


•, SCALAR, .(RSI 




5048 
















5049 










iIFNOr 


tNOSTK 




9050 


022470 


121027 


000044 




CMPB 


<RB),»'l 




5091 


022474 


001010 






BNE 


RETVAH 




9092 


022476 


30920* 






INC 


R8 




9093 


022500 


312723 


177777 




MOV 


»,SVAR,(R3|t 




5094 


022504 


009123 






COM 


(R3|* 




9099 


022506 


30512J 






COM 


(R3)* 




9096 


022510 


305113 






COM 


(R3) 




5097 


022912 


162703 


008006 




SUB 


•6,R3 




9098 










,ENOC 






9059 
















5060 


022916 


010565 


000096 


HEtVARI 


MOV 


R9,THR5) 


ISCmETHInG NONiERO. 


iSICU 


HACXll 


VOJl 


22>HARa73 


15|4l PASE 66>4 






5061 


022522 


161503 




PEtLNOI 


SUB 


tR9),H3 




5062 


022524 


300303 






SUAB 


R3 




5063 


322526 


110321 






M0V8 


R3,(R1)* 




5064 


022530 


1100333 






SUAB 


R3 




5069 


022532 


110321 






M0V8 


R3,(R1)* 




5066 


022534 


020100 






CMP 


R4,Re 




5067 


022536 


101216 






BHI 


ERRTRN 




5068 


022540 


J90167 


177000 




JMP 


TRANVAR 




5069 








ISNUMI 








5070 


022544 


010046 






MOV 


R0,.(SP) 


ISAVF PTR IN CASE OF BAO NIJH 


5071 


022946 


304767 


300602 




JSR 


PC,VAU 


IFINP MANTISSA AND EXPONENT 


5072 


022592 


121027 


000096 




CMPB 


IR0|,»', 




5073 


022956 


001016 






BNE 


EXPTEN 




5074 


022560 


012600 






MOV 


(SP)*,R8 




5075 


022562 


300617 






BR 


REMPACK 




5076 


a'22564 


304167 


174654 


EflRTR7i 


JSR 


RliHSiJERR 




9077 










ilFNOr 


SLONGER 




5078 


022570 


046124 


124 




.ASCII 


MLT\' 




5079 










,ENOC 






5080 










iIFOr 


SLONOER 




5081 










.ASCII 


'LINE TOO lOMC 


rn TRANSLATE' 


5082 










,ENOC 






5083 


022573 


000 






.BVTE 






5084 










.EVEN 






5086 


022574 


000167 


156406 




JMP 


REA0r2 




5086 


022600 


004167 


174640 


ERR0V2I 


JSR 


RJ.MSOERR 




5087 










.IFNOf 


SLONCER 




5088 


022604 


352120 


102 




.ASCII 


\PTB\ 




5089 










.ENOC 






5090 










.iror 


ILONOER 




5091 










.ASCII 


'PROCHAM TOO BIG' 


5092 










.ENOC 






5093 


022607 


000 






.BVTt 






5094 










.EVEN 






5095 


022610 


000167 


196372 




JMP 


REA0Y2 




5096 


022614 


020327 


014630 


EXPTENI 


CMP 


R3, 014630 




5097 


022620 


101140 






BHI 


MAKFLIT 




5096 


022622 


30J702 






TST 


R2 




5099 


022624 


003404 






9LE 


EXPNEC 




5100 


022626 


004767 


174562 




JSR 


P?,MPTTEM 




5101 


022632 


009302 






DEC 


R2 




5102 


022634 


000767 






BR 


EXPTEN 




5103 


222636 


001131 




CXPMEGl 


BNE 


MAKFLIT 




5104 


022640 


009703 






TST 


R3 




5105 


322642 


301127 






BNE 


MAKFLIT 




5106 


022644 


320427 


177775 




CMP 


R4,», SCALAR 




5107 


322650 


103124 






BHIS 


MAKFLIT 




5108 


322652 


016903 


000020 




MOV 


LINE(H9),H5 




5109 


322656 


309301 






OEC 


"4 




5110 


322660 


020103 






CMP 


RliR3 




5111 


022662 


103452 






BLO 


MAKLNO 




5112 


022664 


121127 


300204 




CMPB 


<R1|,».G0SUB 




5113 


322670 


001447 






BEO 


MAKLNO 




5114 


022672 


121127 


000205 




CMPB 


(RD.P.OOTO 




5115 


022676 


001444 






BEO 


MAKLNO 





p?y 



^^' 



lslc^ 


MACXll 


V021 


22«HAR.73 


9116 


0227)0 


121127 


088224 


5117 


022704 


081441 




911* 


022706 


121127 


0)8242 


511» 


022712 


001436 




Slit 


022714 


121127 


0))3)6 


»12l 


022720 


001433 




9122 


022722 


005201 




9123 


022724 


009003 




9124 


022726 


009704 




5129 


022730 


802474 




9126 


022732 


020427 


0)8377 


9127 


022736 


003003 




5121 


022740 


112721 


0)0379 


912» 


022744 


000407 




5ise 


022746 


112721 


000376 


9131 


022752 


300304 




9132 


022794 


020100 




9133 


022796 


103018 




9134 


022760 


110421 




9U» 


022762 


0003)4 




9136 


022764 


110421 




9137 


022766 


005726 




913a 


022770 


020100 




5139 


022772 


10100: 




91«» 


022774 


000167 


176940 


9l«l 


023000 


000167 


17717) 


9142 


023004 


000167 


177970 


5143 


029010 


005201 




9144 


023012 


011903 




9149 


023014 


02)369 


000)14 


9146 


023020 


103813 




5147 


023022 


021327 


177775 


5146 


023026 


183403 




5149 


023030 


0627)3 


0))012 


5191 


023034 


000767 




9151 


023036 


02^304 




9192 


023040 


0)1429 




9193 


023042 


062703 


000)04 


9194 


023046 


000762 




9199 








9156 








5197 








5156 








5199 








916« 








9161 


023050 


0627)3 


000006 


9162 


023094 


020369 


000)72 


9163 


023060 


103409 




9164 


023062 


004767 


0)))72 


9169 


023066 


020369 


000872 


5166 


023072 


183344 




5167 


023(74 


0)9743 




516S 








5169 








917B 


023076 


028365 


088812 



19)41 P«se 66.9 



CHP) 


(KDi'iCAlL 


aeg 


(Mil, », THEN 


CMPB 


SCO 


MAKING 


CMP8 


(Rl>i»,lIST 


BCO 


MAKLNO 


INC 


"1 


cu» 


R3 


TST 


R4 


BUT 


MAKrilT 


CMP 


R4,i377 


BGT 


MAKE!2 


UlTiEROIHOVB 


•iILtll.Cl)* 


8R 


HAKtOK 


NAI«ei2l HOVB 


•ilU!T2,tRl)* 


LITCOMNISHAB 


R4 


_CMP 


Rl.RO 


BHIS 


TRNER4 


HOVB 


R4,(fIJ|« 


SUiB 


"i 


MAKEOKI NOVB 


r4,(RI)» 


TST 


ISP)* 


CHP 


Ri.R» 


BHI 


TRNER4 


JHP 


THANtyP 


TRNER41 JMP 


tHRTRM 


ERROVSi JMP 


ERR0V2 


MAKLNOI INC 


"I 


MOV 


(R5),H3 


LNOSRCMICHP 


R3,L07REE(R9) 


BHIS 


STOLNO 


CMP 


tR3),», SCALAR 


BtO 


IHNO 


iOO 


»12,R3 


BR 


UNOSRCH 


ISUNOI CMP 


1R3),K4 


BEO 


FpUNOUN 


40D 


<4,R3 


BR 


LNOSRCH 



STOLNOI 

ilPOf 

ADO 

lENOC 

.iP'Nor 

ADD 
CMP 
BLO 
JSR 
CMP 
BHIS 
STOAOKI TST 

,ENDC 

CMP 



SNOSTN 
•4,R3' 



JNOSTH 

«4,R3" 

R3|LI!STR<R9) 

StOAOK" 

PSlUPPACK 

R3,tOSTR<R5) 

ERR0V3" 

-("3) 



R3,HirREElR5l 



ICHECK THAT THE STMTA8 SPACE 
lis »0T OCCUPIED 8* STRIMGS 



UP IT IS, MOVE STRINGS UP 
lANO CHECK ROOM ENOUGH AGAIN 



lAOJllST SYMTAB AOORESS 



^n 
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5171 


023102 


181348 




5172 


023104 


010369 


080014 


5173 


023118 


089043 




5174 


023112 


010443 




5179 


023114 


089726 




9176 


023116 


008167 


177408 


9177 


023122 


009703 




9176 


023124 


081802 




9179 


023126 


009704 




9188 


023130 


001703 




9181 


023132 


004767 


174374 


9182 


023136 


112721 


088374 


9183 


023142 


0)8303 




5184 


023144 


320108 




5189 


023146 


103314 




5186 


023190 


110321 




5187 


023192 


080303 




5186 


023194 


110321 




5189 


023196 


000679 




9190 








5191 









BHI 


ERR0V3 


MOV 


R3,t0fREE(R5l 


CIR 


• IRsT 


MOV 


R4,.(H3) 


rOUNOLNITST 


(SP). 


JMP 


RETUNO 


MAKrtlTI 


TST R3 


BNC 


CAtNRM 


TST 


R4 


BEO 


tJTZEHO 


CAINRMI JSR 


P5,N0HM 


"OVB 


•,rLli,(Rl)* 


SHA8 


R3 


CMP 


Rl,R0 


BHIS 


TRNER4 


"OVB 


R3,(Ri)t 


SUAB 


R3 


HOVB 


R3,(R1)* 


BR 


LITCOMN 



P?9 
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5192 








5193 








5194 








519S 








5194 








S197 








5199 








5199 








ssae 








5231 


323160 


313146 




5202 


023162 


010246 




5233 


023164 


319346 




5204 


023166 


009046 




52B5 


023170 


016901 


000074 


9206 


023174 


316902 


000012 


52B7 


023200 


010269 


300074 


9228 


023204 


309016 




92B9 


323206 


154116 




5218 


023210 


001012 




5211 


023212 


020169 


300072 


9212 


023216 


101372 




5213 


023220 


313269 


000072 


5214 


023224 


309726 




5215 


023226 


012603 




9216 


023230 


012602 




9217 


023232 


012601 




92i« 


023234 


300207 




5219 


023236 


161601 




5220 


023240 


309003 




9221 


023242 


19410] 




9222 


023244 


300303 




5223 


023246 


194103 




9224 


023250 


30(303 




9229 


023292 


009301 




9226 


023254 


330327 


000(01 


5227 


023260 


301402 




922S 


323262 


209333 




9229 


023264 


361503 




9230 


023266 


32036? 


0(0(04 


5231 


023272 


1B3347 




9232 


023274 


020306 




9233 


323276 


103013 




9234 


023300 


020369 


0(0010 


5239 


023304 


101342 




9236 


023306 


020369 


00(012 


5237 


023312 


101(09 




5Z3« 


023314 


020369 


0(0014 


9239 


023320 


103334 




9240 


023322 


020319 




9241 


323324 


103732 




5242 


023326 


362716 


000004 


5243 


023332 


021301 




9244 


023334 


001326 




9246 


023336 


061601 




9246 


023340 


16(113 





SUBROUTINE 'upPiCK' 



gP*«CKI HOV 
M0» 
MOV 
CLK 
HOV 

MOV 
MOV 

UPPLOOPICLR 
BISB 
BNC 

UPPSlOt CMP 
BHI 
MOV 
TST 
MOV 
MOV 
MOV 
"TS 

UPPNiROtSUB 
CtR 
B|S8 
SH48 
BISB 
SHAB 
OCC 
BIT 
BEQ 
DEC 
ADD 
CMP 
BHIS 
CMP 
SHIS 
CMP 
BHI 
CMP 
BHI 
CMP 
BHIS 
CMP 
BIO 

UPPSOOOIADO 
CHP 
BNE 
ADO 
SUB 



Ril»(SP) 

R2|.(i«P) 

R?l"<»P> 

•ISP) 

HI5TRtR9)iRl 

H|FREIIR9|,R2 

R2,HIJTR(fl9) 

(SP( 

•(Rl)i(SP) 

UPPN8H0 

Ri,L05TR(R9) 

UPPLOOP 

R2,L0STR(t»9) 

(SP)» 

(SP)»|R3 

(SP(*,R2 

(SP)*iRl 

P5 

ISP), HI 

R3 

•(R1),R3 

R3 

-(R1)|R3 

R3 

Ri 

R3,»t 

.♦« 

R3 

IH9),R3 

R3|P0tlR9l 

UPP8A9 

R3,SP 

UPPCOOO 

R3|ARRATSIR5I 

UPPBAO 

R3,HirREeiR9l 

UPPSOOO 

R3,L0FREEtR9) 

UPPBA9 

R3,(R»I 

UPPBAP 

«4,(SPI 

|R3|,H1 

UPPBAP 

tSPj.Ki 

R1,(RJ1 



CACLEO BV JSP PC 

PACKS STRING STORAGE T0H4H0 HIGH CORE 

R0 UNUSED 

Rl,RJiR3 PRESERVED 

R4 UNUSED 

R9 MUST PeiVT TO USER AREA 

SP GOES 10 "EEPER AFTER JSR 



lOET £10 OF THE NEXT STRING 
((LAST BfTE CONTAINS THE UENGTH). 



lAOORESS SACK PTR 

IGET IT IN R3 

ICHECK REI. TO SYMBOLS 

lYES, ADD BASE OF SYM TAB 
IMAKE SURE ITtS NOT TOO HI 

I IN STACK IS OK 

I IN ARRavS 13 GOOO 

■IN FREE STORAGE IS BAD 



ISELOU SYMBOl, TABLE IS BAD 
lOOOn STHING, MOVE IT UP 



KPONIT GARBAGE COLLECT IT) 



^7r 
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9247 


023342 


360213 








AOO 


R2,(R3) 


9246 


023344 


114142 








MOVB 


'IRt)l«(R2) 


9249 


023346 


009316 








DEC 


(SP) 


5290 


023390 


303379 








SOT 


>'* 


5251 


323352 


000717 








BR 


UPPBAO 


5252 












,ENOC 




5293 

















^7? 



// 
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5!5« 








5J5S 








SiS» 








5S57 








5258 








5259 








5260 


023394 


005002 




5261 


323356 


009003 




5262 


II23360 


009004 




5263 


023362 


122027 


000040 


5264 


!>23366 


001779 




5269 


023370 


124027 


000)6) 


5266 


023374 


103427 




5267 


023376 


121027 


00)071 


5266 


023402 


101024 




5269 


323404 


5120327 


01463) 


527J 


023410 


101409 




5271 


023412 


305200 




5272 


023414 


309702 




5273 


023416 


002761 




5274 


023420 


009202 




5275 


023422 


000797 




5276 


023424 


004767 


173764 


5277 


023430 


009046 




5276 


023432 


112016 




5279 


023434 


162716 


00))6) 


5288 


023440 


062604 




5281 


023442 


D05503 




5282 


023444 


005702 




5283 


023446 


901749 




5284 


023490 


009202 




5285 


023452 


000743 




5286 


023494 


122027 


008096 


5287 


023460 


001024 




5288 


023462 


005702 




5289 


023464 


0*1003 




529B 


023466 


012702 


108000 


5291 


023472 


000733 




5292 


023474 


003000 




9293 


023476 


122027 


000040 


5294 


023902 


J01775 




529S 


023904 


124027 


0)0)68 


5296 


023110 


103409 




5297 


023912 


121027 


00)071 


5298 


023916 


101)02 




5299 


023520 


009201 




59«g 


023922 


000769 




5311 


023924 


122f27 


0))896 


5302 


023930 


001400 




5303 








5304 


023932 


0)9046 




5905 


023934 


124027 


0)8189 


5306 


023540 


001096 




5307 


023942 


02)165 


000020 


9308 


023946 


001493 





SUBROUTlNt IV«U' 



called b" js" »7 

Converts an »scu stuIns at (r») 

TO A VALUE ;w l'3.R4, AND 
AN EXPONENT IN R2 



VA|,I 

CLR 
CLR 
CLR 

NUOICITICHPB 
aEO 
CMP8 
BLO 
CMPB 
BHI 
CHP 
BLOS 
INC 
TST 
)Lt 
INC 
BR 

CANFITI JSR 
CL« 
MOVB 

sue 

ADO 
ADC 
TST 
BED 
INC 
BR 

Norotct CHPB 

BNE 
TST 
BNE 
WOV 
BR 

OOtROTi 8GT 

OOflCNOICHP) 
9EI) 
CMPB 
BLO 
CMPB 
SHI 
INC 
BR 

PASTOOTICMPB 
9(0 

DOrSADI 

NOtDOTi CL" 
CHPB 

9Ne 

CMP 
BEO 



R2 
R3 



<RB)*l>8L 
<•* 

•(R))l<'0 

NSTOIC 

|R0),il9 

NOTSIG 

R3,illl4630 

CANFlf 

RB 

R2 

NVDICIT 

R2 

NVDIGIT 

PC.MPTTEN 

•(SP) 

(R8)»|(SP) 

»«Bi<SP| 

(SP)«|><4 

R3 

R2 

NIJDIGir 

R2 

NyOtGIT 

(R0)*|i>> , 

NOTOOT 

R2 

OOTROT 

•10)000|R2 

NyOICIT 

OOTICNO 

<R0)*lfBL 

I** 

.(R0),«>0 

PASTOOT 

I R0 I I • > 9 

PASTOOT 

R) 

OOTIGNO 

|R)|*,«i , 

OOTBAD 

• (SP) 
■(R))l«'E 

NOEXPON 

RilLINE(R9) 

NOEXPON 



IDEC PLACES*l0000a OR TR»H,IMG ZEROES, 
IHIGU ORDER OF 32 91T INTEGl", 
|L0» ORDER or 32 SIT I«ITEGER, 



I If MI8H KORD GREATER THAN TM15 

iTHE" CANT FIT ANOTHER DIGIT IN 32 8ITS, 

ICANT FIT DIGITS IN MANTISSA, SIT ITS 
lAFTER POINT SO NEEDNT COUNT THE«| 
iCANT FIT DIGITS IN MANTISSA SO MUST 
IKEEP TRACK OFTRAILING JIROCS', 



lAND ADD IN THE DIGIT', 



IFITS IN MANTISSA, 

iFltS IN MANTISSA 9UT AFTER POINT SO 

)COU"T DECIMAL PLACES', 



lOOT COMES AFTER SHORT NUMSE= So GET 
IREAOT TO COUNT DECIMAL "LACFS', 



lOOT COMES AFTER FULL MA'lTISSA HITH 
(TRAILING iEROES SO IGNORE MORE DIGITS, 



lOOT COMES UMILE IGNORING TRAILING 
lAFTER POINT KITH FULL MANTISSA iERROR , 



INO 'E' AFTER THE NUMBER 

IIF ITS THE FIRST THING ON THE LINE IT 

IMUST 9E A LINENO SO '.t' IS ILLEGAI,, 



<^fo 
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5309 


023990 


3)9200 






INC 


R0 


5318 


023592 


121027 


008048 




Cmpb 


(HO)l»BL 


5311 


023556 


001774 






BED 


,•6 


5312 


023960 


122027 


000099 




CMPB 


|H0)«,«l« 


5313 


323964 


0)14)6 






BED 


EXPDIG 


5314 


023966 


124027 


300095 




CHPB 


■(R0li»'- 


5315 


323972 


0)1))3 






BNE 


EXPOIG 


5316 


023974 


0)92)) 






INC 


"0 


5317 


023976 


012716 


180)8) 




MOV 


■100000, (SP) 


5310 


023602 


122027 


080040 


EXPDIGI 


CMPB 


(R3)<'i«BL 


5319 


029606 


381775 






BED 


,•4 


5320 


023610 


124027 


080060 




CMPB 


-(R))l»'0 


5321 


023614 


103423 






BLO 


EXPDUN 


5322 


023616 


121027 


080871 




CMPB 


(R0),»'9 


9323 


023622 


18102) 






BHI 


EXPDUN 


9324 


023624 


011646 






MOV 


(SP),.(SP) 


5925 


023626 


306316 






ASL 


(SP) 


5326 


023630 


306316 






ASL 


(SP) 


5327 


023632 


366616 


000802 




ADD 


2(SP),(SP) 


5328 


323636 


306316 






ASL 


(SP) 


5329 


323640 


242766 


077777 


300002 


BIC 


•77777, 2(SP) 


5330 


323646 


062616 






ADD 


(SP)*,|SP) 


9991 


023698 


309046 






CLR 


-(SP) 


5332 


023692 


112016 






M0V8 


(R0)*,(SP) 


5333 


023694 


362616 






ADD 


(SP)*,(SP) 


5334 


023696 


162716 


000060 




SUB 


«I0,{SP) 


5939 


323662 


000747 






BR 


EXPDIG 


9996 


323664 


B09716 




EXPDUNt 


TST 


(SP) 


5337 


323666 


302803 






BGE 


NOEXPON 


5938 


323670 


342716 


108008 




B|C 


•18)0B)i(SP) 


5339 


023674 


305416 






NEO 


(SP) 


5948 


023676 


305782 




NOEXPON 1 TST 


R2 


5941 


323730 


302083 






BGE 


EXPOK 


5342 


323732 


342732 


10000) 




8|C 


•10)000, R2 


5343 


023736 


305402 






NEG 


R2 


5344 


023718 


362632 




EXPOKl 


ADD 


|SP).,R2 


5345 


023712 


J802B7 






RTS 


PC 


5346 















J^/ 
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9347 
934S 
534V 
9391 
9391 
9392 
5353 
9394 
9359 
535» 
5357 
5356 
5359 
93«0 
9361 
9362 
9363 
5364 
9369 
936t 
9367 
936S 
9369 
9378 
9371 
9372 
9373 
5374 
9379 
9376 
5377 
937S 
5379 
93«« 
5361 
5362 
5383 
9384 
5389 
9386 
9387 
9388 
9399 
9398 
9391 
9392 
9393 
9394 
9399 
9396 
9397 
9398 



S23714 
023716 
323728 
023722 
823724 
023726 



023738 
J23797 
823738 
080880 
823730 
080880 
823730 
023760 
023797 



023760 
829762 
023764 
823766 

023770 
023772 



824824 

824826 
024830 

024032 
024034 
024036 



823774 
824023 
823774 
800000 
02S774 
800000 
823774 
824024 
824823 



024040 

024877 
024048 

088008 
024048 
000880 
024848 
024180 
824077 



1 SYSTEH 1/0 BUFfERS «N0 
1 


HEADERS 




.iFNDF 


INOPTP 




1 PAPER 


TAPE READER 




PRBFHOI 


* 


PRBuf 


IBSTOT 




* 


PRBEN9 


IBCND 




.UORO 


PN8UF 


IBCETI 




* 


8 


IB6ET2 




,UORO 


PRBUF 


ISPUT 




,NORD 


8 


IBFSPEC 


PRBUr 


•i 






1 


•,«SPRBSi 




PRBENO 


■,•1 
.EVEN 












1 RARER 


TAPE PUNCH 




PRBrHPI 


* 


PPBuF 


IBSTRT 




* 


PPBENO 


iBFNn 




lUORO 


PPBUF 


IBCETI 




* 


8 


ia6ET2 




iMORD 


PPBUF 


IBPUT 




lUORD 


8 


iBFSPEC 


RPBUr 


■i 






, 


•.liPPBS! 




PPBENO 


.EVEN 














lENOC 







iIFnDF iNOtPI 



1 LINE PRINTER 






UPBFHOI » 


LpBgF 


IBSTPT 


* 


LPBENO 


iBENn 


,UORD 


UPBUF 


IBBETI 


* 





I8CET2 


lUORO 


UPBUF 


IBPUT 


,MORD 





IBFSPEC 


UPBUF ■, 






, •,*SLPeS! 




LPBEND 'lOl 






,EVEN 






,ENOC 







^f^ 
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5399 
9480 
9401 
9482 

9403 



024188 

088808' 
088808' 
024100' 

088801 



19141 PACE 70 
ENflAB 
BEGIN 



iCSECT 



■i^ENDAB 
,ENO 



.^fJ 
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AOOINT 


007662 


Aooovr 


007702 


tODPOS 


**7796 


AOOSTK 


007622 


ADOiCR 


007742 


AOSTKl 


021464 


'uEXl 


*102*2 


•ULUOO 


010032 


tkLNOA 


010042 


AUUOC 


010010 


ALLOCl 


0B2'»2 


AU0C2 


002S2' 


»Ut5TR 


010164 


ALOG 


a »••••• G 


AMATCH 


021706 


A«PKAI 


013002 


ARGS 


010262 S 


ARRAYS 


• 000010 G 


ASSIGN 


00327!! 


ASSSTR 


00332' 


ATAN 


•• 


ATNFN 


013292 


BEGIN 


• BaaeasR 


PENO . 


1 0D0!I02 


S^SPCC 


• 000012 


BGEtl 


• 000004 


8GET2 


■ 000006 


PU 


1 0000'0 


BOHa 


010320 


aoxeoo 


010972 


aoMBJH 


01090' 


R0MB1E 


310*'O 


aOMSNX 


01036S 


BonaoK 


010470 


BPOL 


BIH22 


BPIJI 1 


1 lOi^ir. 


aSTRT 


• 00000S 


3UFCLR 


010510 


8UFEMP 


019222 


pyrfp 


010564 


CALU 


003104 


CAULCK 


009196 


CALLHl 


0031«6 


CA1.L"2 


003170 


CAULNH 


009242 


CAUIX 


009200 


CAUNRM 


023132 


(;ai.og 


ai'212 


CANFIT 


023424 


CARRET 


022244 


CATCOM 


013164 


CATLON 


01309' 


CATNOt 


019092 


CCEXIT 


010700 


CCMES 


007329 


CEXP 


01'22' 


CHKCHR 


010602 


CHKISE 


040702 


CHKOSE 


010710 


CLtAS 


001132 


CLHNLP 


000402 


CL"NPP 


000400 


CtHNTT 


> 000036 


SLRECH 


00716' 


ClRrRE 


011070 


CLRUOO 


011020 


CLROK 


011060 


CLPSVA 


311352 


Cl,RVAR 


011302 


CNCftC 


> 000106 


CNOruG 


• 000107 


CODE 1 


1 003?16 


COUONC 


009312 


COtyHN 


• 00009' G 


COHCHK 


»t071' 


CONES 


007338 


COMTAB 


021640 


C0N5AT 


013020 


COS 


« •••••• C 


COSFM 


013230 


CR 


• 000019 


CRtFME 


007922 


DEFOUN 


002400 


"EFGOT 


0026'2 


DCUNSG 


007312 


oevCrr 


021094 


OIHOON 


B0267' 


IIMGHT 


002(06 


OIMLOO 


002326 


DIMNON 


002946 


OIHSCt 


0029»< 


OIVLOO 


0111S* 


OIVTEN 


011190 


ONPACK 


011206 


ONPSAO 


*112<0 


nNPGno 


011352 


ONPISN 


011376 


ONPtOO 


011292 


ONPNIR 


01126' 


nOAtuo 


002536 


OOCHAR 


016174 


DOITNO 


01227' 


DOHSC 


01790' 


OOPUT 


a07?l' 


aorsAO 


029992 


OOTJGN 


029«76 


OOTROT 


029'74 


ECUOSA 


00730' 


ECHOSP 


• 000104 


EOiCHG 


001'96 


EOICON 


0019'0 


rOIGBQ 


00162' 


EOIJHP 


002096 


EOlrlNE 


001990 


EOIMOD 


001916 


EOIMOV 


20155^ 


EOinvu 


001724 


EOIOVE 


001'76 


EOIPAS 


0B1<B6 


EOlPt-'T 


001302 


EDtRte 


001772 


EOIRUO 


002090 


EOIROO 


001712 
001226 


EDISAM 


001792 


EOtSKI 


001942 


EOISRC 


001946 


EDIT 


EOltL 


0012SP 


CNO 


003340 


ENOAB 


• 024100 


ENOCR 


022P'« 


fNOOl'O 


322116 


END30U 


022036 


EOF 


009340 


ERAOO 


01921' 


ERCHAN 


310766 


EREXP 


01921' 


ERtOG 


010912 


ERPO02 


0126'6 


ERPOU 


013314 


IRRACl 


014914 


ERRARA 


01029' 


ERRARG 


010312 G 


rSROlT 


306526 


ERRDEE 


004194 


ERROEF 


00269' 


ERROIM 


002626 


ERROIV 


013576 


ERREXP 


014064 


ERRFNl 


003232 


ERRFPU 


1 ■#•«•• G 


ERRGO 


aB'1'2 


ERRHIX 


019012 G 


ERRKXl 


01'242 


ERRHX2 


012004 


ER9MX3 


015526 


ERRHX« 


009762 


ERRHX9 


004222 


ERRMX6 


02144' 


ERPHX7 


021330 


ERRHXB 


019440 


ERRHX9 


019910 
022600 


ERRNEX 


009292 


ERROVR 


01321' 


ERROVl 


001662 


ERROVi 


ERR0V9 


02900' 


FRRPnU 


0U772 


ERRP02 


019202 


ERRP03 


009796 


ERRP04 


014236 


ERRPn9 


012360 


ERRRET 


004226 


ERRRUN 


002726 


ERRSOV 


017272 


ERPSSl 


019932 


ERRSS2 


012116 


ERRSS9 


016976 


ERRSTR 


013206 


ERPSXA 


01'2'6 


ERRSXl 


003296 


ERRSX2 


00926* 


ERRSX9 


019922 


ERRSX' 


01171' 


ERRSX; 


012944 


ERRSX6 


004190 


ERRSX7 


003624 


rRRSX9 


006290 


ERRSX9 


019470 


ERRSYN 


012944 S 


ERRTRN 


022174 


fRRTP7 


02256' 


ERRTRe 


006392 


ERRUFN 


01*920 


ERR4Ua 


0049(2 


ERSOB 


010312 


ERSTAR 


013214 


ERSXla 


00467' 


ERSX12 


010762 


EVAl 


011402 


EXECWT 


002746 


EX1T02 


0B7'li 


EXP 


1 »••••• G 


CXPOIC 


023602 


EXPOUN 


029664 


EXPFN 


019260 


EXPNEG 


022636 


EXPOK 


023710 


EXPTEN 


022614 


FACi 


• 00*04* G 


F4C2 


> 000042 G 


FF 


I 000^14 


flLLCH 


• 000112 


FILLCO 


• 000110 G 


FItLNO 


• 000111 


FlXCt,! 


015B30 


flXRET 


019092 


FIXTST 


019010 


Fixgp 


01479' 


FLE 


0191996 



^^y 
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FUINE 


01909' 


FnFn 


01'292 


FNOUNN 


0t"92 


FNRSNU 


01'71' 


FNSMAP 


01'276 


FOROTU 


004666 


FORNOI, 


004444 


fOUNOU 


023114 


FRSTOU 


017510 


FgNRET 


013416 


GETCHl 


015232 


GET2BY 


015150 


GOTECH 


007222 


OOTOOT 


011916 


HIFREE 


• 000012 


IFCOHP 


003690 


IFtLTR 


003712 


IFSGT 


003766 


li;iT2 


011690 


INITSC 


019994 


INPLOO 


009736 


INPNUL 


006342 


INPSTO 


006192 


1NPY01 


009790 


INTRT5 


019726 


1NT2 


019716 


1NT7 


016010 


lOHAIT 


016102 


ITAB 


019360 


KdCO 


006774 


KETA 


000476 


LEVFNE 


016374 


UEVILT 


016390 


LiNA 


016140 


LINENO 


I 000030 


LISTSy 


002262 


LITNOR 


017952 


LITTST 


017970 


LOCGET 


016410 


LOFREE 


• 000014 


LPe 


• 177916 


LPERR 


007946 


lpstrn 


011720 


LSTCHL 


01674' 


LSTFN 


016712 


tSTjnp 


01711' 


1.5TLNX 


017202 


LSTPRO 


01660' 


ISTTEX 


017026 


"AKtOK 


02276' 


■fAKOOT 


017306 


"SG 


017'52 G 


"SCSUP 


007200 


NEXGTU 


009160 


N0CHR2 


0079*2 
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FtJT 


011696 


FUX 


019062 


fnnewn 


014462 


fnnoco 


014926 


FNRCO« 


01'7*0 


FNREPL 


014502 


F»(R5SC 


014642 


FNRSTR 


014656 


FOR 


004234 


FORGO 


B0'730 


FORUOO 


004420 


FORLTL 


00'7I)0 


FORONE 


00440' 


FORSKI 


00"!' 


FOUNOV 


022406 


FPPRES 


015066 


FUNCT! 


013320 


FUNCTJ 


013332 


GCUAIT 


015390 


OETBYT 


019154 


GETV4R 


01936' 


GETX 


019246 


GOEXEC 


006230 


GONOSA 


00'126 


GOTO 


00'090 


GOTOFN 


012000 


GOTVAU 


012640 


GS8CTR 


> 000032 


HISTR 


• 000074 


IDEV 


< 000077 


IFLENO 


003936 


IFUEOR 


003960 


IFLOOP 


003SB6 


IFNUME 


003640 


IGNORE 


002742 


lUITCO 


011666 


IWMED 


002042 


IMMSTM 


00212' 


INPENO 


006204 


INPEOL 


006390 


INPNEH 


00576' 


INPNGU 


00623' 


INPOK 


006112 


INPPC 


0097J2 


INPSTR 


00625' 


INPUT 


009690 


INT 


01597' 


INTEXT 


021132 


INTl 


01966' 


INTIA 


019676 


INT2A 


019722 


INT9 


019730 


I NTS 


016022 


I NTS 


016032 


ISINO 


023036 


ISNUX 


0229" 


I TABLE 


010777 


ITSIN 


021010 


KBHO 


> 000102 


KBIOUN 


007060 


KEVMDS 


000'*4 


LET 


003296 


LEVUIT 


0169*6 


LEVPIU 


01630' 


I.EV2UT 


016344 


LF 


• 000012 


tINOUN 


017516 


LINE 


< 000020 


LINGET 


01613' 


LINRUB 


01616' 


LITCOM 


022752 


LITDIV 


0176'2 


tITOK 


017600 


UITSHR 


017652 


LITIER 


0227'0 


UNOSRC 


02901' 


lOCUOO 


016524 


L0CNO2 


816592 


LOGFN 


01327' 


UOSTR 


3 000072 


LPSENO 


■ 02'077 


tPBFMD 


02'B2' 


LPINT 


007910 


LPOFF 


007594 


I.STBSU 


016776 


USTCHA 


017002 


LSTEOL 


016792 


LSTFL8 


017110 


LSTILB 


017062 


LSTIUI 


017040 


tSTKHO 


016664 


tSTLIN 


016796 


LSTLOO 


016610 


LSTNEX 


01672' 


LSTPTR 


017120 


LSTSPE 


017010 


ISTVAR 


017214 


>*»«CMX 


017300 


MAKEST 


017252 G 


HAXETR 


017370 


maki.no 


023010 


MINUS 


01296' 


HSGCOn 


017454 


MS6ERR 


017'" 


NEXENO 


005176 


NEXFIL 


022150 


NEXLTL 


009170 


NEXT 


»04792 


NOCNC 


0*27»4 


NOOIGI 


022306 



FNCHK 


01'716 


FnnumE 


0H750 


fnplup 


31'602 


FNSTO 


31'362 


FORGBG 


00'726 


FOPNEX 


004520 


FOBSER 


00'73« 


FPPSAV 


015114 


FUMOK 


013364 


CETCHA 


015230 


OETioy 


015142 


SOSUB 


00'e5P 


GOTOKE 


01620' 


UOBSYU 


020750 


IF 


003402 


IFUGTH 


003772 


IFSEO 


003554 


ItlTl 


eiiesci 


INlt9F 


015936 


INPGOO 


006176 


INPN"U 


006320 


INPRTR 


005754 


INPYES 


009672 


INTFk' 


0134" 


INTIS 


015714 


INT6 


015750 


lOINIT 


001222 


ISVAB 


02229' 


JMPRnY 


003376 


K8INY 


006722 


LEWFLT 


016332 


LEVPOS 


016<02 


LIMH . 


I 000002 


LiNtlM 


316160 


LI?T 


002272 


LITEUA 


01625' 


LITSTO 


017656 


lOCAtO 


016'2« 


LOCSSl 


016'62 


LPAH 


011705 


LPBUF 1 


■ 024040 


LPS 


. 177914 


LSTCWK 


31667S 


LSTFLI 


017870 


LSTI1.2 


017052 


LSTLV'O 


317152 


LSTPC 


016»'6 


LSTSec 


016652 


MAKEI2 


0227'6 


MAKFLt 


023122 


"PYTEN 


317414 


MSGOPE 


017500 


«EXGO 


005214 


'lOCHAR 


015292 


MOEX'O 


023676 
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NOgM 


«e6008 


NOQMl 


mn* 


Noouor 


B1H22 


NOIIM 


•17SJJ 


e 


nojnoo 


BiB274 


NOROON 


•2B70B 


NOSUBS 


019920 


tlOTOIG 


•23494 




NOTOOT 


B23932 


NOTIT 


022342 


NOtKUO 


022280 


lOTNOU 


012930 




NOTSTii 


0B3B«2 


NOUKAP 


020646 


NONRP 


019214 


"goiGi 


023362 




NVMtLN 


a2B224 


NUHBIS 


020206 


NUMOIG 


020300 


UUMOIV 


020214 




NVHe«| 


B2B9i2 


NUMFIX 


020002 


NUMFtT 


828106 


>!UI"F"1 


020962 




NVHFMJ 


B2B47B 


NUHFH3 


020904 


fUMJi-P 


821610 


MUMtPl 


020400 




N«ntP3 


B2BS4B 


NUMNEO 


020030 


KUMNOR 


828140 


HUBOK 


020232 




NVMOUT 


817724 S 


NUMPOS 


•20034 


NUMPRS 


020090 


VUHSCN 


817736 


G 


NUHSHf 


120132 


NUMSTT 


020092 


OOEV 


> 000076 


nFFTYP 


827212 




OI.D 


Be2172 


OI.O0B1 


002230 


OPERAN 


011424 


nPBATO 


812166 


C 


OPRFN 


B1J444 


OTABLt 


a;B774 


OUTtl^ 


021034 


0UTB12 


01876ii 




PUSTOO 


•23924 


PC 


•)I00*007 


POL 


• 000004 G 


PDSIJE 


1 888B86 


c 


PUUS 


B1243B 


PNOGO 


•21196 


POP 


016060 


POUDUN 


0B7!)62 




POWUP 


SB7974 


POH«P 


007972 


PPB 


• 1779S6 


PPBENO 


> 024029 




ppBrMO 


B237«B 


PPBUF 


> 023774 


PPERR 


007474 


PRINT 


807436 




PPS 


■ t779S4 


PRB 


■ 177992 


PRBEND 


• 023757 


PRBFUO 


023714 




PRSUf 


■ B2373B 


PREC2 


•12266 


PREC3 


012268 


PREC4 


012292 




PREC5 


012244 


PREOT 


807426 


PRI80T 


009470 


•RIC" 


009462 




PR ICON 


009912 


PRU"P 


009686 


PRIkOO 


009492 


PRIHOR 


809904 




PRINCR 


009632 


PRINT 


009264 


PRISEM 


00997B 


PRISTR 


809414 




PRITES 


009600 


PRNTOE 


007270 


PRNTBl 


809326 


PRS' 


• 177990 




PR 3 


• 000140 


PR4 


• 000200 


PR7 


• 800340 


»S 


■ 177776 




PTPINT 


•0733t 


PUSH 


0i6046 


PUSHF 


012930 


PUSMl 


016072 




P«T»OK 


•22440 


PUTBTT 


02B614 


PUTCCO 


0207^4 


PgTCMA 


020706 




PyTlT 


•20764 


PUTITI 


•22414 


OUNULt 


012636 


auoTPu 


813162 




oyoTE 


012992 


OUOTPA 


•J1792 


READ 


0069»6 


BEAOBA 


806934 




RCAOOU 


•06496 


PEAOGO 


•06424 


REAOOU 


006922 


PEADOT 


806614 




HE*OST 


0B67t4 


READY 


0B1144 


REAOYB 


001140 


PEADV2 


881206 




REAPIN 


006992 


REANUt 


•06710 


REASRC 


086946 


"EENAB 


819326 




REHPAC 


022222 


RESREG 


821114 


RESTOR 


004036 


RETLNO 


822922 




RETRY 


B21646 


RETURN 


004154 


RETVAR 


8229^6 


REVRSE 


014170 




HNbCT 


• 0B0B70 


RNOGOT 


0B26B0 


RNbl 


• 000064 G 


«N02 


■ 800066 


G 


RUN 


0B2316 


RB 


•)I000000 


RBSAVE 


• 000044 


"1 


■«80888i 




RISAVE 


• 000046 


R2 


•X000002 


R2SAWE 


• 000098 


1)3 


• I000II03 




R3SiVE 


> 000092 


R4 


•X000004 


R4SAVE 


• 800094 


»9 


•«ee<8085 




SAVCHA 


•2097B S 


SAVE 


802234 


SAVREG 


021072 


SAVRGl 


021062 




SCANPN 


021134 


SCRATC 


001122 


SETLFE 


•07276 


SIN 


■ •«•••« 


G 


StNrN 


•13222 


SKIPEO 


021170 


SKIPHl 


821294 


SKIPPT 


•21292 




SKIPTX 


•21244 


SKIPBl 


•21166 


SKIPB2 


021164 


SKIPC9 


021160 




SLASH 


012466 


SOPRAT 


•12720 S 


SOPRX 


012776 


SP 


•X080006 




SPARE 


• 000113 


SPECHE 


007134 


SOHFN 


•13296 


SORT 


• •*«••• 


G 


SStSAV 


• 000024 


SS2SAy 


• 80B026 


STAR 


•12496 


START 


001182 


G 


StARl 


012462 


STOAOK 


023074 


STOCOH 


•21316 


STOLNO 


823!)90 




STONHC 


•21402 


STONO; 


02130* 


STOP 


903362 


STOSSN 


821366 




STOSTR 


022000 


STOSVA 


•21334 


STOSX 


021442 


STOtxT 


•22232 




STOVAR 


•21294 G 


STOVCO 


•21424 


STOVTA 


021412 


STPRO 


813162 


C 


STRGAR 


012692 


STRGBT 


•12674 


STRGJH 


011766 


STRGVA 


•12660 




SUBINT 


021470 


SUBSTK 


821450 


SYNBOt 


• 000II80 


s,0iai 


087096 




S,B1B2 


•07094 


TAB 


• 808011 


TABLEl 


003810 


TAeuE2 


812912 




TAei,E4 


•02110 


TABUE5 


011962 S 


TABL9 


• 089406 


TABl 


021040 




tAB2 


•21046 


TAB3 


mm 


TBtlEN 


003060 


TBL4tN 


002122 




tBLSEN 


• 011626 


TERHIN 


•123J4 


TKB 


• 177562 


TKS 


« 177960 


G 


TPB 


■ 177966 G 


TPCN 


007240 


TPCO 


807294 


TPHO 


• 800108 




tPINT 


BB7B74 


TPNXT 


087122 


tPS 


• 177964 


TRAN 


021912 





cAf6 
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THaNUU 


B21940 


trnFn 


022072 


TRYKWO 


021614 


TSTSl 


812920 


Ti 


• 000096 G 


UAJMP 


814104 


UATST2 


•14120 


UA10B 


013710 


UA17 


813768 


UA17F 


814040 


UA23 


814146 


UA9 


•13616 


UPARRO 


•13474 


UPPLOO 


0232)4 


VARBLE 


011732 


VARSS 


812018 


XTRET 


016120 


JERVEC 


* ••«•«• G 


SPOLSH 


G 


SSBR 


« •«•••• G 


,ASC 


' 000300 


ifi-EAR 


■ 080313 


iJATA 


• 888223 


,EG 


■ 080247 


,EOF 


• 000229 


,fUIT 


• 000974 


,G0SU8 


• 800204 


iIUITl 


• 800979 


il-E 


• 000244 


ilOG 


• 000272 


,NE 


• 800290 


iPUUS 


• 008232 


,RANaO 


• 000216 


,RETUR 


• 000213 


,RUN 


• 008307 


,SEG 


• 00B303 


, SLASH 


■ 080231 


,STEP 


• 000241 


,TAfl 


' 000276 


,Tfl 


■ 088240 




■ 824ie0R 
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TRANVa 


021944 


TPFNBA 


B22138 


TRNPC 


021642 


tryagn 


021644 


TRVNUM 


021966 


Trysva 


022372 


TSTS2 


8i2526 


TYPE 


007142 


T2 


• 088060 G 


T3 


> 000062 G 


UANJMP 


014100 


UATSTA 


014130 


UAl 


813920 


UA10 


813630 


UAiac 


019720 


UAt0,9 


813732 


UA17A 


813772 


UA178 


814010 


UAl? 


814096 


UA20 


014W6 


UA4 


813558 


UA9 


013996 


UINTEG 


812486 


UHINUS 


011414 


UPPACK 


023160 


UPPBAO 


023212 


UPPNJR 


023236 


USRARE 


a •••«•• G 


VARNOS 


81219* 


VARSAV 


• 800022 


VERNUN 


000040 


VONESS 


012122 


XCHAR 


•19270 


SAOR 


1 ••«••• G 


SIR 


• •••••• G 


ILPBSi 


> 008040 


SPPBSi 


• 000030 


SPRBSi 


■ 000090 


SSTKSi 


• 000200 G 


,ABS 


> 000273 


,ATN 


» 000270 


.CALL 


> 000224 


.pbLON 


• 000268 


.COHMA 


• 000249 G 


,DEF 


> 000221 


,OIH 


• 000219 


.EL 


' 00B249 


.EN 


• 000291 


,EOL 


• 000201 G 


.EO 


• 000294 


,FN 


• 080262 


,FOR 


• 800283 


pGOTO 


• 000209 


Igt 


• 800293 


,ILIT2 


• 080376 


.INPUT 


• 000287 


,lEN 


• 000277 


.UET 


• 000210 


iLPAR 


• 000299 G 


lUT 


• 000292 


.NEXT 


> 000211 


iNVAR 


• 177776 


,POS 


• 0B0302 


.POUND 


• 000261 


,REAO 


> 000222 


.REN 


• 000220 


,RNO 


> •01264 


,RNDL 


• 800263 


.SAVE 


• 000310 


.SCALA 


• 177779 


,SEHt 


• 000236 


,$GN 


■ 000279 


,SOR 


• 000267 


.SOUOT 


• 000297 


.STOP 


• 000214 


,STR 


• 000389 


.TERM 


> 000239 


.TEXT 


• 000377 


, UNARY 


• 000233 


.UPARR 


• 000227 



TRNER4 




023000 


TRYECH 




007166 


TSTSTK 




812914 


TYPEl 




807196 


IIAASR 




814072 


llATSTa 




814110 


UA10A 




013666 


UA12 




B1379B 


UA17CI 




014028 


UA21 




0141164 


I'AS 




013970 


UNARY 




812970 


UPPGOO 




823926 


«AL 




823394 G 


VAR5RC 




022920 


VTUOSS 




812194 


fOVR 




•••»•• c 


IMLR 




•••••• G 


tPPOPC 




000400 


,AMPER 




808226 


■,CHR4 




800301 


• COS 




808266 


'.OOUOT 




800296 


.END 




000202 


■,EXP 




888271 


'.OE 




000246 


■,|P 




080206 


•.INT 




080274 


.LIST 




808386 


', MINUS 




080234 


.OLD 




008911 


'.PRI'.'T 




000212 


.RESTO 




000217 


,RPAR 




808237 G 


■.SCR 




000912 


■.SIN 




888269 


■.STAR 




080290 


.SVAO 




177777 


■, TUt" 




000242 


'.VAL 




080304 
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HUN-TIMC) >» SeCONOS 
CORE USeOl 4K 



AODtNT 


2229 


2237t 




AODOVr 


2240 


22438 




AOOPOS 


2243 


22968 




ADDSTk 


1999 


22268 


2970 


A002ER 


2244 


22938 




AOSTKl 


4)344 


4836 


4839 


AULEXI 


2327 


2341 


23488 


ALLLOO 


2291< 


2288 




AULNOA 


22S2 


22898 




AULOC 


9«9 


22738 


4827 


AULOCl 


938 


9<4» 




ALL0C2 


994 


960« 




AtLSTR 


2314 


23284 




AUOC 


6« 


3163 


3394 


AHATCH 


48B7 


48984 




AliPWAl 


3867 


30838 




ARCS 


7» 


23698 




ARRAYS 


»9 


■ 3118 


312 


ASSIGN 


1878 


11608 




ASSSTR 


116» 


1175« 




ATAN 


60 


3178 




ATNFN 


2784 


31788 




sesiN 


9481* 






SCNO 


399* 


3664 


4973 


BFSREC 


39»» 


2028 


2830 


9GETI 


396' 


3653 


4976 


9SeT2 


397« 


3659 


4978 


Hi. 


299t 


1239 


1242 




9310 


9318 




bohb 


288 


24808 




BOHBDO 


2414 


24178 




bohb,;h 


2418 


24388 




aOMBNE 


2424 


24288 




aOMSNX 


2413* 


2416 




SOHBOK 


2427 


24348 




BPOL 


2737 


27428 




BPUT 


398« 


3660 


4971 


8STRT 


3944 


3666 


4975 


BUrCUR 


640 


650 


2819 


BUFENP 


3661 


36708 




ByFTP 


2829 


2493 


24768 


CAUL 


1864 


10778 




CAtLCK 


11134 


1192 




CAULMl 


1118i 


1121 




CALLM2 


11274 


1130 




CALLKH 


111* 


1128 


11498 


CALLX 


1126 


11328 




CAI.NRM 


9178 


91918 




CAl,OG 


3379 


33'4» 




CANFIT 


9278 


92764 




CARHEt 


4976 


49798 




CATCON 


J189 


31368 




CATLON 


3101 


31364 





2139 



2626 



2143 



4171 



4991 



2162 



9234 



2182 



5263 



<Pf? 



CATNOT 


J8»« 


30996 






















CCExIT 


24'S 


2990 


2902 


2904 


2907 


2910 


2912 


2919 


2917 


2919* 






CCMtS 


2B9J 


2112* 






















CEXP 


3392 


33966 






















CHKCHR 


2ze; 


249»» 


3937 




















CMKlSt 


se2 


1769 


2939* 




















CHKOSE 




1602 


2937* 




















CUEAB 


6«3» 


969 






















CUKNLP 


364t 


874 


1012 


1649 


















CtMNPP 


363« 


873 


1011 


4644 


















CUMNTT 


322* 


323 


694 


972 


1010 


1698 


194J 


24^14 


4299 








CLRECH 


2B67 


20741 






















CLRFRE 


2602 


2624» 






















CtRLOO 


2621* 


2622 






















CLROK 


2684 


26216 






















CWRSVA 


260S 


2616* 






















CLRVAR 


643 


88) 


9B9 


2998* 


















CNCruG 


34S» 


346 


692 


1,033 


i039 


2018 


3900 


4604 










CNOftS 


346* 


347 


2023 


4293 


4609 
















COOE 


J14» 
4t9« 


31? 


679 


694 


967 


9ia 


101} 


1183 


1747 


18B4 1944 


39f6 


3943 


COLONC 


l«il4 


16J6* 






















COI.UMN 


73 
4294 


321* 
4299 


322 

4296 


694 
4298 


699 

4306 


1609 

4683 


1632 


1656 


1674 


16»8 1699 


1742 


2404 


comchk 


2»36 


2938* 






















COMES 


22'7 


2114* 






















COMTAB 


4«77 


4879 


4?»1» 




















CQNCAT 


306S 


3099* 






















COS 


60 


3173 






















COSFN 


2762 


3173* 






















CR 


2'4< 
4ll» 


697 
4894 


663 
4863 


ll»« 
4920 


1192 
4979 


1739 


1800 


1892 


1961 


24ei7 2436 


29P6 


3946 


CRIFbE 


21B3 


2111* 






















OEFDUN 


tilt 


1009 






















OEFOOT 


921 


1000* 






















DELMSG 


mi 


2109* 






















DtVERR 


681 


4622 


4427 


4696* 


















d;ni)on 


929 


1010* 






















OIHOOT 


919 


929* 


971 




















DIHLOO 


9116 


928 


979 


990 


















OIHNON 


912 


918* 






















DInSCL 


966 


969* 






















OIVLOO 


2649* 


2691 






















OIVTEN 


2644i 


4346 


4491 




















DNPACK 


2665* 


4020 


42B9 




















CNPaAO 


2679« 


2694 


2698 


2702 


2704 


2713 


271? 












CNPSOO 


2696 


2730 


2709* 




















ONPION 


270« 


2714* 






















ONPLOO 


2672« 


2676 






















0NPN8R 


2674 


2693* 






















OOALLO 


948 


964* 






















OOCHAR 


3931 


3933* 


3941 


3944 


















OOITNO 


2919 


2917 


2922 


2937* 



















3^0 



dchsc 


42994 


4302 










DOPgT 


2020 


2022 


2024 


2026* 






DOTbAO 


9302 


9303* 










OOTISN 


9292 


5293* 


9300 








OOTROT 


9299 


5292* 










CCH08A 


2099 


2106* 










eCMOSP 


344* 


345 


639 


2062 






EOICHC 


732* 


739 










eoicoN 


759* 












EDISRO 


793 


779* 










EDIJNP 


824 


937* 










EOINME 


698 


693 


700* 








EDtMOO 


746* 


791 










EOinov 


759K 


761 










EOIMVU 


8!)9» 


907 










EOIOVE 


720 


740* 










EOIPAS 


718* 


722 


728 








EOIPUT 


706 


717 


742* 








tOIRLC 


923* 


936 










EOIHUO 


826 


932 


839* 








EDIROO 


796 


802* 










EDISAM 


754 


777 


916* 








EDISKl 


703* 


708 


714 


716 






EOISRC 


696 


699 


704* 








EDIT 


677* 


701 


937 


896 


1199 




EOITL 


678 


692* 










END 


1046 


1192* 










EN0A3 


5399* 


9402 










ENOCR 


4921 


4932* 










ENOQUO 


4919 


4924* 










ENOSQU 


4927 


4930* 










EOF 


1069 


1183* 










ERAOO 


2229 


3160* 










ERCHAN 


2941 


2947 


2990 


2996* 






EREXP 


3198* 


3191 










ERLOC 


2380* 


3184 










ERPD02 


3047* 


3060 


3110 








ERPDll 


3191* 












ERR4H13 


1446 


1460* 










ERRACl 


3422 


3446 


3494* 


3495 


3499 


3900 


ERRARA 


2284 


2286 


2291 


2299 


2302 


2304 2392* 


ERRARC 


70 


2370 


2373 


2379 


2381* 


3196 3494 


ERROAT 


1789 


1993 


l?29» 








ERROEE 


1333 


1338* 










ERROtF 


991. 


1001 


1009 


1007 






ERRDIM 


930 


935 


940 


942 


990 


996 95? 


ERRDIV 


2980 


3276* 










ERREXP 


3254 


3346* 










ERRFNl 


1084 


1110 


1114 


1129 


1134 


1145* 


ERRf PU 


79 


296 










ERRGO 


1326 


1347* 










ERRHIX 


'0 


i299 


1374 


2962 


3086* 


3189 3227 


ERRHXl 


3401* 


3429 


3491 









34)11 



3771 



4917 



301 



ERRMX2 
ERRMX3 
eRRHX4 
ERRMXS 
ERRNX6 
ERRMX7 
ERRMxa 
ERRMX9 
ERRNEX 
ERROVl 
ERR0V2 
ERR0V3 
ERROVR 
EHRP02 
CRRRD3 
ERRP04 
ERRPC15 
ERRPDU 
EHRRET 
ERRRUN 
ERRSOV 
ERRSSl 
ERRSS2 
ERRSS9 
ERRSTR 
ERRSXl 
ERRSX2 
ERRSX3 
ERRSX4 
ERRSXD 

ERRSX6 

ERRSX7 

ERRSXS 

ERRSX9 

ERRSXA 

ERRSYN 

ERRtR7 

ERRtRa 

ERRTRN 

ERRUfN 

ERSOR 

ERSTAR 

ERSXte 

ERSXtZ 

EVAl, 

EXECUT 

EXITB2 
EXP 

EXPOtC 
EXPOUN 



3741 

1211 

1374* 

47»1 

4764 

3227< 

3i9a» 

1S27 
79B« 
798 

9142» 

3t«l# 
3147 

t2a» 
33«a« 

2»52 

78 
1363 
t)t7« 
42ea« 

3746 
2876 

2a»7 

3119 
1»42 
1932 

37S3 
2772 

aas 

3769 
1288 
1252 

1767 
3284 
34841 

78 
4969 
1989 
869 
ll« 
:3798 
2972 
1479 
2939 

72 

2814 

879 

1923 

2132 

6« 
9313 
9321 



2871 

3797 

t2'7 

1483 

48178 

478»» 

3233 

1929 
799 
9832 
91«6 
3280 
31448 
1278 
3410 
2»9»» 
12»6 
1369 

4218 

3748 
2890 
4032 
31478 

1081 
1949 

3766 
28228 

1260 

4717 
1308 
12608 

IT'I 

3237 

3487 

9»1 

98768 
18938 

laaj 

2777 

3176 

3l9»8 

19848 

29948 

1080 

2868 

1016 

2134 

3ia0 

9319 

9323 



2889 

37718 
12998 
1413 1427 



1938 

9041 
9171 

3191 
12968 
3436 
3028 

2742 
13778 



3762 
2894 
4036 

11<6» 

19968 

37688 

2826 

1396 

1322 
1266 
1839 
32408 

3989 
1146 



4917 
3202 



U63 
2882 

18338 

2136 
3396 
93188 

93968 



1940 

90868 



1942 

9142 



19878 



28908 2866 



3144 



3764 37748 
28978 2981 
4038 40648 



1196 
1689 

2880 
^904 



3774 
1162 1170 117? 



2892 
1996 



i3968 



1324 
1268 

18968 taa7 



2919 

1896 2994 

1360 1391 

1922 



12I<2 



2822 
1396 



3B!'9« 3822 
1398 14a» 



3834 
1423 



3^69 
1431 



324e 



4995 
3412 



4998 
34898 



4969« 4974 



1199 {288 1274 1400 1418 
3084 3192 3230 3414 3983 
1049 £072 1172 1178 1317 



1424 


1497 


1626 


2369 


2538 


3738 


3794 








1337 


1371 


1511 


1578 


17?1 



2138 

9339 



21418 



3^^ 



EXPfN 


2789 


31808 
























EXPNEG 


5999 


91838 
























EXPOK 


9341 


93448 
























EXPTEN 


9073 


90968 


9102 






















F*Cl 


73 


3238 


J24 


1272 
4294 


1416 


1418 


1487 


1488 


1492 


1549 


1961 


15P2 


1623 




2249 


2250 


2291 


2259 


2260 


226i 


2372 


2426 


2431 


2432 


2433 


254a 




2807 


2889 


2810 


2879 


2889 


2»11 




2941 


2963 


2967 


2994 


3272 


32*5 




3288 


3302 


3309 


3319 


3438 


3580 




3745 


S7«l 


3816 


3848 


3846 


3B59 




3880 


3882 


3971 


3987 


3988 


3993 




4146 


4148 


4149 


'4142 


4l>7 


<1«8 




4388 


4391 


4399 


4419 


4775 


















r*c2 


73 


3248 


329 


1271 


1417 


1419 




1490 


1494 


1598 


1560 


15?3 


iaR4 




2241 


2246 


2247 


2293 


2256 


2257 




2425 


54?a 


2429 


2542 


2S''4 


28Z5 




2812 


2881 


2893 


2988 


2»12 


2950 




2968 


?9»3 


3223 


3257 


3259 


3265 




3286 


3306 


3320 


3440 


3582 


3747 




3638 


3847 


3897 


3356 


■J871 


3873 




3879 


SaB3 


3972 


3989 


3990 


3995 




4142 


4144 


4145 


4150 


4151 


4161 




4169 


4393 


4399 


4397 


4400 


4413 
















FF 


2938 


894 
























FlULCM 


349i 


390 


2069 






















FII.LCO 


6a 


3478 


348 


2097 


2059 


2071 
















FtLLNO 


3468 


349 


2071 






















FJXCLE 


3987 


39944 
























FIXRET 


3981 


3999 


3599* 






















FJXTST 


3979 


39888 
























FIXUP 


2227 


39778 
























FLE 


3604 


36118 
























FI,1NE 


981 


1321 


3683* 






















FLIT 


2790 


28098 
























FI.X 


3610 


36138 
























FNCHK 


3927 


S9928 
























FNFN 


2899 


34098 
























FNNEMN 


3461 


34708 
























FNNOCO 


3481 


3494* 
























FNNUHE 


3997 


39698 
























FNOLNN 


3463 


34678 
























FNRCOM 


3939 


39498 
























FNREPU 


3441 


3466 


3473 


3480* 




















FNRLUP 


39128 


3993 
























FNRSNU 


3946 


39918 
























FNRSSC 


39281 


3539 
























FNRSTR 


3519 


3936* 
























FNStR 


3417 


34448 
























FNSmP 


34138 


3483 
























FOR 


1047 


13888 
























FORGO 


1502 


i906 


1913* 






















FOROOS 


1499 


19128 
























F0R6TL 


19018 


























FORtOO 


1434 


1436* 
























FORLTU 


1980 


1989* 
























FORNEX 


1448 


1469* 
























FORNOL 


1437 


1443 


1449* 






















FORONE 


1421 


1432* 
























FgRSKl 


14358 


149( 


1493 


1499 


1471 


S477 
















FORMER 


1983 


1507* 

























2239 
28r3 

32"1 
3975 
4169 

22J9 
3611 
72"2 
j976 
41^4 



3^3 



■// 



rOyNOU 
FOUNOV 
rPPKES 
FPPSAV 
FRSTOU 

rgNCTi 

FUNCTJ 

ruNOK 

FyNRET 

GCUAlt 

GETIBY 

GtTZBY 

GETBYT 

circHi 

GETCHA 

GETVAR 

GETX 

GOEXEC 

GONOSA 

GOSUB 

50TECH 

GOTO 

GOTOFN 

GOrONE 

GOTOQT 

gotvaC 

GS8CTR 

HORSTU 

HIFREE 

HISTR 

lOEV 

IF 

IFCOHP 

IFUEND 

IFLEQR 

IFl,GTR 

IFUUTR 

IFI.OOP 

lFNg«E 

I^SEO 

IFS5T 

IGNORE 

UITl 

lUITZ 

UITCO 

INNEO 

IHMSTH 

INITBF 

INltSC 

IMPEND 

INPEOU 

INPGOO 

INPLOO 



5152 


9175* 


















5B15 


9g2]« 


















2J34 


2978 


2986 


3208 


3292 


3343 


3303 


3986 


3993 


36200 


2238 


2973 


2981 


3289 


3290 


5311 


332i 


3374 


3983 


3991 


<2»7 


4901' 


















3172 


3174 


3177 


3179 


3182 


3189 


3192» 








319» 


3197» 


















32B7 


3218« 


3395 


3397 














3212 


321911 


















3711 


J713« 


















215a 


2177 


36930 


3687 














2B77 


2060 


3695* 
















3694 


S696» 


















J6»7« 


3719 


















iitf 


3933 


















72 


1168 


1779 


1891 


37318 












3»91« 


3697 


3707 
















1942 


lB44t 


















13ZB 


1396I 


















tB«e 


1320t 


















2B7a 


208911 


















1049 


1294 


1296 


1298 


1290 


1292 


1294 


1310 


1312 


1314 


275B 


2899* 


















3«34 


3936« 


















2762 


27690 


















3S43« 


3098 


















328t 


321 


731 


749 


1329 


1339 


1361 


1369 


2629 




46RI 


46110 


















312« 


313 


788 


2300 


2308 


2336 


2348 


2626 


2699 


4245 


337» 


348 


2303 


2628 


2679 


2677 


421» 


4241 


!2«5 


5207 


34H 


700 


1760 


1841 


2981 


3709 


3709 


3923 






1098 


11990 


















1230 


1236 


1243 


12610 














1232 


12400 


















124«> 


1282 


















12B3 


13040 


















1264 


12840 


















1229< 


1234 


















1208 


12690 


















1239 


1241 


H460 
















1261 


13020 


















1832* 


1097 


1058 


1060 


1861 


1063 


1144 


1299 


1299 


1319 


2746 


2803* 


















2748 


28070 


















2808 


28110 


















702 


8470 


















896 


8660 


















2497 


2499 


2463 


37070 














642 


879 


38060 
















18380 


1879 


















1769 


18820 


















1833 


18360 


















1770» 


1837 



















13210 



5048 



30 i 



INPNEH 

INPNGU 

INPNNU 

INPNUU 

INPOK 

INPPC 

INPRTR 

INPStO 

INPSTR 

INPgt 

INPYBl 

INPTES 

INT 

INTl 

INTIA 

INTIB 

INT2 

INT2A 

INT5 

INT6 

INT7 

INTB 

INT9 

INTEXT 

INTFN 

:ntrts 

lOlNIT 

lOUAlt 

ISLNO 

ISNUH 

ISVAR 

ittB 

ifABLE 

ifsiN 

JMPROY 

KBCO 

KBHO 

KBIDUN 

KBINT 

KEVA 

KtYHOS 

LET 

LEVILT 

LEV2LT 

LEVFLt 

LEVFNE 

LEVLIT 

LEVPUy 

LEVPOS 

LF 

tlHlT 

LlNA 

I.1NDUN 



1779» 
1828 
18720 
1868 
1778 
17690 
17760 
1826 
1794 
1051 
1762 
1748 
74 
38360 
3839 
3843 
3841 
38480 
3827 
3892 
3822 
3870 
3845 
4681 
2788 
3817 

6660 
3714 
5148 
4873 
4971 
3706 
2539 
4617 
1184 
2017 

3430 
2019 
234 
5160 
464» 
1092 
3980 
3984 
3982 
3994 
3976 
3974 
39»2 
2920 
69 
39230 
4300 



1819 

1835 

1879 

18780 

1815' 

1814 

1829' 

1859' 

1747' 

1768' 

17590 

2371 

3839 

38400 

38460 

38470 

3872 

38510 

38570 

38690 

38730 

38790 

46980 

32300 

3824 

38990 
5191' 

9069' 
4982' 
3710 
2981' 

4623' 

11960 
20210 

344 
2027 
20090 
4880 
4094 
1155* 
3990» 
39890 
39860 
3997» 
S979* 
3978* 
3996 
657 
308' 
3938 
4303* 



1895 
1945* 



1877 

2874 2888 3238 3744 3760 3816* 



3874 
3896 



3849* 3860 3862 3868 3877 
4618 



3712 3718' 



2011 2075 2447 3999 
20380 



3998« 
663 1186 1192 1739 1852 2135 24?7 2436 3946 3»53 4lt9 
309 1332 2633 



Sos" 



LINE 


315» 


316 


685 


816 


850 


LINCIN 


3926 


39290 


3996 






LtNeNO 


Jt»» 


321 


871 


916 


1071 


WINGET 


677 


1786 


39220 






UlNRUii 


3»30« 


3940 








UlST 


a6B 


9000 








LISTSV 


9'2 


8960 


902 


904 




UITCOM 


!13l« 


5189 








UlTDIV 


4333 


43460 








LITEV* 


1827 


1909 


39700 






UITNOR 


4317 


43210 


4326 


4328 


4349 


LltOK 


4322 


43310 








LITSHR 


4349* 


4352 








LITSTO 


4332 


43910 








LITTSI 


4316 


43270 








LtTIER 


9128* 


5180 








LNOiiRC 


ai4»» 


9150 


5154 






LOCAUO 


4012 


40150 








LOCSET 


291» 


3090 


40110 


4770 


4799 


LOCLOO 


4043« 


4048 








LOCNOi 


4034 


40920 








UOCSSl 


4014 


40310 








UOfREE 


313« 


314 


770 


772 


787 




499* 


9042 


9149 


9172 


5238 


iocfn 


2786 


31830 








WOSTR 


3361 


337 


795 


798 


2627 


I.P«R 


2752 


jei4» 








tPB 


2S7« 


2179 








LRICNO 


5388 


939S0 








LP8PHD 


2174 


2462 


4643 


93870 




IPBUF 


5387 


9389 


53»1 


93930 




UPERR 


2176 


11820 








LPINT 


248 


21720 








LPorr 


2178 


21830 








UPS 


i8«< 


1175 


2183 


4654 




UPJTRN 


2817 


28250 








I.STBSI. 


4117 


41290 








LSTCH* 


4111 


41300 


4172 


4186 




tST?HK 


4101 


41040 








USTCRL 


411811 


4128 








tSTEOL 


4086 


41140 








LSTfUB 


4147 


41520 








USTPtl 


4133 


41480 








tSTPN 


4108* 










USTIH 


413S 


41410 








I.STIL2 


4136 


41440 








USTIUB 


4143 


41460 








USTJMP 


41530 


4104 








l.?TKHO 


410)* 


4103 








U5TUIN 


411S 


41220 








LBttNO 


4160 


41640 








LSTtNX 


4163 


41700 








LSTLOO 


905 


40830 


4107 


4113 


4121 



1807 
1907 



I8l3 

2417 



1899 



5l?8 



4713 



1526 



9028 



2670 



5031 



9162 



9165 



4131 



4130 



4153 



30 1 



ustnex 


4105 


41120 










lStpc 


40940 












LSTPRO 


896 


40820 










UStPTR 


4084 


41940 










LSTSPE 


4091 


41320 










USTSRC 


40950 


4099 










USTTEX 


41370 


4140 










LSTVUR 


4158 


41730 










lAKCHK 


42170 












"AKEI2 


9127 


51300 










MAKEOK 


9129 


51360 










MAKEST 


74 


1871 


1976 


3039 


3063 


3118 42030 


HAKETR 


4203 


4206 


4217 


42410 






HAKPLI 


5097 


5103 


9109 


9107 


9125 


51770 


MAKGOT 


4204 


4207 


42190 








nAKLNO 
MINUS 


9111 
2948 


9113 
29600 


9119 


9117 


5119 


5121 514J0 


MPYTEN 

MS5 

MSCCOM 


4299* 

72 
4290 


4343 

696 

42930 


4446 
662 


4478 
1185 


5100 
1191 


5276 

1781 2406 


NSCERR 


1017 


1749 


1845 


3945 


42870 


5076 5086 


MSGODE 
HSGSUP 


8»3 

20791 


1637 


1666 


1687 


1738 


4118 429a» 


NEXENO 


1971 


19740 










NExrtL 


4906 


49970 










NEXGO 


1967 


1570 


1973 


19790 






NEXCTL 


19«9« 












NEXLTL 


1968 


19720 










NEXT 


1053 


15220 










NOCHAR 


3688 


36930 










N0CHR2 


2159 


21630 










NOCNC 


1034 


10370 










NODIGI 


4986 


4988 


49920 








NOEXPO 


5306 


9308 


5337 


93400 






NOQM 


1780 


17850 










NOOMl 


1787 


17890 










NOQUOT 


2764 


27680 










NORM 


77 


4314* 


9161 








NORNOO 


44*2 


4469 


44690 








NOROOM 


4577 


4979 


49990 








NOSUBS 


3736 


3751 


37670 








NOTOIG 


5266 


9268 


92860 








NOTOOT 


5287 


93040 










NOTST 


4999 


50020 










NOTKHO 


4898 


49660 










NOTNOH 


2930 


2932 


2934 


2936 


29500 




NOTSYM 


1038 


10660 










NOWRAR 


4574 


45760 










NQyRP 


3665 


36670 










NUOICI 


9263» 


9273 


927» 


9283 


5285 


5291 


NUMALN 


44940 


4498 










xuHeic 


4436 


44490 










NUMOIG 


4470« 


4460 











!419 



301 



nvmoiv 


449ia 


4460 






NI/MEXl 


♦ 914 


454(8 






NVMrix 


4389 


4399i 






NVMFLT 


4416 


44238 






Nuxrnt 


4484 


44888 






NyMrH2 


44«» 


45198 






N^HFHS 


4487 


45198 






NijMJHP 


4868 


48738 






NUMLPl 


44«3« 


4496 






NIJMUP3 


4931* 


4539 






NUMNEC 


4392 


4398 


4401* 




ni;mnor 


4433* 


4448 


4453 




MVHOK 


44SB 


44978 






NVMOUT 


76 


2434 


4192 


4170 


N«MPOS 


439B 


4394 


4396 


i403l 


N^MPRS 


4402 


44108 






N^HSGN 


76 


1639 


83848 




NVMSHr 


4419 


44308 


4434 




n\;mstt 


4373 


4406 


44128 




OOEV 


34ai 


341 


342 


693 


OfFTYP 


2862* 








01,0 


863 


8788 






OUOBBl 


884 


8868 






OPERAN 


2739 


27»3« 


2756 


2996 


OPRATO 


74 
356S 


2806 


2813 


2»81 


OPRPn 


32B9 


32398 






OtABLE 


2S37 


25678 






OVTBtS 


4610 


46288 






OUTBi: 


2943 


25928 






PASTOO 


9296 


92»8 


93018 




PP 


2741 


640 


642 


643 




880 


681 


982 






1080 


1139 


1160 


1163 




1424 


1439 


1497 






1679 


1743 


1769 






1994 


1976 


1987 






2142 


2144 


2198 






2434 


2493 


2497 






2814 


2868 


2874 






3084 


3118 


3l»2 






3714 


3738 


3744 






3999 


4020 


4027 






4209 


4296 


4J17 
44?0 






4446 


4451 






4S41 


4590 


4984 






4866 


4881 


4939 




PDl 


69 


3098 


310 






1892 


mt 


1924 


1934 


POSliE 


69 


3108 


311 




PLUS 
PNDSO 


2946 

4716 


29708 
47108 






POP 


2233 


2977 


2985 


3327 



43718 



666 848 



29138 2964 



1700 



296$ 



24B3 



2969 



2971 



3239 



3261 







682 


7a3 




797 


839 


8«6 


899 


979 






981 


9H.9 




927 


969 


1832 


ia43 


1044 


il71 




1199 


1276 




1281 


1321 




1477 


1410 


1999 




1989 


1602 




1634 






1660 


1670 


£779 




1810 


1927 




1871 






19f9 


1912 






203) 


2040 




2077 






2137 


2140 






2180 


2184 




2391 






2376 


2419 






248} 


2538 




2639 






2774 


2778 






294i 


2942 




2960 






3090 


3063 






3J83 


3612 




3669 






3692 


3700 






3793 


3810 




3986 






3939 


3989 






4182 


4130 




4192 






4177 


42»'3 






4301 


4330 




4346 






4421 


4422 






4498 


49(!4 




4513 






4934 


4536 






462? 


4689 




4718 






4777 


4799 






9100 


9164 




9218 














661 


730 




978 






1331 


1367 




2402 


2630 


2693 


J4J'9 


9230 










1013 





















3335 



3342 



3989 



S867 



3cf 



POWOUN 


213 


2192* 


2197 


















POULP 


21968 


2200 




















pouyp 


2192 


2195* 




















PPB 


2898 


2160 . 




















PPBENO 


5371 


5378* 




















ppePHO 


2199 


2456 


4636 


9370* 
















pPBur 


5370 


5372 


9374 


9376* 
















PPERR 


2197 


2162* 




















PRINT 


241 


2153* 




















PPS 


284* 


2156 


2163 


4693 
















PR3 


297* 






















PR4 


234 


236 


239 


241 


248 


298* 












PR7 


299* 


3698 


4570 


















PRB 


283* 


2130 




















PRBEND 


5398 


9369* 




















PRBFHD 


2127 


2498 


3961 


9397* 
















PRBUF 


9357 


5399 


5361 


9363* 
















PREC2 


2924 


2939* 




















PREC3 


2926 


2933* 




















PREC4 


2928 


2931* 




















PREC9 


2929* 






















PREOT 


2129 


2143* 




















PRI90T 


1613 


1615 


1641 


1692 


£663 


1668* 












PRICM 


1611 


1666* 




















PRieOH 


1674* 


1691 




















PHljHP 


1671 


1697* 




















PRILOO 


1656* 


1662 




















PHIMOR 


1669 


1672* 




















PRINCR 


1634 


1658 


1670 


1679 


1738* 














PRINT 


1094 


1599* 




















PRISEM 


1673 


1692* 




















PRISTR 


1629 


1690* 




















PHITES 


1675 


1677 


1680 


i682 


1684 


1686 


1699* 










PRNTBl 


1600 


1607 


1610* 


169J 


1696 














PRNTOE 


2086 


210«* 




















PRS 


292* 


2120 


2141 


3719 
















PS 


296* 


3696 


4568 


















PTRINT 


239 


2126* 




















PUSH 


2231 


3312 


3330 


3333 


3340 


3.380 


3864 


3879* 








POSH! 


3328 


3339 


3865 


3885* 
















PySHF 


2975 


2983 


2?93« 


3206 
















PUTAOK 


5029 


5033* 




















PyTBYT 


2026 


2137 


3700 


4968* 


4616 














PUTCCO 


4605 


4607* 




















PyTCHA 


1636 


1660 


2419 


4102 


4130 


4139 


<1'4 


4177 43»1 


4372 


46:il« 




PUTIT 


4613 


4616* 


4620 


















PUTITl 


4997 


5025* 




















aUNULU 


3036 


30428 




















oClOTBU 


3041 


3139* 




















QUOTE 


2765 


3021* 




















OUOTPA 


4908 


4911* 




















H0 


267* 


667 


689 


690 


691 


692 


698 


715 730 


732 


734 776 7J7 




746 


749 


749 


778 


779 


781 


782 


793 810 


811 


813 91 


4 S16 



30'r 



847 


866 


967 


870 


i)82 


1089 


1089 


1086 


1116 


1118 


1149 


1215 


1217 


1272 


1229 


1231 


1237 


1247 


1293 


1299 


1297 


1263 


UH 


1289 


1291 


1299 


13J9 


1379 


tsti 

199] 


1313 


li99 


;674 


1676 
1021 


1681 


168^ 


1689 


1963 


1»»V 


1979 


1979 


19«1 


19»»2 


2013 


2014 


2016 


2090 


2060 


2066 


2069 


2072 


2091 


2096 


21i"6 


2138 


2131 


2133 


2139 


2139 


2160 


2179 


2199 


2199 


2273 


2279 


2293 


2285 


22'0 


2298 


2301 


2310 


2998 


2348 


2390 


2413 


2429 


2429 


2428 


2490 


2431 


2497 


2499 


2571 


2513 


3906 


2909 


2911 


2914 


2916 


2939 


29S7 


2544 


2548 


7549 


2551 


265IZ 


2671 


26B3 


2607 


2611 


2612 


2616 


2619 


2620 


2621 


26?3 


2624 


2630 


2631 


2632 


2633 


2a«9 


2980 


3070 


9073 


3074 


3076 


9078 


3080 


3l?'2 


9184 


3136 


31-7 


3113 


3121 


3122 


3124 


3128 


3129 


9192 


3139 


9137 


3139 


3140 


3216 


3218 


3272 


3276 


ii'S 


329* 


3290 


32«1 


3299 


3380 


3920 


3321 


3329 


3924 


39»! 


3390 


3411 


3«13 


34?B 


3421 


3424 


3444 


9449 


J448 


9480 


9482 


3494 


3496 


3497 


3499 


5672 


3511 


9512 


3919 


3929 


3930 


9941 


3942 


9949 


9948 


3950 


3951 


3552 


3616 


3639 


3623 


36.'>2 


3662 


3693 


3698 


3699 


3703 


9806 


9807 


38II9 


39"9 


3816 


3919 


3950 


3821 


3823 


3S26 


3834 


3838 


3891 


3899 


3897 


3861 


3923 


3924 


3925 


3936 


3970 


3977 


3991 


4)31 


4)91 


4092 


4093 


4060 


4062 


4096 


4098 


4l»0 


4188 


41il9 


4110 


4129 


«137 


41'1 


4173 


4179 


4189 


4219 


4220 


4229 


4226 


42?8 


4229 


4230 


42J1 


4232 


4233 


4234 


4239 


4241 


4242 


4243 


4244 


4249 


4289 


4292 


42y9 


4984 


49»7 


4471 


4479 


4417 


4420 


4423 


4424 


4425 


4426 


4427 


4430 


4475 


4445 


4449 


4454 


4457 


4469 


4479 


4488 


4490 


4499 


4497 


4499 


4502 


49J'5 


49"8 


4511 


4512 


4915 


4517 


4523 


4921 

4S12 


4933 


4999 


4947 


4580 


4686 


4690 


4767 


4792 


49iI2 


4903 


48«'6 


48P7 


•4810 


4813 


4819 


4896 


4897 


4861 


4869 


4967 


4869 


4871 


4876 


4878 


4883 


4899 


4916 


4918 


4920 


4922 


4929 


4940 


4942 


4944 


4946 


4951 


4952 


4954 


4957 


4962 


4966 


4968 


4973 


4979 


4977 


4982 


4989 


4989 


4987 


49VIJ 


4999 


4995 


5011 


9019 


902B 


9090 


9092 


9066 


9070 


9072 


5074 


9132 


!ije 


5184 


5263 


5265 


5267 


5271 


927« 


9296 


9293 


5299 


9297 


5299 


5301 


il'i 


53?9 


5910 


5912 


5914 


5316 


6918 


9320 


9322 


9992 
























R0SAVE 329* 


326 


3397 


9963 


3620 


3632 


















"1 268i> 


696 


662 


683 


684 


685 


686 


6B7 


690 


6V4 


734 


7»5 


7^7 


779 


711 


71? 


721 


723 


725 


729 


734 


740 


742 


749 


746 


7^2 


758 


7*2 


811 


817 


829 


829 


827 


829 


839 


850 


852 


666 


699 


893 


973 


973 


910 


911 


914 


917 


926 


929 


932 


934 


937 


999 


941 


944 


945 


947 


949 


991 


999 


999 


997 


960 


961 


962 


970 


972 


974 


979 


1070 


1272 


1006 


1008 


1014 


1019 


1017 


1037 


1067 


1139 


1149 


1195 


1158 


1161 


1169 


1175 


1183 


il99 


11»1 


1201 


i2S3 


1207 


1246 


1269 


1267 


1279 


1284 


t3»14 


1323 


1927 


1334 


1336 


1999 


1370 


1388 


1390 


1399 


1397 


14!>8 


1420 


1422 


14JZ 


1432 


1436 


1438 


1440 


1449 


1447 


1449 

{464 


1491 


1492 


1454 


i4'!6 


1489 


1470 


1472 


1474 


1478 


1480 


1491 


1492 


1483 


1489 


1486 


1487 


14«8 


14119 


1490 


isce 


1679 


1612 


1914 


1919 


1916 


1923 


1929 


1990 


1991 


1534 


1536 


1537 


1539 


1551 


1652 


1599 


1994 


1999 


1962 


1963 


1964 


1969 


1974 


1575 


1976 


157V 


1580 


1581 


1699 


1671 


1606 


1608 


1610 


1612 


1614 


1637 


1666 


1668 


1672 


1697 


1692 


1694 


1695 


1697 


1738 


1747 


1749 


1761 


1764 


1766 


1770 


1773 


17«1 


17115 


1789 


1757 


1799 


1870 


1802 


1806 


1807 


1809 


1812 


1836 


1898 


1845 


1874 


1886 


1989 


1919 


IV21 


1952 


1993 


1999 


1996 


2011 


2028 


2090 


2079 


2079 


21?7 


2139 


2143 


2155 


21>2 


2174 


2182 


2274 


2276 


2277 


2281 


2300 


2301 


23C3 


29C5 


2387 


2338 


2910 


2319 


2319 


2323 


2329 


2999 


2339 


2936 


2998 


233V 


2342 


2949 


2344 


2345 


2949 


2470 


2476 


2413 


2419 


2499 


2669 


2670 


2671 


2677 


2681 


27'9 


2710 


2743 


28C5 


2B79 


2910 


2811 


2812 


2820 


2829 


2831 


2899 


2869 


2877 


2879 


2891 


2899 


2913 


2955 


9021 


3024 


9029 


9091 


3033 


9066 


9089 


3209 


3210 


3214 


3223 


3236 


3986 


3389 


3475 


3406 


9482 


9497 


3901 


9902 


9908 


3910 


36»9 


36»6 


3621 


3639 


3659 


3660 


3644 


3666 


3689 


9699 


3699 


3704 


9739 


3737 


3749 


3765 


9819 


3928 


3929 


3830 


3831 


3833 


9836 


9844 


3846 


9847 


3869 


3924 


3927 


3929 


3945 


4082 


4083 


4174 


4176 


4108 


4112 


4114 


4118 


4129 


4124 


4129 


4137 


4142 


4144 


4145 


4148 


4149 


4158 



4151 


4155 


4292 


4299 


4393 


4904 


4909 


4397 


4972 


4387 


44n5 


4419 


44?t 


44'»9 


4491 


4494 


4498 


4684 


4510 


4519 


4916 


4518 


49J4 


4536 


4546 


4647 


4546 


4571 


4973 


4979 


4976 


4578 


4580 


4981 


4611 


4614 


4619 


4621 


4623 


4676 


4685 


46'1 


4714 


4719 


4727 


4728 


4729 


4730 


4732 


4739 


47J7 


4739 


4741 


4744 


4747 


4853 


4894 


4897 


4898 


4865 


4900 


4919 


4916 


4922 


4924 


4928 


4930 


4972 


4933 


4974 


4949 


4993 


4994 


4997 


4959 


4960 


4961 


4962 


4972 


4973 


4977 


4979 


49B2 


5aft3 


9069 


9066 


9076 


9086 


5109 


9119 


5112 


5114 


5116 


9118 


5129 


S172 


51?8 


5133 


9132 


9194 


5196 


9198 


5143 


9182 


5184 


5186 


5186 


6271 


5235 


5279 


5211 


5217 


9219 


9221 


5229 


9229 


5243 


9249 


5246 


5249 


5977 












HlS4ve 326« 


327 


9621 


9693 






















R2 269)1 


731 


798 


749 


790 


759 


756 


757 


7«9 


762 


764 


765 


767 


7fa 


769 


772 


774 


779 


793 


794 


799 


799 


872 


865 


SP6 


819 


613 


aia 


821 


829 


828 


829 


830 


891 


899 


834 


951 


852 


853 


354 


855 


657 


898 


899 


891 


903 


911 


913 


914 


915 


916 


917 


918 


9?9 


9?2 


9?4 


929 


931 


992 


999 


964 


967 


1902 


1979 


10'"4 


19a9 


1337 


lli39 


13«0 


1^41 


1043 


10«4 


1066 


1067 


1068 


1969 


1071 


1109 


nil 


1113 


1118 


1127 


1133 


1139 


1191 


1199 • 


1197 


1198 


1199 


1216 


121? 


1221 


1226 


1229 


1242 


1248 


1249 


1251 


1284 


1289 


1287 


1984 


1309 


1397 


1929 


1336 


1990 


1392 


1393 


1J54 


13»5 


1359 


1436 


1439 


1440 


1441 


1442 


1444 


1452 


1455 


1456 


1457 


1458 


147ii 


1473 


1474 


1475 


1476 


1922 


1529 


1924 


1925 


1526 


1528 


1937 


1599 


1541 


1673 


1675 


165a 


1651 


1694 


1699 


1659 


1779 


1772 


1779 


1774 


1793 


1793 


1915 


1818 


1863 


16''3 


1866 


1969 


1870 


1896 


1886 


1899 


1890 


1979 


19"3 


1976 


1966 


1971 


3233 


3239 


2241 


2249 


2247 


2248 


2249 


2257 


2298 


2259 


2294 


2313 


2317 


2313 


2319 


2333 


2922 


2323 


2924 


2929 


2329 


2991 


2392 


2333 


2374 


2339 


2340 


2943 


2345 


3447 


2446 


2449 


2490 


2451 


2452 


2456 


2498 


2462 


2476 


2477 


2478 


2479 


2483 


2542 


2946 


2948 


2991 


2666 


2669 


2673 


2679 


?680 


2684 


2686 


2617 


'689 


27'6 


3777 


2710 


2714 


2749 


2745 


J747 


2749 


2791 


2759 


2755 


2767 


3761 


2769 


2748 


2769 


2770 


2771 


2779 


2774 


2779 


2778 


2830 


2631 


2932 


2937 


3941 


2843 


2967 


?9'-2 


2909 


2911 


2?12 


2920 


2921 


2929 


2929 


2927 


?937 


2938 


2939 


2V«3 


2941 


2942 


3023 


3(24 


3029 


9092 


3037 


3099 


9992 


3953 


3955 


3096 


3372 


5982 


3399 


il73 


3107 


3116 


3117 


9129 


3122 


9126 


3129 


3139 


3171 


3136 


3138 


5139 


3143 


5289 


3293 


3294 


3298 


9904 


3306 


9921 


3379 


3397 


3392 


3476 


34B8 


7411 


3421 


3423 


3424 


3429 


9428 


9492 


3434 


9497 


9498 


3439 


3440 


3445 


3447 


3448 


3449 


3450 


3492 


3494 


3459 


9456 


3498 


9459 


9460 


3464 


J465 


3467 


3468 


5471 


3474 


3475 


3476 


3477 


9914 


9515 


9918 


9922 


9924 


3529 


3926 


3528 


3530 


3931 


3532 


3536 


3937 


3939 


9940 


9942 


3547 


3548 


394V 


3559 


J977 


359S 


3633 


3675 


36''6 


36'7 


360* 


3622 


3«34 


9696 


3697 


3658 


9667 


1670 


5686 


36S9 


5691 


36<'9 


3775 


37-6 


3709 


3710 


3712 


9731 


3732 


3733 


9734 


3749 


3759 


3792 


5797 


3788 


37»9 


STII 


3791 


3792 


3825 


J837 


3842 


3854 


3899 


3961 


S9?9 


3939 


3952 


3v-re 


7V42 


.(V4; 


4011 


4013 


4015 


4030 


4931 


4035 


4937 


4939 


4956 


4061 


4262 


IJPJ 


4i»i 


4?»7 


4090 


4092 


4098 


ni« 


4116 


4122 


4124 


4126 


4127 


4132 


4134 


41?4 


41f5 


AUb 


4197 


4199 


n'l 


4164 


4166 


4167 


4173 


4175 


4183 


4221 


4222 


4i25 


4331 


4344 


4947 


4414 


4447 


4492 


4468 


4483 


4486 


4579 


4973 


4576 


4511 


46?5 


46?7 


4539 


4930 


4931 


4568 


4969 


4579 


4582 


4989 


4684 


4692 


4769 


4763 


4772 


4774 


4775 


4776 


4789 


4790 


4797 


4798 


4809 


4899 


4877 


4876 


4879 


4913 


4914 


4615 


4852 


4853 


4858 


4889 


4884 


4889 


4890 


4892 


4999 


4899 


4934 


4935 


4977 


4y7S 


• 9^6 


4947 


4948 


4949 


4982 


4989 


4990 


4991 


5979 


5016 


5043 


5399 


51-1 


5272 


32:'6 


5207 


921] 


5216 


9247 


5248 


9269 


5272 


5274 


?2"2 


62B4 


52^8 


5<|93 


5J4J 


'342 


5343 


9344 


























H2S4VE 327i 


328 


3966 


3622 


3634 




















R9 270« 


787 


710 


711 


712 


713 


719 


721 


734 


725 


726 


777 


757 


758 


759 


760 


769 


770 


775 


783 


794 


785 


786 


787 


788 


793 


8''3 


a"5 


sue 


809 


936 


941 


943 


945 


1B«S 


1117 


n?i 


1123 


UJ4 


U39 


1146 


t2M 



3/0 



3// 



■ i 



1223 




1227 


1229 


1239 


1329 


1330 


1331 


1332 


1334 


1361 


1362 


1364 


1365 


t36i 




1388 


137B 


1433 


1444 


14»1 


1531 


1533 


1534 


1535 


1543 


1544 


1546 


1548 




1550 


1653 


654 


1661 . 


1776 


1777 


1822 


1825 


1629 


1631 


1632 


1834 


1859 




1861 


1869 


892 


1894 


1896 


1898 


1900 


1911 


1913 


1914 


1916 


1918 


19«4 




1947 


1948 


990 


1993 


199S 


1960 


1961 


1963 


1964 


1966 


1968 


1972 


1977 




l»80 


;98i 


(983 


2085 


2226 


2236 


2242 


2252 


2255 


2262 


2275 


2253 


2321 




2330 


2331 


2448 


2490 


2491 


2452 


2477 


2479 


2480 


25"5 


25?8 


25! 3 


25t8 




2944 


2549 


2549 


2645 


2647 


2649 


2652 


2667 


2679 


26«3 


2684 


26K5 


2686 




26V1 


2692 


2693 


2695 


2697 


2699 


27l»l 


2703 


2737 


?7'9 


2893 


Z8'9 


2913 




2916 


2916 


2929 


2931 


2933 


2939 


2954 


3023 


3033 


3056 


3057 


J0<2 


SB77 




3079 


3080 


3108 


3112 


3iiy 


3123 


3124 


3125 


3131 


3200 


3383 


3391 


3455 




3462 


3467 


3468 


3469 


3472 


3479 


3477 


3505 


3537 


3556 


3558 


3559 


3623 




3693 


3695 


3699 


3660 


3662 


3663 


3664 


3666 


3787 


37P9 


3791 


3937 


3973 




3978 


3979 


3981 


3983 


3986 


3987 


3988 


3989 


3990 


4017 


4023 


4026 


4028 




4037 


4041 


4043 


4046 


409], 


4093 


4094 


409? 


4296 


4223 


42J4 


4225 


4229 




4233 


4239 


4236 


4237 


4242 


4259 


42*2 


4264 


4266 


4267 


4269 


4315 


4318 




4324 


4334 


4336 


4338 


4340 


4349 


4331 


4399 


4360 


4361 


4362 


4415 


4423 




4429 


4432 


4433 


4437 


4439 


4441 


4443 


4499 


4459 


4463 


4464 


4466 


4478 




4481 


4482 


4488 


4493 


4939 


4971 


4972 


4573 


4575 


4576 


4578 


• 5C1 


4683 




4769 


4794 


4801 


4805 


4916 


4881 


48«2 


4884 


4886 


4893 


4695 


4^92 


4996 




9000 


$002 


9009 


5009 


9016 


9023 


5027 


5029 


5031 


5033 


5040 


ie«2 


5043 




9049 


5046 


9047 


5053 


9094 


9055 


5056 


5097 


5061 


5062 


5063 


8064 


9065 




9104 


5108 


9110 


5123 


9144 


9149 


5147 


5149 


5151 


5153 


5161 


5162 


9165 




9170 


9172 


9173 


5174 


917* 


9183 


5186 


9187 


9188 


5203 


5215 


5220 


5221 




9223 


5226 


9226 


5228 


9229 


9230 


5232 


S234 


5236 


5238 


5240 


5243 


9246 




9261 


5269 


9281 




















R3$AVE 328« 




3218 


3394 


3396 


3623 


363» 
















"4 27l« 




732 


740 


746 


759 


814 


817 


649 


946 


952 


957 


999 


961 


1013 




1142 


1205 


1269 


1798 


IB0Z 


1803 


18"4 


iBii 


2012 


2032 


2034 


2036 


2039 




2063 


2064 


2066 


2068 


2074 


2093 


2097 


2120 


21J3 


2230 


2276 


2320 


2332 




2736 


2741 


2991 


2973 


2981 


2992 


2996 


3027 


3059 


31'9 


32B5 


3211 


3220 




3290 


3311 


3326 


3359 


3360 


3361 


3362 


3371 


3374 


3393 


3409 


3435 


3983 




3429 


5637 


3863 


3881 


3884 


3887 


4016 


4024 


4026 


4029 


4095 


4100 


4260 




4263 


4269 


4268 


4319 


4323 


4327 


4339 


4337 


4339 


4341 


4350 


4363 


4413 




4431 


4438 


4440 


4442 


4444 


4456 


4461 


4467 


4492 


4495 


4519 


4523 


4929 




4528 


4530 


4607 


4611 


4611! 


4624 


4682 


4694 


4875 


48«0 


4842 


48^6 


4900 




4903 


4905 


4907 


4909 


4911 


4913 


4914 


4918 


4926 


4V37 


5176 


5124 


5126 




5134 


9135 


9136 


5151 


9174 


9179 


5262 


5280 










Fl4SAve 329« 




3421 


3636 






















H5 272« 




638 


'639 


641 


651 


692 


653 


654 


696 


661 


666 


679 


665 


691 




700 


712 


726 


730 


731 


744 


745 


760 


768 


770 


772 


776 


786 




788 


795 


798 


802 


803 


806 


8»8 


616 


830 


848 


849 


S90 


867 




872 


878 


910 


915 


916 


933 


977 


978 


1003 


1010 


1013 


1014 


1033 




1068 


1071 


1137 


1141 


1199 


1183 


1271 


1272 


1316 


1329 


1331 


1332 


133S 




1365 


1367 


1394 


1399 


1406 


1416 


1417 


1418 


1419 


1433 


1441 


1457 


1490 




1476 


1483 


1484 


1489 


I486 


1487 


1488 


1459 


1490 


1492 


1494 


1499 


1496 




1526 


1539 


1943 

£696 


1949 


1590 


1596 


1558 


1960 


1961 


1969 


1972 


1582 


1983 




1609 


;632 


1674 


1698 


1699 


1700 


1742 


1747 


1759 


1760 


1763 


1774 




1790 


i799 


{804 


1807 


1813 


1819 


1823 


1824 


1841 


1843 


1859 


1890 


1892 




1924 


1934 


{944 


2009 


2010 


2011 


2018 


2023 


2099 


2056 


2057 


2099 


2063 




2071 


2079 


J079 


2126 


2153 


2154 


2172 


2173 


2196 


2198 


2235 


2239 


2241 


2246 


2247 


2249 


2250 


2291 


2253 


2254 


2256 


2297 


2299 


2260 


2261 


^300 


2303 


2308 


2336 


2348 


2372 


2374 


2401 


2402 


24l>3 


24H4 


2405 


2417 


2423 


2425 



3/^ 



HEAD 

xeAOSA 

RCAODU 

NCADCO 

HEAOOU 

»E«OQT 

READSt 

HEADY 

SEAOVO 

IIEABY2 

REAFIN 

SEANUU 

H^ASRC 

REENAB 

"EMPAC 

RbSNEC 

RESTOR 

RETLNO 

RETRY 

RETURN 

RETVAR 

REVRSE 

RNOl 

RN02 

RNOCT 

RNOOOT 

Rt/N 

SAVCHA 

SAVE 

SAVREC 

SAVRCI 

SCANPN 

SCRATC 

SETLFE 

SIN 



2426 


2428 


2429 


2431 


2432 


2433 


2447 


2476 


2940 


2542 


2549 


2596 


2599 


2600 


2601 


2624 


2626 


2627 


2628 


2629 


2630 


2633 


2669 


2670 


2671 


2675 


2677 


2692 


2693 


2697 


2699 


2701 


2703 


2803 


2804 




2807 


2809 


2310 


2811 


2812 


2832 


2879 


2881 


2889 




2900 


2911 


2912 




2953 


2961 


2963 


2965 


2967 


2968 


2993 


2994 


3216 




3222 


3223 


3259 




32'59 


3265 


3281 


32"2 


32"6 


3268 


3302 


3309 


3306 




3320 


3397 


3363 




3394 


3396 


3438 


34?5 


3438 


3440 


3449 


3515 


3531 




3982 


3588 


3607 




36?1 


3622 


3623 


■!6?4 


3632 


3633 


3634 


3635 


3636 




3709 


3731 


3733 




3745 


3747 


3761 


37A3 


3e-"6 


3808 


3809 


3816 


3818 




3840 


3847 


3846 




3858 


3899 


3871 


3873 


3875 


3876 


3879 


3880 


3882 




3899 


3900 


3922 




39?7 


3929 


3930 


3943 


3971 


3972 


3987 


3988 


3989 




3993 


3999 


3997 




4126 


4141 


4142 


4144 


4145 


4146 


4148 


4149 


4150 




4156 


4161 


4162 




41«5 


4167 


4168 


4169 


4219 


4241 


4245 


4293 


4294 




4296 


4298 


4306 




43l'6 


4386 


4391 


4393 


4395 


4397 


4399 


4400 


4413 




4545 


4946 


4948 




4601 


4603 


4604 


46"7 


4609 


4614 


4625 


4687 


4688 




4713 


4760 


4767 




4 775 


4776 


47^9 


4792 


4794 


4809 


4892 


4896 


4860 


4970 


4992 


4996 


9026 




5040 


5042 


5360 


5061 


5ira 


'144 


5145 


9162 


5165 


9170 


5172 


9209 


9206 


5207 


5211 


9213 


5229 


5230 


5234 


5236 


5238 


5240 


5307 
























1062 


18966 


1920 
























1899 


1910 


1917 


1934* 


{962 


1967 


















1913« 


1988 


























19001) 


1949 


























1924* 


1951 


























1904 


1906 


1960» 
























1984 


i98r» 


























644 


65l» 


697 


906 


{036 


1196 


2436 


3902 


46«6 












650» 


680 


2201 
























661» 


1026 


1798 


90B5 


5095 




















1897 


1949« 


1957 
























1975 


19856 


























1899 


19446 


























3694 


37096 


























4902 


4956 


4967 


4969 


49726 


9075 


















4690* 




























1099 


13166 


























9061« 


9176 


























48646 


4889 


4891 


4894 






















1095 


13996 


























5024 


5051 


50606 
























3377 


33856 


























78 


3336 


334 


977 


978 


2598 


















78 


334* 


335 


2599 






















3396 


336 


977 


3899 


4629 




















923 


9776 


























861 


9096 


























77 


4409 


4544* 
























862 


8696 


























3818 


3922 


4371 


4386 


4949 


4601 


4682* 
















2009 


2055 


2126 


2153 


2172 


4680* 


















881 


889 


4713* 
























641» 


864 


























2087 


21036 


























60 


3171 



























J/3 



SiNfM 


J781 


317H 


























SKJPOl 


<rj9« 


4731 


4746 
























SK|Pe2 


472»» 


4739 


4749 




















» 




SKIPBS 


4727* 


4733 


























SKIPEO 


7B3 


719 


839 


927 


1132 


1439 


1994 


4730lr 


4740 


4742 


4749 








SKIPHI 


4734 


4744» 


























SKIPRT 


4736 


479011 


























SKIPTX 


47471 


4748 


























SLUSH 


2949 


2980( 


























SOPR»T 


74 


2827 


3044 


3064* 


3085 


3098 


3141 


3561 














SOPRX' 


307J 


3091« 


























SP 


273« 


638 


641 


«»1 


661 


684 


686 




697 


743 


756 


»18 


647 


878 




1«S2 


1111 


1116 


1117 


U23 


1132 


1139 




1137 


1141 


1142 


1143 


1148 


1149 




lift 


ll'l 


1209 


1207 


1214 


1215 


1216 




1218 


1221 


1233 


1240 


1244 


1246 




1247 


1262 


1263 


1269 


1271 


1272 


1273 




13»i2 


13tl3 


1388 


13«9 


14«1 


14»2 




1491 


1492 


1494 


1499 


1496 


1501 


1909 




1512 


1513 


1514 


1915 


1916 


1992 




155J 


1594 


1999 


1596 


1558 


1560 


1561 




1963 


1564 


1965 


1977 


1979 


1980 




U»t 


1592 


1993 


J,650 


i768 


1769 


1776 




I7l«9 


1797 


1798 


18tl 


1812 


1813 




l«29 


1931 


1840 


1963 


1864 


1965 


1966 




1869 


1873 


1876 


1S78 


1911 


1913 




1958 


1996 


1968 


1969 


1970 


1971 


1972 




1974 


1977 


1976 


1979 


1»»5 


i^n 




2196 


2226 


2237 


2238 


2273 


2274 


2280 




22«9 


2349 


2390 


24fi0 


24?2 


2644 




2690 


2693 


2669 


2666 


2667 


2668 


2672 




2678 


2679 


2680 


26«1 


2687 


2695 




27tl9 


2706 


2711 


2714 


2736 


2738 


2740 




2867 


2881 


2995 


29?2 


2920 


2938 




2991 


2991 


J»»» 


2994 


2988 


2990 


2993 




3B?7 


3029 


3030 


3031 


3032 


3839 




3137 


3040 


3042 


3043 


J059 


3061 


3062 




3068 


3070 


3071 


3072 


3073 


3BI77 




3189 


3095 


3097 


3099 


3102 


3103 


3104 




31fi9 


3111 


3112 


3113 


3114 


3116 




3119 


3120 


3123 


3126 


3127 


3135 


3136 




3173 


3179 


3178 


31(10 


3183 


32:t0 




3210 


3211 


3212 


3213 


3214 


5215 


3217 




32?0 


3221 


3245 


3247 


3249 


3260 




3263 


3309 


3J69 


3373 


3389 


3386 


3387 




33»9 


33»B 


3391 


3392 


34H9 


3413 




3420 


3435 


3437 


3439 


3444 


3496 


3457 




5464 


34S9 


3470 


3471 


3496 


35?! 




3907 


3510 


3911 


3912 


3513 


3914 


3529 




35?a 


3529 


3540 


3941 


3551 


3598 




3977 


3578 


3982 


3990 


3624 


3636 


3657 




3670 


36S6 


3691 


3698 


37I>3 


3979 




3901 


3082 


3883 


3885 


3886 


3998 


401S 




4017 


4024 


4028 


4029 


4030 


4039 




4040 


4041 


4042 


4044 


4046 


.4047 


4049 




4220 


4228 


4231 


4237 


4243 


4299 




4261 


4269 


4267 


4294 


4298 


4306 


4314 




43?5 


4329 


4342 


4353 


4355 


4356 




4398 


4359 


4360 


4384 


4385 


4470 


4471 




4473 


4474 


4475 


4476 


4481 


4920 




«»41 


4569 


4982 


4589 


4602 


4619 


4628 




46"1 


4692 


46fl3 


46«4 


4685 


46?6 




4697 


4688 


4689 


4690 


4691 


4692 


4693 




46''5 


48ai 


48»i2 


48J5 


48I>6 


4S31 




4833 


4835 


4837 


4838 


5070 


9074 


9137 




92CI 


92(12 


52C>3 


52-4 


521-8 


»2«9 




9214 


5215 


9216 


9217 


5219 


9232 


9242 


5245 


9249 


9277 


5278 


5279 


52«0 


93J'4 




9317 


9324 


9329 


9326 


9327 


9328 


5329 


9330 


5331 


9332 


■5333 


5334 


5336 


9338 




9339 


9344 


























SP«RE 


391* 




























SPECME 


2I66» 


2094 


2098 


2101 


2104 




















SQRFN 


2793 


3175i 


























SORT 


6« 


3175 


























SSJStV 


317i 


318 


1406 


],416 


1483 


1484 


1496 


1584 


3733 


3747 


4767 


4792 






SS2SAV 


31811 


319 


1417 


!,489 


I486 


1499 


1596 


1558 


1969 


1572 


3734 


37f3 


4769 


4794 


S AR 


2944 


29721 


























S ARl 


29790 


2997 


























START 


66 


200 


6371 
























STOAOK 


9163 


91670 


























STOCOM 


4771 


477J 


4779* 

























3/y 



S OLNO 


9146 


5l55» 












S OMHC 


4796 


4801« 












5T0N0S 


4768 


47720 












STOP 


1096 


11910 












STOSSN 


4793 


47970 












STOSTR 


49180 


4923 












STqSVA 


1177 


1872 


1987 


47890 








s osx 


4811 


4816' 












STOTXT 


49750 


4978 












ST0V4R 


72 


1171 


1417 


1585 


1831 


1912 


4760« 


siovco 


4804 


48110 












5T0VTA 


4799 


4805* 












5TPR0 


76 


31340 


3962 










STRCAR 


2907 


30500 












STRGBT 


3091 


3054 


30960 










STBCJM 


2838 


28470 












STRCVA 


2847 


31520 












sQbint 


4832 


48350 












SUBSTK 


1281 


1498 


1966 


2960 


48310 






SYMBOL 


307* 


308 












S,ai01 


2029 


21320 


2033 










S,0102 


203611 


2037 












Tl 


75 


3300 


331 


4549 


4861 


4970 


9060 


T2 


75 


331* 


332 


4546 


4548 






t3 


75 


3320 


333 


1759 


1763 


1779 




TAB 


291» 














TABl 


46H 


46340 












fAe2 


4624 


46920 












TA83 


3924 


3956» 












TABLS 


1605 


t643« 












tABLEl 


1041 


10450 


1046 


1147 


1048 


1049 


1050 1051 




1158 


1059 


1060 


1061 


1062 


1063 


1064 1165 


tablez 


29430 


2944 


2945 


2946 


2947 


2948 


2949 


tABLE4 


995 


8il« 


861 


862 


863 


864 


865 


TABLE9 


71 


2771 


27790 


2781 


2782 


2783 


2794 J745 


TBLIEN 


1041 


10650 












TBL4EN 


855 


8650 












tBLSEN 


71 


2771 


28020 










TERHIN 


2949 


29570 












TKB 


279* 


2113 












tKS 


65 


2790 


2038 


3719 








TPB 


65 


2810 


2135 


2072 








TPCN 


2089 


2191» 












TPCO 


2092 


20950 












TPHO 


342« 


343 


2079 


2476 


4634 






TPINT 


236 


20550 












tPNXT 


2098 


20620 












TPS 


280< 


2012 


2082 


4652 








THAN 


682 


1810 


4892* 










THANUI 


4e60( 


4910 


4929 


4931 


4990 


4964 


5140 


TRANVA 


4861* 


4862 


5068 










THrNBA 


4943 


4945 


4991» 










TRNER4 


5133 


5139 


5l4l» 


9189 









1052 



1054 



3/6' 



TRNfN 


49^4 


494B* 








TRNfC 


4875 


4880 


48828 






TRYiCN 


4S>3< 


4897 








THYECH 


t»»i 


2e7S« 


2896 






TRTKHO 


4878 


4872 


4;7:« 






TRYNUB 


4ai4 


4867» 








IRYSVA 


;b06 


Ulf 








TSTSl 


2990* 


2995 








TSTS2 


8989 


2998i 








TSTSTK 


2974 


2982 


89eBi 






TYPE 


2g«9« 


2B»X 


2898 


2187 




TYPEl 


Uil 


287B 


Z872» 






u*t 


384« 


3248 


3254» 






U«IS 


3296 


32868 








UA1B» 


3295« 


3381 








U«teB 


329* 


33828 








uAiec 


3303 


3385» 








U*1B,5 


3887 


3292 


3297 


3299 


3389* 


UAiZ 


33t« 


33158 








U»17 


3864 


33288 








U»17» 


3322 


3324« 








UA178 


332»« 


3338 








UAt70 


3329 


33328 








UA17F 


3332 


33378 








UAt9 


3338 


33438 








UA?e 


33» 


337J8 








UA21 


334711 


3378 








UA2] 


3313 


3376* 








UA« 


326«« 


3283 








UAS 


3258 


32638 


3387 






UAa 


3267« 


3277 


3279 


3317 




UA9 


3266 


32818 


3316 






UAASR 


3329 


3397» 








UAJNP 


3313 


3336 


3398 


33618 


3364 3367 


UANJMP 


3389f 


3365 


3368 






UATSTB 


3332 


33638 








UATSTZ 


3338 


33668 








UAYSTA 


3369* 


3378 








UiNTEG 


2968 


29658 








UMINUS 


274t« 


2754 








UNARY 


2947 


2»6H 








UPARRO 


2943 


32498 








UPPACK 


797 


9038 


9164 


92818 




UPPSAD 


9211* 


9831 


9239 


9239 


9241 9244 


UPPGOO 


8833 


9237 


9242* 






UPPIOO 


9288< 


9812 








UPPNiR 


921) 


92198 








USRARE 


67 


637 


2018 


2896 


2194 2175 


YAI. 


77 


9(71 


92998 






VARBkE 


2744 


28308 








VARNOS 


2848 


2844 


2911» 






VARSAV 


316« 


317 


!?»» 


1498 


{476 1943 


VARSRC 


4996* 


9881 


9818 


9812 


9017 9019 



9891 



2t«6 



1790 



1815 3731 4761 4789 



Jji> 



VARSS 


2834 


2869* 


























vERNuM 


2288 




























VONESS 


2878 


28988 


























VTWOSS 


2896 


29018 


























HTRET" 


3981 


39838 


























XCHAR 


3690 


36988 


























, 


199« 


2814 


282 


203* 


204 


2894 


286 


287i« 


2104 


2284 


221 


2224 


223 


227* 




233* 


2398 


237« 


2404 


246t 


2938 


294 


299« 


2984 




735 


741 


747 


763 




766 


771 


773 


776 


780 


789 


804 


812 


815 




622 


86a 


1220 


1224 




1228 


1238 


t«49 


1290 


{286 


1386 


1493 


1947 


1597 




1643 


16?7 


1678 


1601 




1888 


1862 


1?19 


1946 


{965 


2278 


2299 


2306 


23119 




2619 


26?5 


2634 


2646 




2690 


2718 


2776 


2B02 


2906 


3026 


3133 


3281 


3433 




3984 


151«6 


3523 


3560 




3781 


3984 


4025 


4049 


4897 


4088 


4097 


4176 


4227 




4397 


45JI1 


45!"7 


45V9 




4922 


4524 


4926 


4932 


4855 


4899 


4896 


4912 


4936 


4941 


4984 


4994 


5227 


5250 




5264 


5294 


5311 


5319 


9363 


93644 


5365 


9376 


!377« 


537B 


5393 


93944 


9395 


5399 




5481 


54B2» 


























,ABS 


428» 


429 


978 
























,4HPER 


391» 


392 


481 


3064 


3866 




















,»SC 


439* 


436 


S82 
























,ATN 


425)1 


426 


964 
























,CALt 


389« 


390 


590 


9116 






















,CHRJ 


436« 


437 


5B4 
























.CLEAR 


4924 


616 


























,COUON 


417f 


418 


589 


4688 


1766 




















,50MMA 


75 
1919 


48411 
2879 


485 
3480 


485 

3792 


949 


970 


1618 


1672 


1825 


1832 


1836 


1874 


1898 


1916 


iCOS 


423* 


424 


960 
























,DATA 


3688 


389 


54a 


1948 






















.OEP 


3e6» 


387 


944 


920 






















,q\n 


382* 


383 


996 


919 






















,OQUOT 


415i 


416 


505 


4903 


2763 


4909 


4928 
















,ES 


488« 


489 


























.El. 


48611 


407 


























,EN 


4188 


411 


























.END 


371« 


372 


604 
























.EOF 


390« 


391 


679 


709 


719 


823 


878 


924 


1015 


1445 


1990 


38?7 


4087 


4116 


,EOL 


79 


37e» 


371 


479 


883 


972 


979 


J169 


1175 


1383 


1399 


1420 


1430 


1478 




1686 


1614 


1668 


1699 


1777 


1834 


1838 


1882 


1896 


1914 


1921 


2914 


35!:8 


40S5 




4739 


4665 


4933 


4980 






















.eq 


413« 


414 


903 


1161 


1203 


1257 


1267 


1397 


1941 


2927 


2929 


3499 






,EXP 


426III 


427 


966 
























,FL1T 


453« 


2749 


398], 


4090 


4132 


4732 


5182 
















,FN 


419t 


428 


592 


1000 


2797 


4186 


4737 


4903 














,FOR 


372i 


373 


524 


1449 


1928 




















.°c 


487f 


488 


4»1 


493 


1255 


1389 


















.SOSUB 


373» 


374 


934 


1327 


5112 




















.GOTO 


374« 


375 


522 


1291 


1287 


1387 


2916 


9114 














.GT 


412» 


413 


581 


1311 






















.IF 


3794 


376 


528 
























,IL1T1 


454# 


937 


953 


2745 


3979 


9128 


















,IL1T2 


4554 


939 


955 


2747 


3983 


4134 


4744 


5130 














.INPUT 


376* 


377 


538 
























,INT 


4294 


438 


572 

























3/7 



lue 


4ISi 


406 


407 


409 


i201 


1253 


1269 


,I.EN 


4341 


4J5 


900 










.UET 


377i 


370 


919 










.I.UT 


4«H 


440 


606 


993 


5120 






,toc 


427» 


420 


969 










,1,F«R 


73 


4140 


419 


479 


513 


934 


1006 


iLT 


4ll» 


412 


499 


1291 








,"INUS 


397» 


390 


467 


2793 


2925 


2931 


3979 


.NE 


4e9f 


410 


499 


497 


1293 


1313 




,NEXT 


3r«« 


379 


929 


1447 


4104 


4739 


490? 


,NV»R 


saiK 


904 


2317 










,0L0 


490« 


491 


612 










.PUUS 


395« 


396 


469 


2795 


3973 






,POS 


437i 


430 


99t 










.POUND 


41«« 


419 


Sll 


1999 


i761 


4715 




.PRINT 


379» 


300 


940 










,K»N06 


3S3< 


394 


999 


922 








.HEAD 


3a7« 


399 


946 










,HtH 


39»» 


396 


942 


4901 








.HESTO 


3g4« 


399 


600 










."ETUR 


3B0« 


391 


936 










,RNO 


421» 


422 


996 










.^NOU 


A2a» 


421 


994 


2769 








,RPAR 


73 
3750 


4000 

3765 


401 


477 


515 


947 


962 


.RUN 


44a» 


449 


600 










.SAVE 
.iCALA 


449« 


490 


610 










300t 


692 


n3 


727 


931 


971 


1069 




3S22 


3609 


4011 


4127 


4157 


4713 


4772 


.SCR 


45l» 


492 


614 










.see 


43e> 


439 


999 










.SEN I 


3'9<i 


400 


493 


1612 


4692 






.SCN 


430* 


431 


974 










.SIN 


4Z2« 


423 


J»9 










.SCASH 


394» 


395 


471 


2923 


2933 






,50R 


4J4« 


429 


962 










.souoi 


416* 


417 


907 


1909 


2761 


4907 


4911 


.STAR 


393* 


394 


469 










.STEP 


402l» 


403 


932 


1422 








.STOP 


301* 


392 


602 










,STR 


440i 


441 


992 










.SVAR 


302* 


1395 


1944 


1793 


£910 


2294 


2313 




4193 


4763 


4790 


9005 


5053 






.TAB 


43U 


434 


976 










.TERM 


3900 


399 


2739 


30*0 








ItEXT 


4S60 


1961 


3021 


4915 


4935 


4930 


4972 


.THEN 


4030 


404 


930 


1249 


1205 


1305 


51U 


.10 


4010 


402 


926 


1400 








,«NART 


3960 


397 


2740 










,«PARR 


3920 


393 


473 


2910 


2921 


2935 


2939 


,VAk 


4390 


440 


990 










(AOR 


99 


2232 












SDVR 


90 


2994 


3341 











2920 2B7! Z877 2891 32ff3 3236 3494 



1442 1946 2417 26SI3 2611 2941 3432 
4999 5J47 9196 5147 



4913 4914 4930 



2607 ?9S7 29P5 3428 3452 3519 •B'6 



3/r 



SErvEC 




2229 


2972 


2980 


3176 


3181 


3194 


3294 














IIR 




2991 


3291 


3375 


3584 


3592 


















SkONCE 




996 


992 


999 


i0l8 


1021 


1339 


1342 


1348 


1391 


1378 


1381 


1461 


1464 




1500 


1591 
2S9? 


1790 


1753 


i946 


1849 


1926 


1929 


1936 


1939 


2393 


2356 


23"2 


23»5 




2400 


2960 


2051 


2854 


3010 


3013 


3007 


3090 


3148 


3151 


3l«2 


3165 


32f6 




3271 


3340 


3391 


3486 


3409 


3947 


3990 


4065 


4068 


42119 


4212 


4289 


4657 


4660 




5077 


5090 


9097 


9090 






















SWPBSi 




9394 


























JHUR 




2976 


3331 


3334 


3301 




















SNOUPT 




250 


2169 


2461 


2574 


2577 


4642 


4646 


9383 












SNOPOH 




216 


2198 
























JNOPTP 




243 


2119 


2147 


2455 


2968 


2971 
1165 


2982 


29B9 


3960 


463S 


4638 


5353 




INOSTR 




444 


978 


792 


1079 


1009 


1174 


1210 


1276 


1298 


1373 


1482 


1412 




1426 


1617 


1629 


1649 
1760 


1703 


1792 


1917 


1950 


1»1"2 


1999 


2293 


2312 


2326 


2362 




2606 


2614 


2696 


2791 


2016 


2024 


2836 


2846 


2861 


2970 


28«4 


29?4 


2997 




3020 


3049 


3146 


3187 


3194 


3226 


3232 


34B0 


3416 


3427 


3443 


3517 


3534 


3J55 




3740 


3796 


3770 


4019 


4055 


4179 


4102 


4189 


44!>4 


4543 


4762 


4/79 


4783 


!>aP'4 




9014 


5026 


9036 


9049 


9196 


9160 


9192 
















9P01.SM 




3963 


























JPPBSI 




9377 


























SPR0S! 




5364 


























IPRORO 




298 


























ssaR 


59 


3066 


























SSTKSi 


79 


84 



























s J/f 



»SSSBIi893aeB 
B3SeBBBa38B3 
eessBeBsessB 
3SB sea 

B8B BBB 
BBB BBB 

BBB SB6 
99B BBB 
BBB BBB 

BBBBBBBBBBBR 
9BBB8B9B3BBB 
BBBBSBBBBBBB 
BBB aSB 

BBB BBB 
BBB BBS 
BBB BBB 
BBB BBB 
BBS BBB 
BBBBSBBBSBBB 
BB8BBBB3BBBB 
BSBBBBBBBBBB 



ti«A*AAAA 

tAAAAAAAt 

AAAAAAAAA 
AAA AAA 

AAA AAA 

AAA AAA 

AAA AAA 

AAA AAA 

AAA AAA 

AAA AAA 

AAA AAA 

AAA AAA 

AAAAAAAAAAAAAAA 
AAAAAAAAAAAAAAA 
AAAAAAAAAAAAAAA 
AAA AAA 

AAA AAA 

AAA AAA 

AAA AAA 

AAA AAA 

AAA AAA 



ssssssssssss 


mil 


III 


cccecccccccc 


HHH HHH 


ssssssssssss 


tint 


in 


CCCCCCCCCCCC 


HHN HHH 


ssssssssssss 


mil 


III 


cccecccccccc 


HHH HHH 


sss 






ccc 


HHH HHH 


sss 






ccc 


HHH HHH 


sss 






ccc 


HHH HUH 


sss 






ccc 


HHH HHH 


sss 






ccc 


HHH HHH 


sss 






ccc 


HHH HHH 


sssssssss 






ccc 


'HHHHHHHHHHHHHHH 


sssssssss 






ccc 


HHHHHHH^HHHHHHH 


sssssssss 






ccc 


HHHHHHHHHHHHHHH 


sss 






ccc 


HHH HHH 


sss 






ccc 


HHH HHH 


sss 






ccc 


HHH HHH 


sss 






ccc 


HHH HHH 


sss 






ccc 


HHH HUH 


sss 






ccc 


HHH HUH 


ssssssssssss 


inn 


ni 


CCCCCCCCCCCC 


HHH HUH 


ssssssssssss 


inn 


in 


CCCCCCCCCCCC 


HHH HHH 


ssssssssssss 


inn 


in 


CCCCCCCCCCCC 


HHH HHH 



OOOOODDOOODO 
DDODDDOOOOOO 
OOOOOOOODOOO 
DOD ODD 
DSD ODD 
DOD ODD 
DOD ODD 
DOD DOD 
ODD DOD 
ODD DOD 
ODD DOD 
ODD ODD 
ODD DOD 
ODD ODD 
ODD DOD 
ODD DOD 
ODD DOD 
ODD ODD 
ODOOODDDODDD 
OOOODODODODO 
DOOOODOOOODO 



RRRRRRRftRRRR 
RRRRRRRRRRRR 
RRRRRRRRRRRR 
RRR RRR 

RRR RRR 
RRR RRR 
RRR RRR 
RRR RRR 
RRR RRR 
RRRRRRRRRRRR 
RRRRRRRRRRRR 
RRRRRRRRRRRR 
RRR RRR 
RRR RRR 
RRR RRR 
RRR RRR 
RRR RRR 
RRR RRR 
RRR RRR 
RRR RRR 

RRR RRR 



KKK 


KKK 


KKK 


KKK 


KKK 


KKK 


KKK 


KKK 


KKK 


KKK 


KKK 


KKK 


KKK 


KKK 


KKK 


KKK 


KKK 


KKK 


KKKKKKKKK 


KKKKKKKKK 


KKKKKKKKK 


KKK 


KKK 


KKK 


KKK 


KKK 


KKK 


KKK 


KKK 


KKK 


KKK 


KKX 


KKK 


KKK 


KKK 


KKK 


KKK 


KKK 


KKK 



LRTSRL V«f»|i>n 4(1S6) Running on UPTi 

•START. UMr BEAN, ROBERT E2B>itB69) J»B 9ASICL Stq, 4«4] D>t« 83iH«f,73 aBlZBUl Honltor 
Rtautat eraattdl 22>Htp.73 ZSlSyliis 
r\\t\ DSKS3IBASlCH',DRKC2«9|lBt9] trttttil i2«M>r<73 9BIIB|Bg <X97> pplnttd! 2S>nif73 a0l40t;g 
QUEUE Saltontal /RRINTlARRO" /riUEjASCll /C0PIES|2 /SPACINSIX /L1HIT|T4« 
rii* Hill b> RCNAMEa to <l!7> protiotlon 



Pr547C «4e*t35 •START. NottlBEAN 



3i^o 



BSBBBBBBBBBB 

BBBBBBBBB9BB 

BSBBBBBBBBBB 

BBB 

BBB 

BBB 



BBB 
BBB 
BBB 



BBB BBB 
BBBSBBBBBBBB 
BBBBBBBBBBSB 
BSBBBBBBBBBB 



BBB 



BBB 



BBB BBB 
BBS BBB 

BBB BBS 
BBBSBBBBBBBB 
BSBBBBBBBBBB 
BBBBBBBBBBBB 



AAAAAAAAA 
AAAAAAAAA 
AAAAAAAAA 
AAA AAA 
AAA AAA 
AAA AAA 
AAA AAA 
AAA AAA 
AAA AAA 

AAA AAA 

AAA AAA 

AAA AAA 

AAAAAAAAAAAAAAA 
AAAAAAAAAAAAAAA 
AAAAAAAAAAAAAAA 
AAA AAA 

AAA AAA 

AAA AAA 

AAA AAA 
AAA AAA 

AAA AAA 



SSSSSSSSSSSS 
SSSSSSSSSSSS 
SSSSSSSSSSSS 

sss 

sss 

sss 

sss 

sss 

sss 

sssssssss 
sssssssss 
sssssssss 

sss 
sss 
sss 
sss 
s«s 
sss 

ssssssssssss 

ssssssssssss 

ssssssssssss 



III 

in 
in 



in 
III 
in 



in 


CCCCCCCCCCCC 


HHH 


HHH 


in 


CCCCCCCCCCCC 


HHH 


HHH 


in 


CCCCCCCCCCCC 


HHH 


HHH 




ccc 


HHH 


HHH 




ccc 


HHH 


HHH 




ccc 


HHH 


HHH 




ccc 


HHH 


HHH 




ccc 


HHH 


HHH 




ccc 


HHH 


HHH 




ccc 


HHHHHHHHHHHHHHH 




ccc 


HHHHHHHHHHHHHHH 




ccc 


HHHHHHHHHHHHHHH 




ccc 


HHH 


HUH 




ccc 


HHH 


HHH 




ccc 


HHH 


HHH 




ccc 


HHH 


HUH 




ccc 


HHH 


HUH 




ccc 


HHH 


HHH 


in 


CCCCCCCCCCCC 


HHH 


HHH 


MI 


CCCCCCCCCCCC 


HHH 


HHH 


in 


CCCCCCCCCCCC 


HHH 


HHH 



ODOOODODDODD 
ODDDDODODODO 
DDDDOOOODOOD 
ODD COO 
ODD ODD 
DOD ODD 
DOD 000 
ODD ODD 
ODD ODD 
ODD DOD 
000 DOD 
ODD ODD 
ODD ODD 
DOO ODD 
DOD ODD 
DOO 000 
ODD DOD 
DOD DOD 
OOODDODDOODO 
DODOOOODDOOO 
DDDODDDDDDOD 



RRRRRRRRRRRR 
RRRRRRRRRRRR 
RRRRRRRRRRRR 
RRR RRR 

RRR RRR 

RRR RRR 

RRR RRR 
RRR RRR 
RRR RRR 
RRRRRRRRRRRR 
RRRRRRRRRRRR 
RRRRRRRRRRRR 
RRR RRR 
RRR RRR 
RRR RRR 
RRR RRR 
RRR RRR 
RRR RRR 
RRR RRR 
RRR RRR 
RRR RRR 



KKK 


KKK 


KKK 


KKK 


KKK 


KKK 


KKK 


KKK 


KKK 


KKK 


KKK 


KKK 


KKK 


KKK 


KKK 


KKK 


KKK 


KKK 


KKKKKKKKK 


KKKKKKKKK 


KKKKKKKKK 


KKK 


KKK 


KKK 


KKK 


KKK 


KKK 


KKK 


KKK 


KKK 


KKK 


KKK 


KKK 


KKK 


KKK 


KKK 


KKK 


KKK 


KKK 
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• START, Uaaf BEAN, ROBERT tMi,S.iHl JoD BASICU Sag, 494^ Data 2]iMap.73 (10120191 Henltor 
Raouaat cpaatadi 22-m«m73 23i57i28 

rilei OSkB3ibaSiCh;oRk{2"iI»»'3 Cpaataai 22.MaP»73 g)!Be|Bg <157> PFlntadI 23. B, p. 73 efMliSi 
QUEUE SHitonasi /PRINTIARROH /FltElASCII ;C0PIE>|2 /SPAC1N5II /L1H1T|74« 
flla will it RENAMES t» <a57> protaetlon 
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BASICH HtCXll ve21 22:H«R>73 tSM; PAGE 1 



( B*SIC/»TS PARTJ.B«SICH 

I 

I 0EC>tl*LPTBik«A-k*3 

I 

I eoPYRlSHT t»TJ 

I 

I OteiTAt EoulPHENT CgBPOHATION 

I HAVNARDi MASSACHUSETTS 017''! 
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It 
12 

13 

14 
15 
16 
17 
15 
1» 
2B 
21 
22 
23 
24 
25 
26 
27 
28 



, TITLE SASICM VB01A EDIT ,020 (HEP) 01/31/73 
PASie SOURCE riLE «15 



USER AREA AND ONCE'ONUT INIT, CoOE', 

To BE LINKED LAST AFTER SASICL AND PpMp.n To foRH BASIC, 



3Ai 



UASICH HACXlt 192X :2>n«R>73 19|49 H,K 9 



29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
3» 

4e 

41 
42 
43 
44 
45 
46 
47 
48 
49 
ft 
5t 
52 
S3 
54 
55 
56 
57 
5S 
59 
60 
61 
62 
63 



I SLOBiCS 
I 



.SkOSI. 
,lil.OBI. 

iGtoei. 

,GL08L 
,01.081. 
,OI.OBU 
iSUOBU 
.GLOBL 
• GLOBI. 



TPBi IKS 
Jt«HT| rULCO 

USBARM 

LJMIT, POU, JRRAVS, 'OSIZE 

T4B1.E5, T8U5EN0 

couuHNi r»ei, »'Ai:2, ,rpar 

JRRMtX, EHRPOL, tRRSVNi ERRAR5 

EVALi 1NT| M4KEST, OPRATO, SOPRAT 

iSOIiMA, n, T2, T3 

ARGB, SAV(I4AR| NUNSO», STPRO 

NORHi VAL 

RNDti RN02 

$STKS< iirPMP 



I ASSEHBLV paraNETCrB 
I 

iirNOF iTpB;i! itelcpruiter Buffer sibe 



ITPBSZ «2e 

,ENOe 



ICUARACTERS 



SKBBS2 420 

,ENOC 



, IFNOF SKBBS< IKEYBqARO BuFF', SUE 
ICHARACTERS 



SULNSP 'iza 

,ENOC 



IFNOF tyUNSP IUSER LINE SPACE 
(BYTES 



jpy 



BASICH MACXll 

64 
65 
66 
67 
68 
6» 
70 
71 
72 
73 



V021 22.NAR.73 15145 


PAOE 4 


000000' 




.OBECT 


000000 


R0 


•X0 


Z00B01 


Rl 


•XI 


000002 


R2 


• X2 


000003 


r3 


• %S 


000004 


r4 


•X4 


0000PS 


r5 


• »5 


000006 


SP 


•«6 


000007 


PC 


■«7 


000040 


BL 


■ 40 



75 
76 
77 
78 
79 
60 
81 
32 
89 
84 
85 
36 
87 
88 



91 
92 
93 
94 
95 
96 
97 
98 
99 



100 
101 
102 
103 
104 
105 
106 
107 
108 
109 
110 
111 
112 
113 
114 
115 
116 
117 
118 



000000' 000000 



000002< 004737 0000000 

000006' 103452 

000010' 122127 0000000 

000014' EI01049 



USRAREAI,MOR0 

BASICHI 

IRND FUNCTION •• GENERATE RANOOH NUMBER 

I ICAN PAST ARO If PRESENT 



000016' 
000020' 

000024' 

000026' 
3000301 
000032' 
0000341 
000036' 
0000401 
000042' 
000044' 
000046' 
000052' 
000054' 

0000;«< 

000062' 

000064' 
000066' 



000072' 
000074' 
000076' 
000100' 
000102' 
000104' 
000106' 
000110' 
000112' 
000114' 
000120' 
000124' 
000130' 
000134' 



310530 
062700 
311003 
314032 
306333 
306132 
362002 
361003 
305502 
361032 
103032 
362732 
310310 
313240 
312730 
306303 
306132 
103432 
305330 
000773 
105003 
150203 
000303 
105002 
150002 
300302 
306002 
?06033 
313265 
013365 
003137 
000137 
000137 



000201 



3000000 
00000BO 



RNOLFN) JSR 
BOS 

CURB 

BNE 

RNOFNI 

RN6FN2I H0» 
ADO 
MOV 
NOV 
ASl 
ROI, 
ADD 
AOO 
AOC 
ADO 
BPt 
ADD 

RPLUSI MOV 
MOV 
MOV 

RNORMI ASL 
ROt 

acs 

DEC 
BR 

CLRB 
BIBB 
SHAB 
CLRB 
BISB 
SHAB 
ROR 
"OR 
MOV 
MOV 
JMP 
ERRNOSI JHP 
ERRNOAI JHP 
RN6FNEI 



REXPI 



P5,»»tVAL 
ERRNCA 
(H1)*,|I,RPAR 
EHRNOS 

R5,R0 

«HND2iR0 

•R0,R3 

•(RB)|"R2 

R3 

R2 

(R0|4|R2 

•R0,R3 

R2 

•R0,R2 

RPI.US 

• ),0il000iR2 

RJlBRD 

R2l><H0) 

»201lN0 

R? 

R2 

RfXP 

R« 

RNORM 

RI 

R2|R3 

R3 

R2 

RB,R2 

R2 

R2 

R3 

R2,rAft(R5| 

R3|FA;2|R5) 

••OPRATOR 

•RERRfVN 

••ERRARO 



IMULT BY 2 



INOK BY 2><16«3 

I GET 24<32«G 

ISTORE NEU GENERATORS 

IINITIAL EXPONENT 
IFLOAT RESULT 

IJUHP WHEN LEADING BIT FOgNO 
(ADJUST EXPONENT FOR SHIFT 



(INSERT EXPONENT INTO RESULT 



(INSERT • SIGN 



3JS^ 
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n» 








lAiS FUNCTION 


ROUTINE 


128 


88814) 


884737 


0088886 


ABSFnI 


J$R 


p;,*t{vAL 


121 


888144 


103438 






BCS 


ERABSA 


122 


888146 


122127 


080888C 




CMPB 


(Rt)*l*,RPtR 


123 


808192 


001127 






BNE 


ERABSS 


124 


888194 


009769 


0B0080C 




TST 


rAei<R9) 


125 


888168 


081409 






BEa 


AB8INT 


12» 


888162 


180017 






IPL 


ABSX 


127 


080164 


042765 


100000 008088G 




B|C 


•t888)8,FAei(R9| 


12a 


888172 


080413 






BR 


ABSX 


129 


880174 


889765 


000080G 


ABSlNTl 


T$T 


FAe2(R9) 


138 


888208 


188818 






BPl 


ABiX 


131 


888202 


085469 


080800G 




NEO 


F«CJ(R9» 


132 


088206 


182805 






Bve 


ABSX 


133 


080218 


312765 


044008 000008G 




NOV 


*44888|FA(tlR9l 


134 


000216 


089069 


0000801: 




Cl,R 


FAS2IK9) 


135 


000222 


090137 


0000881 


>BSXI 


JHP 


HOPRATOR 


136 


080226 


B801J7 


0008880 


ERiBSAI 


JM' 


••ERRARG 


137 
13a 


080232 


080197 


008eeeG 


ERtBSSi 
ABSFNEl 


JHP 


MERRSTN 


13» 














148 
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HACXll 
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141 








ISON FUNCTION 


ROUTINE 


142 
143 


888236' 
0882421 


984737 
183424 


88888)G 


SONfNI 


JSR 
9cs 


P§.»«EVA|. 

ERSGNA 


144 


808244' 


122127 


000000G 




CMPB 


|R1)*i>.RPAR 


145 


080290' 


081929 






SNC 


ENSGNS 
R8 


146 


088292' 


989808 






CIR 


147 


080294' 


089765 


8080886 




TST 


FACltH5) 


148 


088268' 


981803 






9NE 


SGNFUT 


14» 


880262' 


089765 


009888S 




TST 


FAe2(NB) 


198 


088266' 


081410 






BEQ 


s;nx 


151 


088278' 


1)0802 




SeNFLTt 


BPt 


S^NPOii 


192 


088272' 


085308 






OEC 


R0 


193 


080274* 


000401 






BR 


1*4 


194 


088276' 


8)920) 




SSNPOSl 


INC 


R8 


195 


088908' 


018969 


08008)G 




"OV 


R8irA;2(R9| 


196 


309304' 


295865 


000008G 




Ct« 


F»Ct(H9| 


197 


000910' 


0991J7 


0808800 


SGNXI 


JMP 


••OPRATOR 


198 


099314' 


088197 


998008G 


ERSGNAI 


JMP 


MERRARG 


19» 


988328' 


080137 


0000090 


ERSGNSI 


JMP 


MERRSTN 


160 

161 








SONFNEI 






162 















3^7 



ICH 


HACXll 


V021 


22>H«R>79 


19149 PkK 7 




169 








ITIB FUNCTION »OUIIN£ 


164 


gtg924 


004737 


000000S 


TAIFnI 


JSB 

Shpb 


p;,*«ARCB 


169 


009990 


122127 


000000C 




1RI)*I»|RP4R 


166 


300994 


001036 






BNC 


ERTABS 


167 


1920336 


005046 






Cl» 


• ISP) 


168 


008340 


116916 


000000C 




movb 


rAC2(R5l,(SP) 


16» 


000344 


021627 


000110 


Ttaei 


CMP 


(SP),»72, 


17B 


000950 


103403 






BLO 


TABS 


in 


000352 


162716 


000110 




SUB 


• 72, .(SI"' 


172 


000356 


000772 






BR 


TABB 


17J 


000960 


167516 


000000G 


TABCl 


SUB 


•50l.UMN(R5l,(SP) 


174 


000964 


100001 






BPt 


• ** 


175 


000966 


009016 






CtR 


ISP) 


176 


000970 


001002 






BNC 


TABNON 


177 


000972 


00931» 






pec 


ISP) 


176 


000374 


000414 






BR 


TABNUUU 


179 


000376 


010502 




TABNONI 


MOV 


R5,R2 


IBB 


000400 


004737 


000000G 




JSfl 


PC,MHAKESTR 


IBl 


000404 


011600 






MOV 


(SP),H0 


182 


000406 


009002 






CLR 


R2 


183 


000410 


191002 






B1SB 


|He),K2 


184 


000412 


06270* 


000009 




ADO 


»^iR0 


185 


000416 


112720 


000040 




MOVB 


PB|,,|N0)* 


186 


000422 


009302 






OEC 


R2 


187 


000424 


003974 






BGT 


.•» 


188 


000426 


000197 


000000G 


TABNULLUMP 


••SOPHATR 


189 


000432 


000137 


000000C 


ERTABSl 


JMP 


MERRS7N 


190 








TABFNEI 






191 














192 
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3pf 



199 








1 UEN FUNCTION 


ROUTINE 


194 


000436' 


004737 


000000G 


LENFNI 


JSR 


P5,»»6VAL 


195 


000442< 


103016 






BCC 


ERLENA 


196 


000444' 


122127 


000000G 




CMPB 


IR1)*1»|RPAR 


197 


0004501 


001019 






BNE 


CRLENS 


198 


000452' 


005069 


000000G 




CLR 


FAC1IN5) 


199 


000456' 


005065 


0000000 




CLR 


FAe2l"5) 


200 


000468' 


012602 






MOV 


|SP)*,R2 


201 


000464' 


005202 






INC 


R2 


202 


000466' 


001402 






BEO 


>*« 


209 


000470' 


U4269 


000000G 




MOVB 


'<IR2lirAC2|R5) 


204 


000474' 


000197 


000000G 




JMP 


••OPRAfOR 


205 


000500' 


000137 


000000C 


ERLENAI 


JMP 


•#ERRARS 


206 


000504' 


000137 


0000000 


ERUENSI 


JMP 


•PERRSTN 


207 








LENFNEl 






208 














209 















3^'9 



StSlCH HtCxll veil 22>HtR>73 15149 PtGC 9 



!ie 








1 »Se FUNCTION 


ROUTINE 


Jii 


g0»9i«' 


004797 


000000G 


ASCFNI 


J$R 

ice 


P!l»««V4t 


812 


000914' 


10902} 






ERAiCA 


219 


000916' 


122127 






CNRB 


(Rl)4|»,RPtR 


21« 


000922' 


901022 






0NC 


ERiSC; 


215 


000924' 


312602 






«ov 


(SP)4,R2 


216 


000926' 


320227 


177777 




CMP 


R2, 0177777 


217 


000932' 


00{4t4 






9eg 


ERASCA 


21S 


000994' 


121227 


00000} 




CM'B 


I"?)!*! 


2t< 


000540' 


001011 






eNC 


ERASCA 


228 


00054:' 


009069 


000000G 




CL» 


rAet(R9i 


221 


000946' 


005065 


000000G 




et" 


FAe8((<5) 


222 


000952' 


116265 


000009 000000C 




H0V9 


9(R2)|rAe2|R5) 


229 


000560' 


000197 


000000G 




JMP 


••OPRATOR 


224 


000564' 


000197 


000000G 


ERiSCAl 


JMP 


•0CRRARG 


225 


000970' 


000197 


000000G 


cRisesi 


jn' 


»»eRR!»N 


22» 








tserNCi 






227 














22« 








1 CHRS 


FUNCTION 


1 ROUTINE 


229 


000574' 


004737 


000000G 


CHRSrNt 


JSR 


P;, MARKS 


290 




122127 


0000B0G 




CMPB 


IR()4|«|RPAR 


231 


000604' 


001016 






ONE 


ERCHRS 


292 


000606' 


142765 


000200 000000G 




sies 


•200,PAC2(RS) 


299 


000614' 


012746 


000001 




MOV 


• ll-fSI") 


294 


000620' 


010502 






M0» 


R9,R2 


299 


000622' 


004797 


000000G 




JSR 


Pe,»#HAKESTR 


296 


000626' 


011600 






HOV 


<SP),R0 


237 


000690' 


116560 


000000G 000009 




HOve 


rAC2(H5),?(R0) 


23a 


000696' 


000137 


000000G 




JMP 


P0SOPHATR 


239 


000642' 


000137 


000000C 


EReXRSI 


JHO 


•PERRSVN 


240 








CHRFNEI 






241 














242 















ITAKC CHAR HOO 120 



.3:^0 



SIGH 


MACXll 


V021 


22«MAR>73 


243 








244 


000646' 


004737 


000000G 


245 


000692' 


103193 




246 


000694' 


122127 


000000G 


247 


000660' 


301132 




240 


000662' 


304797 


000000G 


249 


000666' 


103125 




290 


000670' 


122127 


000000G 


291 


000674' 


301124 




252 


000676' 


004737 


300000G 


293 


000702' 


109517 




294 


000704' 


004737 


000000G 


299 


000710' 


122127 


000000G 


256 


300714' 


301114 




257 


000716' 


?05030 




296 


0007201 


305765 


300000G 


259 


000724' 


301077 




260 


000726' 


309765 


000000G 


261 


000732' 


309474 




262 


000734' 


156500 


000000G 


263 








264 


000740' 


026627 


000002 i; 


269 


000746' 


301002 




266 


300750' 


305000 




267 


000752' 


000464 




268 








269 


000754' 


005002 




270 


000756' 


157602 


090002 


271 








272 


000762' 


021627 


177777 


273 


000766' 


301004 




274 








279 


000770' 


020002 




276 


000772' 


003454 




277 


000774' 


310200 




27B 


000776' 


300452 




279 








280 


0010001 


309003 




281 


301B02' 


157603 


000000 


282 


301806' 


361633 




283 


001012' 


362703 


300009 


284 


001014' 


310365 


000000G 


285 


001020' 


312603 




286 


001022' 


362703 


000003 


287 








288 


001026' 


361602 




289 


001090' 


062702 


000009 


290 


001034' 


310265 


300000G 


291 


3010401 


312632 




292 


001042. 


360032 




293 


001044' 


362732 


000002 


294 








295 


301050' 


121922 




296 


301052' 


301406 




297 


001054' 


005200 
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I POS FUNCTION HOUTlNt 



177777 



POSFNI 


JSR 


P5,»P£VAL 




BCC 


EHPOSA 




CMPB 


(Hl)4,«, COMMA 




BNE 


ERPOSS 




JSR 


PfiMtVAL 




BCC 


EHPOSA 




CMPB 


(Rl|4,», COMMA 




BNE 


ERPOSS 




JSR 


PRIMEVAL 




BCS 


EHPOSA 




JSR 


PSi»«lNT 




CHPB 


(Rl)*,i,RP»R 




9NE 


ERPOSS 




C1.H 


R0 




TST 


FACl(H5| 




BNE 


POSF 




TST 


FAe2(H5) 




SIE 


POSF 




9ISB 


FAC2(H5I,R0 


1 CHECK 


NULL X] 






CMP 


2(SP), 1177777 




BNE 


POSX 




CLR 


R0 




BR 


pgsF 


I COMPUTE LENGTH OF XS 


P09XI 


CL" 


R2 




BISB 


•«(SP|,R2 


(CHECK 


NULL TJ 






CMP 


(*P|i»177777 




BNE 


POSY 


(NULL 


VS. ANS 


IS MIN(N,LCNIXtll 




CMP 


R0,R2 




BLE 


POSF 




nov 


R?,R0 




BR 


POSF 


;$AVE 


AOOR OF 


END OF rj IN T2 


POSTI 


CLR 


«? 




B|SB 


•(SP),R3 




AOO 


15'). »9 




AOO 


•9|R3 




MOV 


R3,T2(R9) 




»0V 


($P)4,R3 




ADD 


a3|R3 


ISAVE 


AOOR OF 


END OF XS IN Tl 




ADD 


ISP),R2 




ADD 


•9,R2 




"OV 


R2,Ti(R9) 




MOV 


ISP)*,»2 




AOO 


R0,R2 




AOO 


•2iR2 



IRP IS N 



IFINO HATCHIN6 FIRST {HAHAeTtS 
POSFSTI CHP9 (R3),iR2)* 

BES POSREM 
POSTRYI INC R0 



33) 
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29« 


asi0!« 


li»2ti 


0000006 




CHP 


DaiTKRS) 


29» 

3ea 


001862 

001064 


0013^2 

!I09000 






Bl." 


PJJfSI 


90; 


001066 


000417 






BR 


POJfJ 


312 








1 CHECK 


THAT 


•EMAININO CHARS HATCH 


]03 


001070 


01024* 




POSREMl 


MOV 


R2,.ISP) 


384 


001072 


310346 






M0» 


PJl'ISP) 


3B! 


001074 


305203 






INC 




326 


001076 


320369 


0000000 


POSNXri 


CMP 


«3,T2(I<9) 


3B7 


001102 


001410 






BEO 


posr 


3se 


001104 


320269 


300000G 




CHP 


PSiTlIRS) 




001110 


381402 






BED 


POSNO 




001112 


122223 






CMP8 


(R»l*l(R3)* 




001114 


301770 






BEO 


PO»NXI 




001116 


012603 




POSNOI 


NOV 


(JP)»,RJ 




001120 


312602 






«0V 


i;p>*iP2 




001122 


300754 






BR 


POBT"T 










1 RETURN 


rROM 


ruNciioN 




001124 


022626 




POSFI 


CMP 


(8P)*,(SP|* 




001126 


310069 


000000C 


P0$P2t 


MOV 


RB,fA52(RS) 




001132 


309069 


0000B0G 




CL« 


r»et(H») 




001136 


300137 


000000S 




JMP 


MOPRATOR 




001l«2 


300137 


0000000 


EROOSAI 


JMP 


•tERRARO 




001146 


300137 


300000C 


ERPOSSI 


JHP 


••ERRitVN 










POSFNEI 
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325 

326 001152 

327 001156 
32S 001160 

329 001164 

330 001166 

331 001172 

332 001174 

333 001200 

334 001204 

335 001210 

336 001214 

337 301216 
336 301222 
33« 301224 

340 301230 

341 001234 
342 

343 001236 

344 301240 

345 301242 

346 301244 

347 301246 

348 301250 

349 301252 
350 

351 001256 

392 301260 

353 001264 

354 

359 001270 

356 001274 

397 001276 

358 001300 

359 001302 

360 301304 

361 001310 
362 

363 001312 

364 301314 
369 301316 

366 001320 

367 001322 
368 

369 301324 

370 001326 
371 

372 001330 

373 301332 

374 001334 

375 001336 
376 

377 301342 

376 001344 
379 301346 



004737 
103114 
122127 
001113 
004737 
103904 
004737 
016946 
014946 
122127 
001077 
004737 
103472 
004737 
122127 
301067 

312602 
012600 
100403 
301099 
009732 
003082 
318702 

309000 

021627 
157600 

009769 
100441 
001432 
810003 
000403 
016903 
083433 

020083 
101001 
310803 
020283 
181026 

160233 
305233 

010246 
310902 
010346 
fB4737 

312602 

312600 
361630 



0000000 

0088800 

0800000 

0008800 
0000000 
3080806 
8000800 

0800080 

0000800 



I SE6 rUNCTION ROyTINf 



300081 



177777 
300080 



SEOFNI 


JSR 


pg.MEVAU 




BCC 


ERSEOA 




CMPB 


|Rl)«lf,COMHA 




BNE 


ERSEOS 




JSR 


P?,»«tVAL 




BOS 


EMSEOA 




JSR 


P5,»»1NT 




MOV 


rAet<"»li«(SPl 




HOV 


r«e2(N9),a($p| 




CMPB 


|Rl)*,i, COMMA 




BNC 


EH3E0S 




JSR 


P5l»»|VA|. 




BOS 


CRSEOA 




JSR 


P5l»«I.NT 




CMPB 


(Rl)»,«,iIPiR 




BNE 


ERSEOS 


lOET X 


VAUUE 


IN R8 




MOV 


(§P)*l"2 




MOV 


(?P|*l«0 




8M! 


s;ox0 




BNE 


SeONUU 




TST 


P« 




BCT 


S56I. 


$Eex0i 


MOV 


II1|R2 
TH or AS IN H0 


(COMPUTE LENO 


SESLI 


CUR 


R0 




CMP 


(5P), •177777 




BISB 


»(SP)lR0 


I5ET r 


VAUUE 


IN R3 


SEOTYI 


TST 


fACKHB) 




BMI 


SKNUh 




BEO 


SS8TY* 




MOV 


R0,R3 




BR 


StORNO 


SEaTY2 


MOV 


PACJ(R9),R3 




91.C 


seONUL 



ICHECK NULL STHINO 



0000800 



JCHECK 8<tR2«R3<IR0 

SEORNGI CM' R0|R3 

BHI SC0R2 

MOV R0,R3 

SEeR2l CMP R2|R3 

BHt SeONUb 

(COMPUTE tENCTH OP OUTPUT STRING 

SUB R2|R3 

INC »} 
(MAKE NEK STRING OP THE CORRECT LENGTH 

MOV R8,.(5P) ISAVE START CHAR 

MOV R9,R2 

MOV R9,.(SP) 

JSR p;,*anAKESTR 

irlX STACK ANO MOVE IN CHARS FROM OI,EI STRING 

HOV (SP)*|R2 INCH STRING POINTER 

HOV (5P)*|R0 ISTAUT CHAR 

AOO (SP),KB lAOO OLD STR POINTER 



333 
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sag 

sai 

362 

989 
9«4 
]«$ 

996 
967 
996 
989 

9'e 

9»1 
9»2 
999 
994 
399 
39« 



0)1992' 019003 

001994' 1912)13 

00199t' 062702 

001362' 062700 

001966' 112022 

0013701 009903 



000009 
000002 



0019721 
001974' 



301379 
700137 



PASE 11.1 




MOV 


l(2i(SPI 


CI.I) 


m 


a|S8 


(l<2)|H3 


too 


• 9,R2 


too 


•2|R0 


,pi "ove 


(R0)*,IR2| 


OEC 


"9 


9Nt 


SEHP 


JMP 


MSTPKO 



001400' 012716 177777 

001404' 000137 000000G 

001410' «00137 000000G 

001414' 000137 000000G 



lOUTPUT NUWL STRIN8 
SEGNULI "OV «l77777,tSP) 
9ECXI JHP VfSQPNATR 
ER9EGAI JHP ••CRRiRC 
ERSEOSI JHP ••ERRSTN 
SESFNEl 



iSjVE »!£" ST«1NS 

lR3 IS KE« STRING LENGTH 
)»D0» FIRST CHAR IH «IEU STR 
lAOOR START CHAR IN 01.0 <TR 
iTILt IN NEW STRING 
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997 








1 VAU rUNCTlON ROMTINt 


996 


001420' 


004737 


00e«00G 


VAlFNI 


JSR 


P5,»»tVA|. 


999 


001424' 


103096 






ICC 


ERVALA 


400 


001426' 


122127 


0000000 




CHPB 


(R1)»,#,RP«R 


401 


001432' 


001051 






8NE 


EHVAL5 


402 








IREAD STRING 




409 


001434' 


011600 






M0» 


(SP),HO 


404 


001496' 


020027 


177777 




CHP 


R0|il77777 


409 


001442' 


001006 






BNE 


VAtR 


406 


001444' 


009069 


000000G 




CkR 


FAei(H9) 


407 


0014901 


009069 


0000009 




CLR 


FAe2(R9) 


406 


001494' 


009726 






T5T 


(SP)4 


409 


001456' 


000439 






BR 


VALJ 


410 


001460' 


009002 




VALRl 


CIR 


R2 


411 


001462' 


151002 






0IIB 


(R0)i"2 


412 


001464' 


010216 






"OV 


R2,(SP) 


419 


001466' 


062700 


000009 




ADO 


•9iR0' 


414 


301472' 


060002 






AOO 


R0|R2 


419 


001474' 


109012 






CI.RB 


(K2) 


416 


001476' 


010446 






MOV 


R4,.(SP) 


417 


001900' 


010146 






MOV 


Rll»(5P) 


416 


001902' 


010246 






MOV 


R2..(SP) 


419 








IREAO ASCII NUMBER ANp EXPONENT 


420 


001904' 


004737 


000000C 




-JSR 


PC,»«VAU 


421 








INORMALKE TO 


rORH rUI PT NUMBER 


422 


001910' 


004737 


000000G 




JSR 


PCiMNORM 


429 


001914' 


010969 


000000G 




MOV 


R9,FAC1(R9) 


424 


001920' 


310465 


000000G 




MOV 


R4,FAf2(R5) 


429 








1 CHECK 


ENO OF 


STRING 


426 


001924' 


109710 




VAUCEl 


TSTB 


(R0) 


427 


001926' 


001403 






BE9 


VAUX 


426 


001530' 


122027 


000040 




Chpb 


<R0)*l«8l. 


429 


001934' 


001773 






BEO 


VAUCE 


490 








1 RESTORE REGS 


ANO RETURN IB EVAL 


431 


001936' 


020026 




VALXI 


CHP 


RB,(SP)* 


432 


001940' 


001010 






BNE 


EHVALA 


499 


001942' 


012601 






MOV 


(5P)*,R1 


434 


001944' 


012604 






MOV 


(SP)*,R4 


435 


001546' 


012602 






MOV 


(SP)*,R2 


436 


301550' 


110210 






HOVB 


R2,(RB) 


437 


001552' 


000137 


000000G 


VALJI 


JHP 


••OPRATOR 


439 


001996' 


000137 


000000G 


ERVAlSl 


JMP 


••ERRSTN 


439 


001562' 


000137 


000000G 


ERVAUAI 


JHP 


•aCRRARC 


440 
441 








VALFNEI 






442 















■CHECK NULL STRING 



iRESTORE STRING LENGTH 
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443 








444 


e«1566' 


004737 


000000C 


449 


3«1572< 


103432 




446 


3015741 


122127 


000000e 


447 


gei60e> 


001031 




448 


aaisnz' 


012746 


000020 


449 


011606' 


010502 




45B 


031618' 


(104737 


0000000 


451 


0IJ1614I 


3111603 




452 


001616' 


062703 


000003 


453 


001622' 


010365 


000000G 


454 


001626' 


005065 


000000G 


45S 


001632' 


004737 


000000G 


45t 


001636' 


000000G 




457 


0016401 


010602 




49e 


001642' 


016546 


000000C 


459 


001646' 


B04737 


000000S 


4«e 


001652' 


012616 




46X 


001654' 


000137 


000000G 


462 








463 


001660' 


080137 


000000G 


464 


001664' 


000137 


000000G 


465 








466 








467 








46a 








46y 









t STR FUNCTION ROyTiNC 



strfni Jsr 
acs 

CHPB 
BNE 
"0» 
ngv 

JSR 
MOV 

too 
»ov 

CkR 

JSR 

lUORD 

KQV 

MOV 

JSR 

MOV 

JMF 

ERSTRAI JMR 
ER5TRSI JMR 
STBrNEI 
rNENOI 



P5,»iiv»u 

CRSTR* 

(Rl)*l»,RP»R 

ERSTRS 

•20, •(5P) 

R»iR2 

PC,»«n»KCSTR 

(SP),R3 

• 3,R3 

RJ,T2tR5l 

H(R9J 

P;,>1NVMSGN 

JAVCMtR 

SP,R2 

TllRSJi'fS'") 

p;,*fntKESTR 

(SP|4,|SP) 

•tSTPRO 

MERRtRS 
••(RRiirN 



iPBOTECT STRING 



BASICM MACXll V021 



470 






♦71 






472 






473 






474 


001670' 


300000 


475 


001672' 


300000 


476 


001674' 


000000 


477 


001676' 


000000 


478 


001700' 


000000 


479 


001702' 


300000 


480 


301704' 


000000 


481 


001706' 


002214' 


482 


001710' 


002074* 


483 


001712' 


000000 
000000 


484 


001714' 


485 


001716' 


000000 


486 


001720' 


300000 


487 


001722' 


000000 


488 


001724' 


000000 


489 


001726' 


000000 


490 


301730' 


000000 


491 


001732' 


000000 


492 


001734' 


000000 


493 


001736' 


000000 


494 


301740' 


000000 


495 


001742' 


000000 


496 


001744' 


000000 


497 


001746' 


000000 


498 


001750' 


000000 


499 


001752' 


300000 


500 


001754' 


300000 


501 


001756' 


000000 


902 


001760' 


000000 


503 


001762' 


000000 


504 


001764' 


000*00 


505 


001766' 


000 


506 


001767' 


000 


507 


301770' 


002040) 


50S 


001772' 


002004) 


509 


301774' 


300000 


510 


001776' 


000 


511 


001777' 


000 


512 


002000' 


000 


513 


002001' 


030 


514 


002002' 


000 


515 


002003' 


000 


516 
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t 
1 

1 USER 
I 


AREA srOR«$E CJtUS 






USRI 


iHORO 




ISYHRoLS 






,WORD 




lUIMlT 






,WORO 


« 


IPBI. 






,HOR0 




JPOSIJE 






lUORO 




(ARRAYS 






,HORO 




IHIFOEE 






,HORO 




lUOrsEE 






iMORO 


U5RC0?5 


ICOIJE 






,WOR0 


USRUIN? 


lUINC 






.WORD 




rVARSAV 






,WORO 




ISSISAV 






,WORD 




|SS2$AV 






,W0R0 




lUIN'NC 






,U0R0 




JOSBCT" 






,HORO 




(COtUMN 






lUORO 




ICLM^'TTY 






lUORO 




IFACI 






,KORO 




lfAC2 






,WOR0 




iR0stve 






iHORO 




IRISAVE 






,UORO 




iRJSAVf 






,UORO 




IRJSAVC 






,NORO 




)R45»VE 






lUORO 




ITI 






lUORO 




|T2 






■ WORD 




ITS 






,NORO 




IRNOI 






,HORO 




|RN03 




RANOt 


iNORO 




IRNOCT 






,HOR0 




)t.05TR 






,UOR0 




IHI5TR 






.BYTE 




lOOEV 






.BYTE 




lIOEV 






* 


TPBFHi 


ITPH" 






4 


KBerH^ 


IK9HC 






lUORO 




lECHBSP 






.BYTE 




iCNCruG 






.BYTE 




ICWOFLG 






.BYTE 




iniLCO 






.BYTE 




IFILLNO 






.BYTE 




jriLLCH 






.BYTE 





1 tsPABE byte: 



33^ 
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fir 
sia 

!>:« 0«2(04< 

922 322gi0< 

929 022912' 

924 I0t0t4> 

929 002)16' 

924 

927 

920 

929 

930 

931 002040' 

932 002042' 

933 002044' 

934 00204«' 
939 002090' 
936 002092' 
937 

930 
939 
940 
94J 
942 
943 
944 



19149 
I 



ftce 19 



002020' 

202037' 

002020' 

002020' 

002020' 

000000 

0020201 

2020401 

EI02037' 



202094' 

EI0207]' 

000000 

002094' 

002094' 

000000 

002194' 

0120741 

002073' 



002214' 



I uSfR I/O BUrrE" *N0 BurrjR hor; spice ittt) 



KaeFHii 


* 


KBBuri 


laSTBT 




* 


K0BCN4 


IBCNO 




iWOPO 


KBBUfl 


IBSETI 




,WOPO 


KBegri 


iaeE72 




,«0I»0 


KBBUPi 


IBPUT 




* 





iSrSPEC 


KaBUFl 


■ t 






, 


•,4|KBBSi 


lOFF»gtT SliE ■ 20 CNARS, 


KBBENl 


•■•1 

lEVEN 






TparHii 


* 


TPBuri 


IBSTPT 




* 


TPBENl 


IBENO 




* 





laeETl (NOT USED) 




,MORD 


TPBUri 


)86ET2 




,MORO 


TPBUFl 


iBPgT 




* 





larsPEC 


TPBUfl 


•i 








•,4tTPBSl 


lOtF»ULT ■ 20 CH4HS, 


TPBENl 


.EVEN 






USRLINEI 






,>>IU1.NSP 




|DCF«ULT i 120 


USRCODEI 
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949 

946 
947 
949 
949 
990 
991 
992 
993 
954 
555 
956 
557 
556 
559 
560 
961 
962 
963 
964 
965 
566 
567 

566 
969 



970 
971 
972 
973 
574 
579 
976 
577 
978 
979 
590 
981 
582 
593 
594 
995 
586 
587 



596 
989 
990 

991 
992 



002214 
002220 
002222 

002224 

002226 
902232 
002236 
002244 
002250 
002252 
002260 



002264 

002270 
002274 
002276 
002324 
202311 
002313 
002320 
002326 
202334 
202342 
202390 
002352 
002353 

002394 
002360 
002364 

002366 
202370 
002374 
202376 
202400 
202422 
202426 

202410 
202414 
002417 
202424 
222432 
202433 
202434 
002440 



162704 
222626 
200412 

200025 
212706 
204767 
212737 
212724 
009744 
012737 
010467 



017776 



003364' 
000000G 

0022141 000004 
160000 

000006 000024 
001100 



212701 000002' 



204367 

019 

242522 

230126 

219 

117 

291916 

246101 

247099 

244440 

019 

077 

000 

204767 
120027 
201512 

209002 
120027 
201002 
209202 
200419 
120027 
001330 

004367 

015 

040 
020123 

117 

00> 

01270S 

012704 



202444' 211923 



000796 

012 

244923 

230460 

212 

252120 

220072 

026114 

047117 

044499 

012 



000722 
000116 



200636 

0i2 012 

026931 042931 

047040 047099 



003374' 
0000001; 



I ••0NCE«ONUr INIT', CODE 

I PINO OUT MOW MUCH CORE »N0 EXPAND USRAREA 4CC0R0INCL'' 

I 



DECCOREISUB 
CMP 
BR 

I 

ONCEONLIRESET 
MOV 
JSR 
MOV 
MOV 

TRVeOREITST 
MOV 
MOV 



020103 
121 

043040 
226901 
247040 
026129 
042116 



•17776, R4 
(?P|*l(SP)* 

TRYCORE 



•TMPSTCK.SP 

PCiIFPMP 

tOECC6RE,>«4 

•160000>R4 

• <R4) 

•6,**4 

R4,H150RE 



ICOME UEKE O'' TRAP FOR B40 MrM', 

I ref;, amo oec, core sue 

ITFMP, STACK 

I INIT rO« r?■^!> ROUTINES 

)SFT UP TRAP ADOR, 

I28K 

iTBAPS TO DECCORE IF BAD iOOR 

iFAtUS THRU IF OK . RESTIHE TRAP AOC, 



IINITULI2E TOP OF BASIC 

MOV (BASKHiRl 
IPRINT HEADING AND READ ANSWER 
INIHOI JSR R3,PRMSC 
,8VTE 19,12 
.ASCII 'BASIC V00tA' 



INITII 



iBVTE 
.ASCII 



.BVTE 
.ASCII 

.BYTE 
.EVEN 

JSR 

CMPB 

9Ea 

c;,R 

CMPB 

9NE 

INC 

BR 

CMPB 

BNE 



I?il2 

'OPT FNSl A.AUL, N-NONE, I.INDI 



t»ll2 

'f 





Pg, ROANS 

R0,p'N 

INISAV 

"2 

«0,»'A 

INITI 

R2 

INIAm 

RB|»'l 

INIMO 

IPRINT HEADING FOR INpiV FUNCTIONS 
JSR R3,PRMSG 
(BYTE 19,12,12 
, ASCII ' Y.YES N.NO' 



iSYTC 9 
INlALLt MOV •FNTAB,R9 

MOV •fAei,E9,R4 
lOET NEXT FUNCTION TABLE ABORESS 
INILPI MOV (R91,H3 



I CHECK FOR N 



ICLEJR ALU FLAG 
ICHECK FOR A 



(SET ALL FLAG 
(CHECK FOR 1 



3Sf 
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993 

S94 
S9S 

996 

J97 
998 
S99 
6!ie 
6Bi 

ts;5 

«04 
685 
686 
607 
608 
609 
610 
611 
612 
619 
*X* 
US 
i» 
617 

6ia 

619 
620 
621 
622 
623 
624 
625 
626 
627 
629 
629 
690 
691 
692 
699 
694 
699 
696 
697 
690 
699 
640 
641 
642 
643 
644 
645 



012446' ittt^i 

002490< 362705 

t!02494< 262704 

002460' 000771 



802462' 
802466' 
002470' 
882474' 
802476' 
882980' 
802902' 
802918' 
802916' 
002522' 
002924' 
002526' 
802590' 
802539' 

002994' 
002540' 
002544' 
002546' 
002550' 
802992' 
802956' 

002560' 
002562' 
002566' 

802570' 
802572' 
802576' 
802600' 
802604' 
802610' 



802612' 818167 



002616' 
002622' 
002624' 
002626' 
002692' 
002694' 
002696' 
802640' 
802642' 
002644' 



812702 
010309 

16(109 

020227 
103005 
012221 

00177} 
160341 
805721 

800770 



820427 
101051 
820527 
103046 
805782 
001027 
816567 
016567 
004967 
019 



800000 
835040 



004767 
120027 
001002 

805724 
800413 
128027 
001341 

010100 
162700 

810024 
012321 
02036J 

103774 
062785 
820427 
101719 



800010 
880000G 



179162 
001670ir 



IPRINT 
INIFNI 



BPt INlrN 
ADO 112, A5 

ADO •2,R4 

QUESTION FQR rUNCTJON, SET ANSHCR 



I SKIP A Function 



000004 000014 
000006 000010 
800930 
012 



000543 
000116 



FNNAHll 
FNNAH2I 



INITYI 



lOCFINC 

INIDFI 



INIMVI 
ININXTI 



CNP 

SHI 

CMP 

SHIS 

TST 

9Nt 

HBV 

MOV 

JSP 

,9YTE 

(WORD 

iHORO 

.ASCII 

,9»TE 

lEVEN 

JSP 

CMP0 

SNC 

TST 

SR' 

CMPB 

0NE 



THE FUNCTION 



P4,iTl(|.9ENl) 

INISAV 

P9,»FNTA8E 

INISAV' 

"2 

INIOF 

4|R5I|FNNAM1 

«!R5),FNNAM2 

R9lPPHSS 

15.12 



PCiROANS 

R0l*'N 

IMITY 

tR4)* 

ININXI 

R0|»'T 

INIFN 



ICMECK FOR N 



iCHErK FOR y 



NOV 
SUB 
MOV 
MOV 

CMP 
9L0 
AOO 
CMP 
BtOS 



R!i|R0 

•rAact9,p0 

P0,(P4|« 

(R3)*,(R1|« 

R?,2(H5) 

INIMV 

#i0|R9 

P4,»TB1,5CNB 

INILP 



IPIACE ADDRESS IN TABLE 



ISAVE TOP OF SASi; 
INISAVI MOV RtiUSKAHEA 
IMOVE USER AREA TO TOP OF BASIC 



MOVLPI 



MOVOONI 



MOV 

MOV 

SUB 

CMP 

SHIS 

MOV 

sea 

SUB 

TST 
BR 



•gSR,H2 

R2,R3' 

RllR9 

R2,tU!iRC00e 

M9V00N 

('<2l*llRll* 

MOVUP 

R3,.(R1) 

(RD* 

MSVtP 



ICCMPUTE RtUOCATION CONSTANT 



iREtOCATt NON.JERO ENTRIfS 



3Y^> 



BASICH MACXll V821 22.MAH.79 15.149 PACE 17 



646 

647 
64B 

649 
650 

651 
652 
653 
654 
695 
656 
657 
656 
659 
660 
66} 
662 
663 
664 
665 



666 
667 
668 
669 
670 
671 
672 
679 
674 
679 
676 
677 



67B 
679 
660 

6S1 
682 
689 
684 
685 
686 
687 



689 



690 
691 
692 
699 

694 



802646' 816784 

802652' 162704 

002656' 016709 

802662' 810465 

002666' 162704 

002672' 810465 

802676' 162704 

802782' 010469 

802786' 862784 

802712' 010469 

802716' 01276! 

802724' 312765 



000512 

800900 
179116 
000000G 
)88194 



llNlTUuIiE USER AREA 



800000G 

800000G 

088040 

080880C 

032931 

169291 



088000C 



MOV 
SUB 
"OV 
MOV 
SUB 
MOV 
SUB 
MOV 
AOO 
MOV 
MOV 
MOV 



HIC0R||R4 
•9(0, R4 
USRAR^A,R9 
»4,LIMIT(R51 
•194, H4 
R4,P0I,(R5| 
•S3TKS!,R4 
R4,ARHATS(R5) 
•40, R4 

R4,P0S|iE(n9l 
•92931, RND1IR5I 
•169251, RNI}2(R5) 



|R4 IS HIGHEST AOPR, IN rORe 



IPOINTER SPACE 
iBASe HF STACK 
IHAX', STACK SUE 
IHItST AHRat stop, LOC, 



802732' 805009 

802734' 004967 800312 
3827401 819 ais Bi2 

802749' 106 851581 820124 

802750' 842523 820122 842524 

802756' 846922 077 
802761' 000 

802762' 004767 

802766' 120027 

802772' 801497 

002774' 120(27 

009080' 801354 

003002' 805289 

003(04' (04967 
003(10' 015 

003(12' 840514 

809020' 890069 

803026' 842125 
809092' 080 
0(3034' 

809034' 804767 

809040' 120027 

803044' 801432 

803046' 120027 

383052' 081354 

803054' 005283 

803096' 004967 



lOtALOCUE To SET I^P TERnlNAl. TVPC 

ASKSER) CUR R3 

JSR R9,PRMSC 
iBVTE 15,12,12 
.ASCII 'FAST SEP TERMt' 



800914 
800116 



8(0131 



8(0242 
(12 

09(069 
82(060 
097491 



000242 

000191 



*SKl*l 



824040 

840502 



688 8(3(62' 



015 



803064' 852126 
8(3072' 896476 



0(9100' 
8(31(6' 



84(502 

0(( 

8(311(' 
8(911(' 8(4767 
0(9114' 120(27 
809120' 801484 



080170 

012 

892460 

090066 

842125 



000166 

808191 



8240«( 
828(6( 
097451 



.BYTE 


( 


.EVEN 




JSR 


PP, ROANS 


CMPB 


RB,»'N 


SEO 


A5K00N 


CMPB 


RB,»'Y 


BNE 


AIKBEH 


INC 


"9 


JSR 


R9,PRMSC 


.BTTE 


ti)<12 


.ASCII 


'1,430 1900 BAUD)?' 


.BYTE 


8 


.EVEN 




JSR 


P;, ROANS 


CMPB 


R(,«'Y 


BEO 


ASKDON 


CMPB 


R(,»'N 


BNE 


A9KLA 


INC 


"9 


JSR 


R9,pRnSG 


.BYTE 


1'.12 


.ASCII 


'VT(5 (>«6B( BAU5>t 


.BYTE 





.EVEN 




JSR 


P;, ROANS 


CMPS 


R0,f'Y 


BEO 


ASKOON 



sv/ 



BASICH HACXll VJ21 22.M»I'«7J 15|<9 PACE t?-! 



»9» 

«9? 
6«9 
6V9 

7ee 

7B1 
782 
703 
704 
7B» 

7g« 

7»7 
7BS 

70» 

n» 

711 
71! 
713 
714 
71S 



80]12i< 121027 

003126' 00139} 

003130' Ilf07» 

00J13i> 011302 

003134' 001412 

003136' 006303 

0031«0< 060302 

0031<2' 062702 

003146' 010903 

003190' 062703 

003194' 112223 

013196' 112223 

0«3t6«l 112223 



000116 



CMPb 
8R 



nB,<'N 

«SKyT 



716 
717 
716 
719 
720 

721 
722 
723 
724 
729 
726 
727 
72t 
729 
731 
751 
732 
733 
734 
739 

rn 

737 
73* 
739 
740 
741 
742 
743 
744 
749 
746 



0000000 



012 



003162' 009737 000046 

003166' 0*1414 

0031701 004367 000096 
003174' 019 «12 

003177' 129 042923 020122 

003204' 047106 020123 047914 

003212' 042101 042109 
003216' 000 
003221' 



ASKOONI "OV r9iI|2 

BES PlkkOtlN 

tSl "3 

ADD l>3,l)2 

ADO •rH,LT9.l>2 

MOV R»|R3 

ADO •PaiC0i"3 

nova |R2)*||R3I* 

NOVB (R2|*|IR3)t 

HOVB (fl2)*i(R3l* 
riklOONI 
IPRINT OUT ir USER rUNCTlONS LOAnEB 

TST •»46 

BCO NOUSP 

JSR R^iPRHSe 

,8VTE l!)|12|t2 

.ASCII 'MSER rNS LOADED' 



003220' 004367 000026 
003224' 019 012 
003227' 000 



NOUSRI 



.BYTE 
.EVEN 



012 



003230' 012702 

003234' 312203 

003236' ^101403 

003240' 062703 

003244' 010312 

0*3246' 000167 



0*3292' 
003294' 
0*326l< 
003262' 

0*3266' 
0032701 
003272' 
003274' 
003276' 
003300' 



t<103** 
109737 
1**379 
112*37 
0*1372 
010*03 
009203 
006203 
006303 
000203 



0000000 

000014 

0000000 

177776(1 

0*****; 



0*3302' 009267 
003306' 109737 



176492 

0000000 



JSR 
,8VTE 



.EVEN 



R3,PRnSS 
19,12,12.0 



ICUECk I'' RNOU LOADED 



NORNOI 



MOV 

MOV 
BEO 
ADO 
MOV 

JMP 



• rABL|9,l)2 

|R2)«,R3 

NORND 

•HNDrN«PNDLrN,R3 

R3,(R2) 

START 



iDEriNC «N0 ALSO 



'SUBROUTINE TO PRINT A MESSAGE 



PRhSCI 


MOV 


R?iR* 


PRLPt 


TSTB 


»tTPB>2 




BPt 


PRUP 




KOVB 


(R0|4,*0TPe 




•NE 


PRLP 




MOV 


RB,R3 




INC 


R^ 




ASR 


»3 




ASL 


"3 




«TS 


«3 



ISUBROUTInE TO READ ANSWER TPOH TELETYPE 
RDANSI INC RAND 
TSTB BiYKS 



34^^ 



IICM 


MACXll 


V021 


22.MAR.73 


19149 PACE 17. 2 




747 


003312' 


100373 






bpl 


RDANS 
•iTKS*2|R0 


746 


003314' 


113700 


0000020 




MOVB 


749 


003320' 


042700 


177600 




9IC 


•1776*0, R0 


790 


003324' 


010067 


000004 




MOV 


R0,IN5H 


791 


0*333*' 


004367 


177716 




JSR 


R3,PRMSS 


792 


0*3334' 


00080* 




INCHI 


,MORO 





793 


0*3336' 


016700 


177772 




MOV 


INCHiHB 


794 


003342' 


00*207 






RTS 


PC 


799 




003364' 




1 


•,*20 




796 








TMPSTCKI 




797 


0*3364' 


00**0* 




MICOREI 


.UORD 





796 














799 




0*3363' 




rlLLT8» 


.•3 




760 


003366' 


00* 


011 


015 


.BYTE 


01 11-. 19 


761 


003371' 


00* 


004 


012 


.BYTE 


0.04,12 


762 














763 








FNTABI 






764 


303374' 


0***02' 






,HQRO 


RNOLPN 


769 


003376' 


0001401 






.WORD 


RNOFNt 


766 


00340*' 


047122 


02*104 




.ASCII 


'RNO ' 


767 


003404' 


177777 






,HORO 


•i 


766 


003406' 


177777 






.WORD 


•; 


769 


003410' 


177777 






.WORD 


•1 


770 


003412' 


177777 






.WORD 


•I 


771 


003414' 


177777 






.WORD 


•1 


772 


003416' 


177777 






,UORD 


•1 


773 


003420' 


177777 






.WORD 


'% 


774 


003422' 


3»»14»» 






.WORD 


ABSPN 


779 


003424' 


0*0236' 






.NORO 


AB9FNE 


776 


003426' 


041101 


020123 




.ASCII 


lABS ' 


777 


003432' 


177777 






.WORD 


•1 


778 


003434' 


0**236' 






.WORD 


SSNPN 


779 


003436' 


0**324' 






.WORD 


SGNrNS 


780 


0034401 


043925 


02*116 




.ASCII 


'SON ) 


7S1 


003444' 


000324' 






.WORD 


TASFN" 


782 


003446' 


000436' 






.WORD 


TABFNI 


783 


003490' 


040924 


020102 




.ASCII 


'TAB ) 


784 


003494' 


0*0436' 




- 


.WORD 


LfNrN' 


789 


003496' 


00091*' 






.WORD 


LENPNJ 


786 


003460' 


042914 


020116 




.ASCII 


'LEN ' 


787 


003464' 


0009101 






.WORD 


ASCfN' 


788 


003466' 


000974' 






.WORD 


AserNf 


789 


303470' 


051901 


020103 




.ASCII 


'ASC '. 


790 


003474' 


000974' 






.WORD 


CHRIFN 


791 


003476' 


000646' 






.WORD 


CMRFNl 


79? 


003900' 


044103 


022122 




.ASCII 


'CURS' 


793 


003904' 


0*0646' 






.WORD 


posfn' 


794 


MJiH' 


UtiHtl 






,UORO 


POjrNE 


799 


003910' 


04792* 


020123 




.ASCII 


'POS ' 


796 


003914' 


0*1192' 






.WORD 


seopn' 


797 


003916' 


001420' 






.WORD 


SlOFN? 


798 


003920' 


042923 


022107 




.ASCII 


'SEG$» 


799 


003924' 


001420' 






,UORO 


valfn 


800 


003926' 


001566' 






.WORD 


VALFMt 


801 


003930' 


040926 


020114 




.ASCII 


'VAL ' 



1LA3? 
)VTB9 



I RNC 

I SH' 

I COS 

r S8» 

I «TN 

I tXP 

I LOG 

I ABS 



I INT 
I SON 



I TA? 

I Lt" 

I Ase 

I CHSJ 

I POS 

I 5t!! 

I VAL 



3V3 
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eeZ 003934' 00t96«l 

tej 003936' e0t«'e' 

!B4 0039401 B9J12J 

(09 

• 06 

907 002234' 



022122 



rNtASEI 



lUORo SIRrN 
iUORO JTRfN^ 
.ASCII '$TRS> 



,cno oncconl 



3VV 



9ASICH MACXll V021 



>8srN 


000140R 


ARGB 


. •.».«• C 


ASKOON 


903132R 


BASICH 


000002R 


C01,U"N 


* •.••** G 


CRASCA 


000964R 


ERLENS 


000904R 


ERRHIX 


» •«..•• G 


ERRSYN 


■ «••••« G 


ERSENS 


000320R 


ERVACA 


0019628 


F-AC2 


* «•*••. G 


TNENP 


001670R 


rNTASE 


003944R 


INIALL 


002434R 


INIUR 


002444R 


INITI 


002402R 


KBSFHl 


002004R 


LIMIT 


. •«•«.. 5 


NORN 


* •»•«•« c 


OMCEON 


002224R 


POSliE 


. •*••«. c 


POSFST 


00i0:0R 


ROSRER 


001070R 


PRUP 


003294R 


REXP 


00B074R 


RNOUFN 


000002R 


RPLUS 


000092R 


R3 


■X000003 


SEGFN 


001t92R 


SESNUI, 


001400R 


SECTY2 


0ei3g4R 


SGNFN 


000236R 


SdPRAT 


« •...«. c 


strfn' 


001966R 


TA8FN 


000324R 


TA3NUL 


000426R 


TPB 


a ..*... G 


TRYCOR 


002290R 


USR 


001670R 


VAI. 


■ •«»••• G 


VAUJ 


001992R 


SSTKSI 1 


■ ••«.«« G 


,RPAR 1 


' G 



22.RAR, 


•73 19(49 


PAGE 17-4 


A8SFNE 


00023eR 


AgSlNT 


ARRAYS 


. »••«.. G 


ASCFti 


ASKI.A 


003004R 


ASKSER 


K 


• 000040 


GHRFNE 


OECCOR 


002214H 


ERAeSA 


ERASCS 


000970R 


ERCHRS 


ERPOSA 


001142R 


ERPgSS 


ERRNDA 


000134R 


CRRNOS 


ERStGA 


011410R 


ERSEGS 


ERSTRA 


e01660R 


ERSTRS 


ERVALS 


00t99«R 


EVAt 


fai-co 


* .«.««. G 


Fauoo 


FNNAMl 


002924R 


FNNAM2 


HICORE 


003364R 


IFPNP 


INIOF 


002960R 


INIFN 


INIHV 


002970R 


ININXT 


INITT 


0B2992R 


INT 


KBBuri 


• 002020R 


LENFN 


"ANEST 


• •«...• G 


MOVDON 


NORNO 


0I324>R 


tOUSR 


OPRATO 


a «..«•. G 


PC 


P03F" 


001t24R 


P0SF1 


PgSF2 


BBllStR 


POSNO 


PQSTRY 


001O94R 


POSX 


PRMSG 


003292R 


RANO 


RNOFN 


00R016R 


RNDFNE 


RNOl 


a •«•«•« G 


RN02 


R0 


•X0000e0 


Rl 


R4 


•X000004 


R5 


SESFNE 


00t420R 


SEOl, 


SEGRNG 


001312R 


SEGR2 


scsx 


00t404R 


SeGX0 


SCNFNE 


0103248 


SGNPOS 


SP 


>X000«I6 


START 


STRFNE 


001670R 


TABS 


TABFNE 


BB0436R 


TAB(.E9 


T8U9EN 


a ...... G 


TKS 


TP8EN1 


a 002073R 


TPBFHl 


Tl 


a •••*.. G 


T2 


USRARE 


000000RG 


U$RCOO 


VALCE 


001924R 


VAtFN 


VAtR 


001460R 


VAtX 


ITPBSi 


a 000020 
a 003944R 


SUUNSP 



O00174R 


»asx 


000222R 


0009i0R 


ASCF.'E 


000974R 


002732R 


ASKVT 


003III96R 


000646H 


CHPIFN 


00O974R 


000226R 


FRA8SS 


000232R 


000642R 


FRUCA 


000909IR 


001146R 


FRPARO 


a ••••«• G 


0I01J0R 


FRRPnu 


a •••••• G 


0014i4R 


FR!G>IA 


000314R 


BB1664R 


FRYARS 


00043ZR 


a .«•.•• G 


FACl 


a •»«••» G 


003ie2R 


PIUI.TB 


a 003363R 


002926R 


FNTAR 


003374R 


a a..*.. G 


INCH 


003334R 


002462R 


INIrtI 


002270R 


002600R 


INISAV 


0B2612R 


a a..... G 


KBPE"1 


a 002^37R 


00B436R 


LENF»E 


000910R 


002646R 


"OVtP 


002626R 


003220R 


>.'U"SGN 


a *••*•• G 


aX000007 


POt 


a •••«•• G 


000646R 


POSF»'E 


001192R 


001116R 


POSNXT 


00UI7SR 


000794R 


POST 


001i>00R 


0017e0R 


ROANS 


003302R 


0001«0R 


•N()FW2 


000I<16R 


a •#•.•* c 


HNBR" 


000062R 


aX000001 


"2 


• «000!I02 


•«0e00»9 


<!AVC"A 


a •••••« G 


001296R 


SEGU" 


001366R 


001320R 


SECTY 


001270R 


00t292R 


50NFLT 


a0O27IiR 


000276R 


SGNX 


000310R 


. .«•*«. G 


STPRO 


a *»•••• G 


00I344R 


TABC 


000360R 


a a...^. G 


TARNON 


000376R 


a .«.#•. G 


THPSYC 


003364R 


002e40R 


tppuri 


a 002094R 


a a..... 6 


Y3 


a •«*••• c 


0022}4R 


IISPUIN 


ao2074« 


0014i0R 


VAtF^E 


001966R 


001936R 


«KBBSi 


a 000020 


a 000120 


■,CO«"A 


a »•*••• G 



ERRORS DETECTED' 



3V^ 



BAStCH MACXll V0il 22«H1R>73 19MS PACE t7>9 

RUN-TIMCI It SECONDS 
PORE USeOl 3K 



5"^^ 



«BSFN 


12»« 


774 


























ABSFNE 


i3a» 




























ABSlNT 


129 


129« 


























«BSX 


126 




130 


132 


1390 




















«RSB 


«1 




229 
























ARRAYS 


35 




























ASCFN 


21l» 




























ASCFNE 


:261 




























ASKOON 


670 




694 


6990 






















aSKLA 


6751 




























ASKSER 


662i 




697 
























ASKVT 


697* 




























8AS1CH 


76t 




























Bb 


73< 




420 
























CHRFNE 


24011 




























CHRtrN 


22»t 




























COUUMN 


37 




























DECCOR 


5«»« 




























iRABSA 


I2t 


136* 


























ERA8SS 


123 


137# 


























ERASCA 


212 




219 


224* 






















iRASCS 


214 


225« 


























tRCHRS 


231 


239* 


























ERUENA 


l»S 


2090 


























ERLENS 


1»7 


2060 


























ERPOSA 


24S 




293 


3200 






















tRPOSS 


247 




296 


321» 






















ERRARG 


3S 




136 


158 


2i!9 


224 


320 


392 


4J9 


463 










ERRniX 


3< 




























ERRNDA 


S0 


1160 


























ERRNDS 


92 


1190 


























ERRROt 


3) 




























ERRSTN 


30 




137 


199 


139 


206 


229 


239 


321 


3»3 


439 


464 






CRSeCA 


327 




330 


3920 






















ERSCGS 


329 




341 


3930 






















ER3CNA 


143 


1900 


























ERSGNS 


14S 


1990 


























ERSTRA 


44S 


4630 


























ER5TR5 


447 


4640 


























ERTABS 


166 


1090 


























ERVAI.A 


399 




4990 
























ERVAUS 


401 


4360 


























tVAl. 


39 




120 


142 


194 


211 


244 


248 


292 


326 


330 


337 


J9S 


444 


TACl 


37 
423 

37 




124 


127 


133 


147 


195 


199 


2?0 


299 


319 


3:!3 


js; 


4-6 


rAC2 
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MACXll 


V021 


22>nAR«73 


19|49 P*OE a 


l»3 








1 LCN rUNCTION 


1»« 


«0843«' 


004737 


000B0EC 


LEMFNI 


JSR 


t»» 


0«0442> 


103016 






OCC 


l»6 


000444' 


122127 


00000BG 




CMP3 


1»7 


000490' 


001019 






BNC 


i»a 


000492' 


009069 


000000G 




CI" 


199 


000496' 


009069 


000000B 




CU" 


iSB 


0004<2' 


012602 






HOV 


2It 


0004«4' 


009202 






INC 


202 


0004«6< 


001402 






BEO 


213 


000470' 


114269 


000000C 




nOVB 


204 


000474' 


000137 


000000G 




JMP 


299 


000900' 


000137 


000000G 


CRUENAi 


JMP 


2B« 


000904' 


000137 


000000S 


CRtENSI 


JMP 


2B7 








UENFNEI 




201 












209 













RoyTiNC 

p;,*«cv«L 

ERLEN* 

IR1)»I«,SPAR 

E"LENS 

rACKKSl 

rAC2(H9) 

t5P)*,R2 

R2 

i»» 

•|R2)|PAC2|R9) 

•fSPRATO" 
••ERRAHG 

••CRRS''^ 



3Si 
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210 
211 
212 
213 
214 
219 
216 
217 
210 
219 
220 
221 
222 
223 
224 
229 
226 
227 
226 
229 
230 
231 
232 
233 
234 
239 
236 
237 
236 
239 
240 
241 
242 



000910' 
000914' 
000916' 
000922' 
000924' 
000926' 
000932' 
000934' 
000940' 
000942' 
000946' 
000992' 
000960' 
000964' 
0009701 



000974' 
000600' 
000604' 
000606' 
000614' 
000620' 
000622' 
000626' 
900630' 
000636' 
000642' 



004737 
103023 
122127 
001022 

012602 

020227 
001414 
121227 

001011 
009069 
209069 
1162»9 
300137 
000137 
300137 



004737 
122127 
001016 
142769 
012746 
010902 
004737 
011600 
116960 
000137 
000137 



177777 

000001 

000000C 

000000G 

000003 

000000G 

000000B 

000008G 



0000001; 



000000G 



000001 

O00000P 

000000G 
000000G 

00000ec 



1 tSe FUNC'ION 


RogTJNE 


ASCFNI JSR 


PCiPHtVAL 


see 


CRASCA 


CHPB 


(Rl)*l«,nPAR 


BNC 


ERASC; 


MOV 


tSP)*,H2 


CMP 


R2, •177777 


BEQ 


EHASCA 


CMPB 


(R2),It 


BNt 


ERASCA 


CLR 


FACKHSI 


CUR 


rAC21N9) 


HOVB 


3|R21iPAC2|R51 


JMP 


•aspRATOR 


ERiSCAl JMP 


••CRRARG 


ERiSCSt JMP 


•ICRRSVN 


ASCFNEI 




1 wn ruNCTioi 


1 ROUTINE 


CHRSFNI JSR 


PC,*PARG8 


CMP8 


(R4)»,.,BP»R 


BNE 


ERCHRS 


aiCB 


>200,rAC2|R9) 


MOV 


•1,.(SP) 


MOV 


RS,R2 


JSR 


PCMMAKESTR 


MOV 


(SP|,«0 


MOVB 


rAC2(R9l,3(R0) 


JMP 


••SOPRATR 


ERCHRSI JMP 


••(RRSTN 


CHRFNEl 





iTAKE CHAR M50 126 



3^''l 
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243 

844 

24; 

246 
247 
24a 
249 

2;b 

251 
252 
25] 
254 
255 
256 
257 

25a 

25« 
260 
261 
262 
263 
264 
265 
266 
267 
26a 
269 
278 
271 
272 
273 
274 
275 
276 
277 
27« 
279 

28g 

281 
292 
293 
294 
299 
296 
287 

28a 

28* 
29B 

291 

292 
293 
294 

295 

296 
297 



000646' 
000652' 
000654' 
000660' 
000662' 
000666' 
0006701 
000674' 
000676' 
000702' 
000704' 
000710' 
000714' 
000716' 
009720' 
000724' 
000726' 
000732' 
000734' 

0007401 
000746' 
000750' 
01075i< 

000754' 
000756' 

000762' 
000766' 

000770' 

000772' 
000774' 
000776' 

001000' 
001002' 
001006' 
001010' 
001014' 
001020' 
001022' 

001026' 
001030' 
001034' 

001040' 
001042' 

301044' 

001050' 
001052' 
001054' 



004737 
103133 
128127 
?01l32 
204737 
103125 
122127 
i!0il24 
004737 
103517 
?04737 
122127 
201114 
005000 
005765 
001077 
085765 
0BJ474 
156500 

026627 

001002 
005)00 
000464 

0(9002 

157602 

021627 

0)1004 

020)02 
003494 
010200 
000452 

009)03 
197603 
06160) 
062703 
0103«; 
012603 
062703 

261602 
062722 
010269 
012602 
26))02 
062702 

121322 

001406 

S05200 



000000C 
000000G 
000000G 
000)000 
0000001; 
0000006 

00000)1: 

000)00C 
000000G 
0000005 
0)0)02 177777 



0)0)02 
177777 



I rOS PUNCTION ROUttNL 
- Pfi»»Ev«t 



POSFnI jSI 
9CC 
CHPB 
BNC 
jsa 
sec 

CHPS 
BNC 
JSP 
BCS 

JSP 

CMPB 

BNC 

CUR 

TST 

BNC 

TST 

B1.C 

BIS8 
ICMECK NULL XS 

CMP 

BNC 

CLB 

BP 
I COMPUTE LENGTH or XS 



CNPOS* 

<Rl)*l«,COMMt 

ENPOSS 

PCiPaiVAL 

EPPOSA 

|R1)4|*, COMMA 

CHPOSS 

p;,BpevAL 

EHPOSA 

P^lPPINT 

|H1|*,»,RPaB 

CRP9S9 

RB 

fAei<«9) 

POSF 

rAe2(K51 

posr 

rAe2iK5),H3 

»(SP)i»177777 

POSX 

R) 

posr 



POSXt CLR 

Bise 

(CHECK NULL TS 
CMP 
BNE 

■ NULL VS, ANS 
CMP 
BLC 
MOV 
BR 



IR0 IS N 



R2 
•2(SP),R2 

(SP), •177777 
POSY 
IS H|N(N,LeN(XSII 
R)|R2 

POsr 

R?iRa 
POsr 



ISAVE AOOR Of ENO OF TI IN TJ 



POST I 



0)0)0; 

000)000 



0)0)03 



000003 

000000G 



CLR 
a|SB 

ADD 
AOO 
MOV 
MOV 
AOO 



R3 

»iSP)|R3 

(S'l.?3 

•3,R3 

RilT2(R5l 

(SP)»,H3 

• 3,R3 



ISAVE AOOR or ENO OF XS IN Tl 



AOO 
ADO 
MOV 
MOV 
AOO 
AOO 



(SP|,K2 

«3,R2 

R2,T1IR9) 

(SP)*|R2 

R).R2 

• 2|R2 



IFINO MATCHING FIRST CHARACTER 
POSFSTI CMP9 |R3),iH2)« 

BEO POSRCH 
P03TRYI INC R) 



3(>0 
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298 
299 
300 
301 
302 
303 
304 
305 
306 
307 
308 
309 
310 
311 
312 
313 
314 
315 
316 
317 

3ia 

319 
320 
321 
322 
323 
324 



001056' 
001062' 
001064' 
001066' 

001070' 
0)1072' 
0)1074' 
001076' 
001102' 
001104' 
001110' 
001112' 
001114' 
001116' 
0)1120' 
001122' 

001124' 
001126' 
001132' 
001136' 
001142' 
301146' 



220269 000000G 

2)1372 

309020 

0)0417 

010246 

010346 

0)9203 

020365 

20141) 

220269 000)0)S 

2)1402 

122223 

20177) 

212603 

912602 

0)0754 

022626 

210069 

209069 000)0)G 

0)0137 000000G 

0)0137 000000G 

000137 000000G 
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1 




CMP 


R2,Tl(R9) 




BnE 


P05FSI 




CLR 


R) 




BR 


P0sr2 


1 CHECK 


THAT 


REMAINING CHARS match 


POSREMI 


MOV 


R2,.t5P) 




MOV 


R3,.(SP) 




INC 


R3 


POSNXTl 


CMP 


R3,T2(S9) 




BEQ 


POSF 




CMP 


R2,THR9) 




BEO 


POSNO 




CMPB 


tR2)*,(R31* 




BEQ 


POSNXT 


POSNOI 


MOV 


(SP)*,R3 




MOV 


(SP|»,R2 




BR 


POSTRT 


(RETURN 


FROM 


FUNCTION 


POSFI 


CMP 


(SP)»,(SP|i 


P0SF2I 


MOV 


RB,FAf2|RS) 




CLR 


FACKHS) 




JMP 


•POPRATOR 


ERPOSAI 


JMP 


PPERRARG 


ERPOSSI 


JMP 


MERRSYN 


POSFNEI 







'6/ 



ilCH 


MACXll 


V621 


22>n4R«73 


32S 








926 


661192' 


664737 


8666665 


927 


661196' 


163114 




92> 


661166' 


122127 


666866C 


329 


661164' 


361113 




330 


661166' 


364737 


868686G 


331 


661172' 


163936 




332 


661174' 


364737 


3383882 


333 


361266' 


316946 


3333831: 


334 


661264' 


316946 


6686880 


339 


661216' 


122127 


866666G 


336 


661214' 


881677 




337 


661216' 


664737 


866666E 


336 


661222' 


163472 




93» 


661224' 


364737 


8666680 


340 


661296' 


122127 


868666G 


941 


661294' 


861667 




942 








943 


661296' 


312662 




944 


661246' 


612668 




94» 


661242' 


166483 




946 


661244' 


661699 




947 


661246' 


365782 




34« 


661296' 


363682 




94» 


661292' 


312732 


666661 


9sg 








351 


661296' 


339338 




992 


661266' 


321627 


177777 


359 


661264' 


197686 


868606 


954 








999 


661276' 


869769 


866666G 


996 


661274' 


166441 




997 


661276' 


661462 




996 


661966' 


818683 




99» 


361362' 


3334K3 




96« 


361334' 


316933 


3383386 


361 


661316' 


383439 




362 








363 


661912' 


826689 




964 


661914' 


161681 




969 


661916' 


816669 




966 


661926' 


826269 




967 


661922' 


161626 




366 








369 


661924' 


16628] 




976 


661926' 


669289 




971 








972 


661996' 


818246 




373 


661932' 


316962 




374 


661394' 


316946 




379 


661936' 


364737 


8686660 


976 








977 


861342' 


812662 




378 


361344' 


312636 




379 


361346' 


361686 





19|49 PASe 11 

I SEC rUNCTION ROUTINE 



SEsrNI 


J5R 


p5,m£v«i. 




acc 


EHSEG* 




OHPS 


tRt)*,«,COMM» 




BNE 


ER3EC5 




jsn 


pg,»«tv»L 




ecs 


ERSEG4 




JS» 


P5,Ml.NT 




HOV 


FtCl(R9l,<<SP) 




MOV 


r»C2tH5),.(SP) 




CMP6 


tRt)*,», COMMA 




BNC 


ENSEOii 




JSR 


p?,»«iv*i. 




BCS 


ERSEG6 




JSR 


P5,»»1NT 




CHPB 


(Rl)t,«,RPtR 




BNE 


EKSEOS 


I GET X 


Vtl.UE IN 


R2 




NOV 


(SP)«,R2 




NOV 


<?P)»|RB 




BMI 


SE0X6 




BNC 


SEGNUk 




TST 


R2 




BOf 


SIGk 


SEGX6I 


H0» 


•».R2 


ICONPUTE l,EN«TH 


or tS IN Rl 


SEOLI 


CI," 


P6 




CUP 


(SP), 1177777 




aise 


•<SP)|R6 


lOET Y 


v»tue IN 


R9 


SEGTVI 


TST 


r»ei<R9) 




BMI 


SEGNU^ 




6EQ 


SEGTr2 




MOV 


R6|R3 




BR 


SEGRNO 


SE0TV2I 


1 MOV 


r*e2(K51,H3 




eiE 


SEGNUC 



iCMtCK mil STHING 



I CHECK 6<>R2<>R9<>Re 

SEGRNCI CHP R6,R3 

6HI SEGR2 

MOV R6|R9 
SESR2I CMP R2|R9 

6H| SIGNUI, 
ICSHPUTE LENGTH or OUTPUT STRING 

SUB R2,R3 

INC R? 
|M»KE NEH STRINO OP THE CORRECT LENGTH 

MOV Ri!,«(SP) iStVF STtRT CHtR 

MOV R»|R2 

MOV R3,><SP| 

J5R P5,»«M»KESTR 
inx ST»CK *N0 MOVE IN CHAPS FROM OLP STRING 

MOV (SP)*|H2 iNrw STRINO POINTER 

MOV (SP)*)R8 (START CMA" 

AOO ISP),R3 lAOU OLD STR POINTER 



36-2 
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366 
3S1 
382 
3B9 
964 
9S5 
9B6 
9B7 
3S8 
3a9 
396 
391 
392 
993 
394 
399 
396 



661356' 316216 

861352' 369689 

881354' 151283 

661396' 062782 

681362' 362786 

681366' 112622 

681376' 869363 

681372' 361379 

361374' 366137 



386663 
386662 



6866860 



MOV 


R2,(SPI 


CUR 


R3 


BISB 


(K2|,M3 


ADD 


•?|R2 


AOO 


•2, Re 


MOVB 


(R8)*|(R2I* 


OEC 


R3 


BNE 


SECtP 


JMP 


PiSTPKO 



881486' 312716 177777 

681434' 366137 3383880 

861410' :!86137 3333B8G 

861414' 368137 8686860 



SEGLPI 



[OUTPUT NutU STRING 
SE6NULI MOV •177777, (SP) 
SEOXI JHP MSOPRATR 
ERSEGAI JHP ••ERRAHG 
ERSEGSt JMP PPERRiiVN 
SEorNEl 



ISaVE "C STRING 

IRJ IS NtU STRING LENGTH 
lAOD" FIHST CHAR [N NEU STR 
lAfO" ST«RT CHAR |M OLD STP 
lF!LL IN NEH STRING 



3^3 
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J97 
39a 
399 

*n 

402 

403 

404 
429 

tet 

Aur 

4gs 

409 
410 
4H 
412 
413 
414 
415 
416 
417 
418 
41» 
42> 
421 
422 
429 
424 
429 
426 
427 
426 
42» 
43S 
431 
432 
433 
434 
439 
436 
437 
438 
439 
441 
441 
442 



001420' 
001424" 
001426' 
001432' 

081434' 
081436' 
001442' 
001444' 
001490' 
001494' 
201496' 
001468' 
081462' 
081464' 
081466' 
001472' 
001474' 
081476' 
081908' 
081902' 



004737 
183096 
122127 

081091 

011600 
028827 
081896 
089019 
089069 
089726 
380439 
K89802 
191802 
018216 
062788 
060802 
189812 
010446 
818146 
018246 



00000BS 
080008S 



177777 



S00200G 
0000001! 



000003 



I V»t FUNCTION ROVTINt 



881984' 084737 08888RG 



881918' 
081914' 
081928' 

881924' 

001926' 
001938' 
081934' 

001936' 
0019401 
001942' 
001944' 
881946' 
0019901 
001992' 
001996' 
001962' 



084737 
818369 
018468 

189718 
001403 
122827 
001773 

020026 
001010 
012601 
012604 
012*02 
118218 
080137 
080137 
000137 



08*888$ 
888888G 
888888G 



00000BC 
000800G 
0008086 



VAi.fNI 


JSR 


PSiMfVA). 




Bce 


ERVAtA 




CMRe 


|Rl|t,»,RPtR 




■NE 


EHVAtS 


IREAO STRING 






HOV 


(SR),K0 




CMR 


RB, #177777 




8NE 


VAtR 




C1.R 


rACl<M9) 




CU" 


rAC2|R9) 




TST 


I5P). 




SR 


VAIJ 


VALRI 


CI.R 


R2 




9ISS 


<RB)|N2 




MOV 


R2,(SF) 




AOO 


• 3, Re 




ADO 


»8,R2 




CI.RB 


(H2I 




MOV 


«4..(SP| 




MOV 


»ll«(»l'l 




MOV 


12. •ISP) 


IREAO ASCII KUNBER AN9 EXPgNCNT 




JSR 


PC,HVA|, 


INORHALUE TO 


PORM ni PT NUMBER 




JSR 


PC, ••NORM 




MOV 


R3,FA5t(R9| 




HOV 


R4,PA(2|R9| 


1 CHECK 


ENO or 


STRING 


VALCEI 


TSTB 


(«ei 




REQ 


VALX 




CMPB 


(R8|*,*BI. 




BEO 


VAUCE 


IRESTORE REGS 


•NO RETURN To EVAt 


VALXt 


CMf 


R8,(SP)* 




9NE 


ERVALA 




MOV 


l5P|»,Rt 




MOV 


I5P)*,R4 




MOV 


(5P)*,R2 




MOVB 


R2,|R8) 


VAUJI 


JMR 


••OPRATOR 


ERVAI.SI 


JMP 


••ERRiirN 


ERVALAI 


JMR 


••CRRARG 


VALFNEI 







ICMECK NUIU STRING 



iRESTORE STRING LENGTH 



Si"/ 



51CH 


MACXll 


y82i 


22»HAR.73 


443 








444 


881966' 


084737 


0888880 


449 


081972' 


183432 




446 


001974' 


122127 


088888C 


447 


081688' 


081831 




448 


001602' 


012746 


088828 


449 


081606' 


318902 




498 


081618' 


084737 


8880880 


491 


081614' 


011683 




492 


081616' 


062703 


080883 


493 


001622' 


010965 


088808G 


494 


081626' 


089869 


080008G 


499 


081632' 


084737 


000000G 


496 


081636' 


380000G 




497 


001640' 


310602 




496 


081642' 


016946 


000008C 


499 


081646' 


084737 


000000(; 


468 


081652' 


ai2616 




461 


001654' 


000137 


080808C 


462 








463 


001660' 


000137 


080808G 


464 


001664' 


080137 


000808G 


469 








466 








467 








468 








469 
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I STR FUNCTION ROUTINI. 



STRFNI JSR 
BCS 

CMPB 

BNE 

MOV 

MOV 

JSR 

MOV 

AOO 

MOV 

CLR 

JSR 

,MORO 

HOV 

MOV 

JSR 

HOV 

JMP 

ERSTRAI JMP 
ERSTRSi JMP 
3TRFNEI 
FNENOI 



P?,»«tVAL 

ERSTRA 

(R1)*,»,RPAR 

ERSTRS 

•28, .(SP) 

R5,R2 

PC,*«MAKESTR 

(SP),M3 

•3,R3 

R3,T21R5) 

TllMl 

P;i*^NUMSGN 

SAVCHAR 

SP,R2 

t;(R5|,.(Sp) 

p5,»^makestr 

(5P|*,(SP| 

••STPRO 

••ERRARC 
••ERRSiTN 



iPROTECT STRING 



J6X 



HASICH Htexll V0il 22>n>f)>73 tS|49 fkK I* 

47» 

«7t 

47? 

473 

474 0gi67g< sgieeg 

479 0116721 giigae 

476 031674' 00000) 

477 0(1676' 000(0) 
470 001700' 000(0) 
47* 001702' 3(0(0) 
49) 001704' 00(00) 
461 0(1706' 3)2214' 
402 0)171)' :<g2)74' 
4S3 0)1712' 3)0)0) 
404 0)1714' 0(0)0( 
49S 0)1716' 3)0)0) 
4(6 0)172)' ^00)00 
487 001722' 000000 
4«« 0)1724' 000(0( 
489 3(1726' 0g((0( 
49) 0(173(' 3(((0( 

491 ((1732' 0(()>( 

492 0(1734' 0((((( 
49) 0(1736' 0(((g( 

494 0(174(< U(((0( 

495 0(1742' 0(((3) 

496 0(1744' 0(((0) 

497 0(1746' n(((0( 

498 0(179(< 0()(0( 

499 0(1792' 0((((( 
9(( 3(1794' 0(((0( 

901 0(1796' 0(0(0 

902 0)176)' 0«((B( 

903 0(1762' 0(((3) 

904 001764' 0)000) 
939 0)1766' )i)( 
9(6 0(1767' (3) 
9(7 0(177(1 0(2(4)/ 
9(8 0)1772' 0(2(34' 
9(9 0(1774' 000000 
91( 0(1776' 000 

911 0(1777' (00 

912 0(2(0)' )3) 

913 0)2((t' (0( 

914 0(2(02' (0) 
M ()2((3' (00 
916 



1 

1 

1 USER ARC' 3roR«ee cells 
1 


• 


USRI .UORO 





SVN'OLS 


iMORD 


3 


LINIT 


,NORD 




P1L 


,UORD 




PnstlE 


,HORO 




AflmYS 


,MORO 




HimEE 


,WORO 




LOFPEE 


,HORO 


USRCOPE 


COO? 


iNORD 


USRLINE 


LIT 


,MORD 




V1«'!*V 


,UORO 




SSISAV 


,HORO 




SS2<!AW 


,UORO 




LINfNti 


,UORD 




CSbCTB 


.UORg 




OOLUfl 


lUORO 




CLN"TTY 


lUORD 




r»ci 


(WORO 




f»C? 


,uoRn 




RBS4VC 


gUORD 




R1S»VE 


,uaRD 




R2S4VF 


,MORD 




RJSivr 


,UORO 




RASIV 


,UORO 




Tl 


iHORD 




T? 


,UORD 




T5 


,UOR0 




RNOl 


,UORD 




RNOJ 


RtNOl ,MORO 




RMOCT 


(UORD 




LOSTR 


,MORO 




HISTR 


.(YTt 




OPEV 


.BYTE 




ItlEV 


* 


TPBFMl 


TPM" 


* 


KBBrwi 


KPHi^ 


,UORD 




ECM5SP 


,9YTE 




CNCrLG 


,9YTe 




CK'orLC 


,8YTE 




riLLCO 


,8YTE 




FtLLNO 


iSYTE 




riLLCH 


,BYTE 




tSPiPE BYTEJ 



36 C 



*S1CH 


MACxll 


V(21 


22.I1»R.73 


917 








518 








S19 








92( 


)(2)34' 


3(2(2(1 




921 


0)2)06' 


0(2(371 




922 


002)1)' 


0(2(2)' 




923 


002012' 


ll)2(2(' 




924 


302014' 


«B2(20' 




929 


3)2(16' 


0(3(0( 




926 




132(2(1 




927 




0(2(4(' 




928 




0)2(37' 




929 








93( 








931 


()2)4(< 


0(2(94' 




932 


0)2)42' 


302(731 




933 


0)2044' 


II(3(0( 




934 


0)2046' 


3(2(94« 




939 


0)209)' 


3(2(94» 




936 


0)2)92' 


0((((( 




937 




0020941 




938 




332074' 




939 




002073' 




94) 








941 








942 




302214' 




943 








944 









19(49 P»CE 19 



> USER 1/0 BUrrER *N0 SUrPcR HOR, SP4CE (TTYI 



KBBFHll 




KBBUFl 


ISSTOT 






KBBEN} 


iBENi 




,UORO 


KBBUri 


IBCETI 




,uaRD 


KBBuri 


|B(;ET2 




iNORO 


kbbuf; 


IBPUT 






3 


IBPSPEC 


KBBUn 


•i 






, 


>,4iKSBSi 


lOtrtULT SliC s 20 CHARS 


KBBENl 


•I'l 

.EVEN 






TPBrHll 




TPBuri 


IBSTOT 






TPBENJ 


iBENil 






3 


IB6ET1 (NOT USED) 




iWORD 


TPBur; 


)86ET2 




iMORD 


TPBUri 


iBPUT 









iBfSOEC 


TPBUri 


■i 






1 


•,»$TPBSS 


IBEFJUI-T • 21/ CH4BS, 


TPBENl 


•■•I 
.EVEN 






USRLINE 








.•'.♦lULNJP 




lOEFAULT t 120 


USRCOOE 









3(,7 



0i8|CH HACXll V021 22tM*R*73 t5|45 UK l» 



949 










1 








9«» 










1 ..ONeE.ONi.r 1 


NIT'. COSE 




547 
940 
949 










1 riNO OUT MOM MUCH CORE AND 


EXPAND USRAREA ACCORDINGLY 


902214' 


162704 


01777* 




DECCoRCIIUO 


•17776, R4 


iCoHE HERE 0" TRAP For BAD HfM*, 


990 


002220' 


022626 








CMP 


(SP)»,|SP)* 




991 
952 

993 


002222' 


000412 








(R 


TRYCOHE 


1 REF'i , AND OEC. CORE SliC 


002224' 


300005 






ONCEONUIRESET 






994 


002226' 


012706 


0(3364' 






HOV 


•IHPSICK.SP 


ITEMP-, STACK 


999 


002232' 


0(4767 


000080G 






JSR 


PCIFPHP 


UNIT FOB FPMP ROUTINE! 


59* 


002236' 


012737 


0022141 


000084 




HOV 


•OECCORE.R04 


ISET UP TRAP AODR. 


997 


002244' 


012704 


16(000 






MOV 


•16(00), R4 


I28K 


550 


002290' 


0(9744 






TR^COREITST 


• IR4I 


iTRAPS TO OECCORE IF BAD AOOP 


559 


002292' 


01273? 


000006 


000004 




MOV 


*«■••• 


IFAULS THRU IF OK . RESTORE TRAP ADO" 


5i0 


002260' 


01(467 


001100 






MOV 


R4,Hi;0RE 




961 


















9«2 










UNlTIAkliE TOR 


or BASIC 




5M 


002264' 


012701 


000002' 






MOV 


•basi;h,ri 




564 










IPRINT 


HEAD INS 


AND READ ANSWER 




565 


002270< 


0(43*7 


00079* 




INIHOI 


JSR 


R3,PRNSG 




»»♦ 


002274' 


Oil 


012 






,OVTE 


1»|12 ' 




567 


002276' 
002304' 


04(9(2 

03012* 


044523 

03(46( 


020103 

101 




1 ASCII 


'BASIS V«(tA' 




5«( 


002311' 


015 


012 






lOVTE 


15,12 




569 


002313' 

002320' 
0(2326' 
0(2334' 
002342' 


117 
09i91» 

04*101 

047095 
04444( 


052120 

020(7! 
02*114 
047J17 
044495 


043)40 
886901 
047040 

086105 
04211* 




■ASCII 


'OPT FNSI A.AUL, 


, N«NONE, I<INDI 


57( 


002390' 


(If 


012 






.BYTE 


19,12 




»7l 


0(2392' 


(77 








.ASCII 


'tl 




57! 


002393' 


00( 








,8»TE 


9 




573 












lEVEN 






574 


002394' 


0047*7 


000722 






JSR 


p;, ROANS 




575 


002360' 


120027 


800111 






CMP8 


R(,>'N 


ICHECK FOR N 


57* 


002364' 


00i9l2 








(EO 


INISAV 




577 


002366' 


009003 








CLR 


R2 


iCtEAR ALL FLAG 


570 


002370' 


120(27 


(0(101 






CMPB 


R(,R<A 


iCHECK FOR A 


979 


002374' 


0(1(02 








(Nt 


INJTI 




500 


00237«( 


005202 








INC 


R8 


ISET AtL FtAS 


501 


002400' 


000419 








BR 


INIAU 




902 


002402' 


120(27 


00(111 




INITII 


CHPS 


R(,i't 


ICHECK FOR I 


903 


002400' 


0(1330 








(NC 


INIHD 




904 










IPRINT 


HEAOtNC 


FOR INBIV FUNCTIONS 


505 


002410' 


0(43*7 


0((*3» 






JSR 


R3,PRMSS 




506 


002414' 


015 


(12 


012 




,BTTE 


I»ll2li2 




907 


002417' 
002424' 
002432' 


(4« 

02(12} 

117 


02*931 
047(4) 


042531 
047055 




(ASCII 


' Y.YES N.NO' 




500 


002433' 


00( 








.BYTE 


( 




509 


002434' 


012705 


0(3374( 




INIAILI 


MOV 


•rNTAB,R9 




990 


002440' 


012704 


0(0((0t 






MOV 


• I»BU9,R4 




"1 










I6ET NEXT rUNCTION TtOt^E ADDRESS 


59! 


002444' 


011503 






INILPI 


MOV 


(R91,H3 




B«S;CH 


M»exii 


V(21 


22.n«Ra73 15|45 PACE 1*«1 






993 


00244»< 


1((((S 








BPU 


INIFN 




594 


002490' 


0*2705 


00)0)2 






ADO 


•8,R9 


ISKIP A FUNCTION 


999 


002494' 


0*2704 


0)0002 






ADO 


•2,R4 




596 


002460' 


000771 








BR 


INUP 




597 










IPRINT 


OUESTION 


FOR FUNCTION, SET ANSWER 


990 


002462' 


020427 


000000e 




iNirNi 


CHP 


R4,(T)|,5END 




999 


002466' 


101091 








8HI 


INISAV 




600 


002470' 


020927 


))3944( 






CMP 


R5,«FNTABE 




601 


802474' 


103(4* 








(HIS 


INISAV 




602 


002476' 


00970! 








TST 


R2 




603 


002900' 


001027 








BNE 


iNior 




604 


002902' 


016967 


800084 


80)014 




MOV 


4(R5),FNN4M1 




609 


002910' 


016567 


800)06 


80001) 




MOV 


6(R9),FNNAM2 




606 


002916' 


004367 


000930 






JSR 


R3,PRnSG 




607 


002922' 


019 


012 






.BYTE 


16,12 




600 


002924' 


000000 






rNNAHll 


.UORO 


) 




609 


002926' 


000(00 






FNNAH2I 


.HORO 


) 




610 


002930' 


035O4( 


040 






.ASCII 


' 1 ' 




611 


002933' 


000 








.BYTE 







612 












.EVEN 






613 


002534' 


004767 


00(542 






JSR 


p;, ROANS 




614 


002540' 


120(27 


00011* 






CMPB 


R0,«'N 


ICHECK FOR N 


619 


002944' 


0(1(02 








(NC 


INITY 




614 


002546' 


0(9724 








TST 


(R4|» 




617 


002990' 


0(0413 








RR 


ININXI 




610 


002992' 


120027 


00)131 




INITYl 


CMPB 


RB,R'Y 


ICHECK FOR Y 


619 


002996' 


001341 








BNE 


INIFN 




620 










lOEriNE 


THE FUNCTION 




621 


002960' 


010101 






iNion 


MOV 


Rt,R0 




622 


002562' 


162700 


0)0()(G 






SUB 


•TABL59.R0 




623 


002966' 


01)024 








MOV 


H0,("4I» 


IPLACE ADDRESS IN TABLE 


624 


0029701 


012321 






ININVI 


MOV 


(R3|4|IR1IA 




629 


002972' 


8203*5 


800002 






CMP 


R?iaiR9» 




626 


002976' 


103774 








810 


INIHV 




627 


002600' 


0*270; 


000010 




ININXTt 


AOO 


•io.R? 




620 


002604' 


820427 


0000009 






CHP 


R4,»T»l.9END 




629 


002610' 


1*1719 








SkOS 


INltP 




630 

631 










ISIVE TO* or SASIt 




632 


002612' 


010167 


179168 




INISAV) 


MOV 


Rl.UtRAREA 




633 










IMDVE USER AREA TQ TOP OF BASIC 




634 


002616' 


012702 


001*701 






MOV 


•g)RiR2 




639 


002622' 


010203 








MOV 


Ri,R3 


ICOMPUTE RELOCATION CONSTANT 


636 


002624' 


1*0103 








SUB 


RliRS 




637 


002626' 


020227 


802214' 




NOVLPI 


CHP 


R!,«usRcose 




630 


002632' 


103005 








BHIS 


MOVOON 




639 


002634' 


012221 








MOV 


(R2|»llRl)* 




640 


002636' 


00177J 








BEO 


HOVtP 




641 


002640' 


1*0341 








SUB 


RJI'IHI) 


iRELOCATE NON.IERO ENTRIES 


642 


002642' 


005721 








TST 


(Rll* 




643 


002644' 


800770 








BR 


MOVLP 




644 










HOVOONI 








649 



















3^r 



36 f 



,1 



B<S|CH ntexit Vg21 22aHtR>73 t9|4» UK I? 



M» 
















♦47 










llNlTULliF UKR ADCA 


»4» 


M2^4* 


016704 


09(912 






MOV 


HlCaRf|R4 |R4 IS HISHEJT »00R, IN 


*4f 


♦({♦92 


162704 


0(09(0 






(U( 


•?((|H4 


*»• 


0I269« 


016709 


179116 






NOV 


U$R6R(4,R9 


|9t 


0t2««2 


01(469 


0900090 






MOV 


R4,tlH|T|R9l 


*92 


002^6i 


162704 


090134 






9U9 


•134, R4 IP8IMTER SPACE 


*fi 


0(2672 


010469 


00(((BS 






MOV 


R4,pokiR9| iBisr or stack 


♦94 


0(2676 


l^27(4 


(((•((6 






9U9 


•SSTKSi|R4 IHAII', STACK 9|!e 


♦99 


0(2702 


01(4^» 


0(((((e 






MOV 


R4,ARRAYS(R9) IHIEST ARRAY STOP, UOC, 


♦ 96 


0(2706 


e^2704 


00(040 






• DO 


•40, R4 


♦97 


002712 


010469 


090(000 






MOV 


R4,P051lttR9) 


♦ 9« 


0(2716 


912769 


032331 


0(((0(C 




MOV 


•?233;,RN01(R9) 


♦9» 
♦♦■ 

♦♦i 


0(2724 


012769 


193291 


(■■••(6 




MOV 


•t932M|RNB2(R9) 










latALOeUC TO set up T(RNtNtL TVPC 


♦♦! 


0(2732 


0(9(03 






AS«S{R| 


CtR 


R? 


♦♦» 


((2734 


0(4367 


09(312 






J»R 


R3,PRNSS 


♦♦« 


((274( 


(19 


(12 


(12 




.ITTt 


l»iliil2 


♦«9 


((2743 


106 


091901 


020124 




.♦acii 


'fAST SCR TERHt' 




0(2799 


(42921 


020122 


042924 










((2799 


(♦♦922 


077 










♦»♦ 


((2791 


(0( 








iBVTt 





♦♦7 












lEVCN 




♦♦• 


((27^2 


0(47^r 


0(M14 






J9R 


Pi;iR0AN9 


♦♦» 


((27^^ 


12((27 


(((119 






enn 


RI,<<N 


♦7i 


((2772 


0(149» 








(CO 


AJKOON 


VI 


0(2774 


12((2r 


0(9131 






CMra 


R(,»'T 


♦ 72 


((3((( 


(•1394 








•NC 


A^KSCN 


»75 
174 


((3((2 


((929} 








INC 


R? 


♦r» 


((9(04 


0(4MT 


((•242 




*ski*i 


JSR 


RflPRMS 


♦7» 


0(9(t( 


(19 


(12 






,9*TE 


19,12 


♦77 


0(3(12 


040914 


03((4) 


024949 




,«9CII 


>|,A30 (300 BAUOjtl 




903020 


0390^3 


020060 


040992 










003026 


042129 


037491 










♦ 7^ 


0(3(32 


((• 








,9VTE 





♦ 7» 




0(3(34« 








.EVEN 




♦•» 


((3(34 


0(4707 


99(242 






JS" 


P;, ROANS 


♦ai 


0(3(40 


120(27 


0(0131 






CHRB 


R(,(>T 


♦•2 


0(3(44 


0(1432 








(ca 


ASXDON 


*»i 


((3(46 


121(27 


(((11$ 






CHPB 


R(,«>N 


♦•4 


0(3(92 


((1394 








•NC 


ASXU* 


♦99 


0(3(94 


0(9203 








INC 


R* 


♦♦♦ 
















♦at 


0(3(96 


0(4347 


0((17( 




tSXVTI 


JSR 


R3,pRH9e 


♦aa 


0(3(62 


(19 


(12 






.BYTl 


19il2 


♦89 


a(3(^4 


09(12« 


03249g 


(24040 




,♦901 1 


'Vr99 (»6R9 BAUD)!' 




((3(72 


03947t 


03«(6« 


(2(«9( 










((31(( 


04(902 


042129 


(37491 








♦ 91 


((3106 


009 








■ BVTt 





♦»x 




993119' 








.EVEN 




•!» 


0(311( 


094767 


00(106 






JSR 


P;, ROANS 


♦*3 


((3114 


129(27 


0(0131 






CMRB 


RBlCr 


♦ 94 


003120 


091404 








BEO 


A^XOOfi 



39d 



BA9ICH MAeXll V921 22aNAR.73 19149 PASE 17<t 



699 


0(3122' 


12((27 


(((lit 




cmpb 


R(|*'N 


696 


0(312^< 


0(1393 






bnc 


ASKVT 


♦ 97 
♦99 

♦ 99 


0(313(< 


9((7(( 






• R 


AfKSCR 


0(3132' 


0103(2 




ASKOONI 


MOV 


RfiRi 


799 


(•3134' 


0(1412 






9E9 


rilLDON 


701 


0(313^< 


0(9303 






ASL 


R? 


7(2 


00314(* 


0^0302 






AOO 


R?,R2 


703 


003142' 


•♦2702 


0(3963' 




ADO 


•?IU1.IB,"2 


704 


0(3146' 


01(90] 






MOV 


R9,R3 


7(9 


(0319(' 


SI9279] 


000000S 




ADO 


•ril.LfO,R3 


709 


0(3194' 


112223 






MOVB 


(R2)*,IR3|t 


707 


0(3196' 


112223 






M0V8 


tR2)«,IR3)* 


709 


09S19(' 


112223 






MOVB 


IR2)*|(R3)A . 


7(» 








ftUOONI 




71( 








(PRINT 


OUT IP 


USER FUNCTIONS U0A5E0 


711 


0(3162' 


0(9737 


(8((49 




tst 


••46 


712 


903166' 


0(1414 






9ca 


N0U8R 


713 


((317(' 


0(4347 


000996 




JSR 


R?lPRN55 


714 


((3174' 


019 


(12 (12 




,8rTt 


19, 12,12 


719 


003177' 
003204' 

003212' 


-1" 

04tl00 

042101 


042923 020122 
02(123 047914 
042109 




■ASCII 


'U9ER PNS LOAOeO' 


719 


993216' 


(•• 






iBVTE 





717 




(•322(« 






.EVEN 




719 








NOUSRI 






71» 


0(322(' 


0(4307 


000(26 




JSR 


R3,PRMS0 


720 


((3224' 

003227' 


(19 
000 


012 (12 




.BVTt 


1>, 12, 12,0 


721 










.EVEN 




722 














723 








1 CHECK 


I' RNOu LOAOEO 


724 


0(323(' 


0127(2 


(00(000 




MOV 


•!ABLe9,R2 


729 


0(3234' 


012205 






MOV 


(R2)»|R3 


72^ 


003236' 


0(1403 






BEO 


NORNO 


727 


00324(1 


0^2703 


000014 




AOO 


•RN0fN«RN0l,rN,R3 


729 


0(3244' 


010312 






NOV 


R^,I"2I lOt 


729 








NORNOI 






73( 
731 
732 


0(3246' 


300167 


000(R^O 




JHP 


9I4RT 








ISUSROUTInC to 


PRINT A NCS9AGe 


733 


((3292' 


0i»30a 




PRNS8I 


NOV 


R?,R0 


734 


0(3294' 


1(9737 


1777760 


PRtPl 


TSTB 


••TPB.2 


739 


003260' 


100379 






BPt 


PR|,P 


734 


003262' 


112(37 


000(000 




MOVB 


(R0)*,>0TPR 


737 


003266' 


1191372 






•Nt 


PRUP 


739 


0(3270' 


010003 






MOV 


R0,R3 


739 


003272' 


909203 






INC 


R? 


749 


0(S274' 


296203 






ASR 


RJ 


741 


003276' 


0(6303 






ASk 


R« 


742 


0033((< 


0(0203 






RT» 


R3 


743 














744 








isubroutinc to 


READ ANfMER PRQN TEL 


749 


((33(2' 


0(9267 


176492 


ROINSI 


INC 


RANO 


746 


0(3306' 


1(9737 


999^(($ 




7JtB 


••tK9 



lOtPINE UNO ALSO 



37/ 



SAStCH HiCXtl Veat 22iHtR<73 1JJ49 ^AOC iT<t 



747 
74« 
7«» 
7S» 
751 
7SS 
7SJ 
7S4 
75» 
75» 
757 
75» 
75« 
76» 
7»» 
74? 
76? 
7«4 
7»5 
7»i 
7»7 
761 
7»» 
778 
771 
772 
773 
774 
775 
77« 
777 
77« 
77» 
780 
7»X 
782 
769 
754 
785 
784 
787 
788 
78* 
7»» 
7»1 
792 
79? 
7»4 
7»» 
7»» 
7»7 
798 
79« 
8I« 
801 



003912< 
803314' 
303320' 
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706 
787 
788 
789 
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MOV 
MOV 
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CUR 
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R2 
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R3 
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0|3B 
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829 


000042' 
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388094' 
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306066 


880884 
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8S7 
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889 
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sr«j2i 
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MSV 
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toe 
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MOV 
HOV 

en 
iiror 

MOV 
MOV 
MOV 
MOV 
MOV 
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COM 
CMP 
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MOV 
MOV 

too 
oeo 
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SLE 
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lt|tl*t(SP| 

"?|R2 
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P2 
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P0 
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P2 
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EtE 
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R0 
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R0 
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800314 
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008320 
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000404 
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800324 
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981 


000340 


866601 
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000392 
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038027 
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883 




929 


008443 
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931 
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MOV 


••tCiR( 


949 








NOV 


••HSiRl 


99( 








0R 


N90S2 


951 








ilT 




9»2 


M«462< 


030(27 800400 


8«tt2l 


RB|04«i 


9»3 


g»«466< 


001014 




BNE 


UTSJ2 


954 


et«47«i 


009383 




DEC 


R} 


959 


ggf472' 


006301 




<Sk 


r; 


956 


8e»474l 


00610« 




"Ok 


R( 


95» 


aM476' 


800771 




(fl 


B?»»2 


996 


dlKtfl 


809701 


ZT3S2I 


TST 


RJ 


959 








■ If or 


EAC 


961 








9NE 


B!9«2 


961 








9R 


ieil<2 


962 








,ENOC 




963 








.IFNOr 


E*E 


964 


8gg982' 


801419 




)E0 


iERS2 


969 


gge9«4< 


800381 




9N4B 


Rl 


966 


0(0986' 


190100 




BtSB 


RI.R0 


967 


0g85ig' 


109001 




CLRB 


Rl 


96C 


gi09i2' 


16270} 0)0010 




SUB 


•f.iR? 


969 


gggsit' 


800761 




BR 


(I»I2 


97» 








.ENoe 




971 


0gg52gi 


809703 


UTM2I 


T»T 


"i 


972 


000522' 


003322 




9CT 


Nqot2 


973 


000924' 


804967 00S910 


UNrS2l 


J»R 


R»,IEKR 


974 


000530' 


000481 




BR 


UN0t2 


979 


000532' 


009 




,BYTE 


S 


97t 


000933' 


00} 




,9»Tt 


2 


977 


800934' 


809001 


UNet2| 


5LR 


"5 


978 


080936' 


809083 


iEM2| 


CUR 


R3 


979 


008940' 


800729 




(R 


STRJ2 


9eg 








,ENOC 




981 








lENOC 




982 








.EOT 




983 













s^r 
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I 



984 




















































































800000 








800081 








8)0)02 








8)0)03 








800084 








0)0009 








80)0(6 








8))(8r 








e))00) 








800)01 








800)02 








800(83 






























































000942 


0(9(4) 






800944 


816904 


80)002 




800990 


812746 


871030 




800994 


812746 


137661 




000960 


824646 






000962 


816446 


000002 




000966 


8J1444 






000970 


003934 






800972 


806316 






800974 


116666 


800(01 0)0014 




000602 


112766 


800200 0)0001 




800610 


0)6)16 




1825 


800612 


812746 


8(2363 


1026 


000616 


812746 


840(65 


1027 


000622 


816646 


880006 


1028 


080626 


816646 


880086 


1829 


080632 


812746 


082363 


1030 


0(0636 


?12746 


840)65 


1831 


800642 


804467 


803230 


1832 


800646 


000002' 


800760' 000006' 




800694 


8)1234' 




1833 








1834 


800656 


8)1)06' 


801806' 


1235 


001662 


202322' 


2)0734' BB)74(' 




80067) 


8)0746' 


880746' 


1036 


000674 


802322' 


880086' 8023221 



RASie SOURCE riLC '10 





.TITLE 


>AU60f 




.iroF 


CN0S3 




.(kOBU 


«|RR.A|,OC 




.ifNor 


i»ki 




.eiOBL 


AkOGK 




.ENOC 






.:fNor 


FRU 




.CLOBI. 


irOkSH, SAOR, <SBR, SMLR. tOVRi S 




.ENDC 






•0!«0 






»tF«l 






R2p%2 






R3PI13 






R4«X4 






R9tX9 






Sf*l(6 






RC4X7 






r0fu 






'I'Xl 






f2»X2 






r3lX3 






.IfNor 


'fU 




tl'NOF 


MAS 


«US6t)l 


NOV 


•Re,«|SP) 




)R 


10013 




.ENOC 




Aueci 


C|,R 


• (Sf) 


L0«SS| 


HOV 


2|R9I|R4 




MOV 


•0710J0,.(SP) 




HOV 


•137661, .(SP) 




CHf 


.(SPJiXSP) 




MOV 


2|R4)|«(SP) 




HOV 


•R4,>(|P) 




«I.E 


ERRS9 




AS). 


•SP 




Movg 


lispiiU.isP) 




HOVB 


•200,ltSP) 




ROR 


•5P 




HOV 


•0(23t9t>(SPI 




HOV 


•(4)(t9,.|SP) 




HOV 


6ISP)i>(SP| 




HOV 


6I3P)|«<SP| 




HOV 


•))23i3,.|3P) 




HOV 


•040($9,.|9P) 




JJR 


R4,IP0L5H 




,«0R0 


I$(RlVPS3iSADR,seVR 




iHORO 


0UPt3,DUPSS 




.UORO 


tM|,fl|MCi;il,STKl3,SrK1},STKI3 



Sf9 



.NORO SH|,Rl<AOR|tMtR|S«OR,tHLRi>*ORtiH|.R|SAOR 



it^iti nunn vsii z}»H*fi>73 11194 hk lai 

ise702' etttdil gg2922' zttttn 
8ta7i0' ewtitti iMUti 



lei? 














lesi 


000714' 
000722' 


00077J 
002322' 


00223^1 


001020' 


.UOKP 


SStS9l*l«lPl,»*'<Nllt 


IB3» 

lB4t 
l««l 


000724' 


000006' 


0)1032! 




iHORO 


i<0PiSII|S3 


000730' 


002322' 


0)1032' 




(WORO 


IHkXi|X|<3 


1«42 


000734' 


012600 




RMSSt 


MOV 


(5P|*I«B 


leo 


00073«l 


012601 






MOV 


(fP»*|Hl 


IB«« 


000740' 


012702 


001116^ 




MOV 


•S0Ni;*4,Rt 


ie4» 


000744' 


000402 






■R 


STM3 


ixi 


000746' 


010146 




STKS3I 


MQV 


"Bi.<!P| 


1»«T 


000790' 


01004« 






MOV 


1(4« 


000792' 


014246 




STCSSI 


MOV 


•("2I|.(»P) 


H4» 


000794' 


014246 






HOV 


• R2)|«(SP| 


lese 


000796' 


000134 






JMP 


• R4I* 


1091 


000760' 


012666 


000012 


UPI3I 


MOV 


1 P|*il),|SP) 


i«92 


000764' 


012666 


00001! 




MOV 


< P)4|i),l)PI 


1093 


000770' 


000134 






JMP 


• B4)* 


ie94 


000772' 


0a5g4« 




SCLS3I 


eu« 


• 9PI 


tes9 


000774' 


196616 


00)»)« 




)I)B 


6 »P)|»9P 


l«9i 


001000' 


162716 


000200 




SUB 


t»).>SP 


1B9T 


301004' 


000134 






JHP 


»(««). 


ia9« 


001006' 


016646 


0)0002 


0UM3I 


MOV 


2JSP),.(SP| 


1099 


001012' 


016646 


000002 




MOV 


2|SP)|>(SP| 


1060 


001016' 


000134 






JMP 


•«P41* 


10«t 


001020' 


0127«6 


071030 


l>U2S3l 


MOV 


•)7103),«tSP) 


106! 


001024' 


012746 


040061 




MOV 


•)4)B*li>|SP) 


1063 


001030' 


000134 






JMP 


•("4)« 


1064 


001032' 


109366 


000)09 


t)(U3| 


oess 


9I3P) 

I8ti9 


1069 


001036' 


002409 






•IT 


106« 


001040' 


012746 


099731 




HOV 


1)99791,. ISP) 


1067 


001044' 


012746 


037736 




MOV 


0)37796, •|«PI 


106S 


0010901 


000134 






JMP 


• R4)*' 
( P|*,P) 


t06» 


001092' 


012600 




UStJSl 


MOV 


1070 


001094' 


018601 






MOV 


( P|»,«l 


107X 


001096' 


00972« 






TST 


( PI* 

R 


107S 


0010601 


000209 






PT) 


1073 


001062' 


062706 


000016 


CRRSSi 


too 


• 4,,}P 


1074 


001066' 


004967 


00314$ 




J|P 


R ilCRR 


1079 


001072' 


000209 






»T1 


R9 


107« 


001074' 


004 






,BVTE 


4 


1077 


001079' 


012 






,BVTt 


1». 


1076 










iCNQC 




107? 










,iror 


PPU 


1000 














1061 










.;rNor 


•ati 


106! 








iuaetii 


1 MOV 


•P0,R4 


1063 










ao 


1,0093 


1064 










iCNOC 




1069 














te6« 








«t06l 


"1-;, 


R4 


1067 








L0«$3| 


JCTP 




1068 










8ETI 





v^ 
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1069 

1090 
1091 
1092 
1093 
1)94 
1099 
1096 
1097 
1096 
1099 
1100 
1101 
1102 
1103 
1104 
1109 
1106 
1107 
1106 
1109 
1110 
lilt 
1112 
1113 
1114 
1119 
1116 
1117 
1116 
1119 
1120 
1121 
1122 
1123 
1124 
1129 
1126 
1127 
1126 
1129 
1130 
1131 
1132 
1133 
1134 
1139 
1136 
1137 
1136 
1139 
11«B 
1141 
1142 
1113 



001)76' 03763} 014929 

001102' 037714 120036 

001106' 340092 129332 

001112' 240400 



00)001 
0)0)02 
080)03 

080))4 

000)09 



14 Ptse 3>2 






MOV 


•reosi,R0 




uor 


•«(R9|,r2 




crcc 






Bte 


ERR89 




STEXP 


r2,Ri 




uoeir 


Rl,r3 




"ULf 


(R0)*,r3 




LOEXP 


•),r2 




Lor 


rj.ri 




SUBF 


iRBi,r2 




tpor 


ifi0l*,pi 




otvr 


Pi,r2 




UOP 


r2,ri 




Muur 


p;iri 




«ov 


• 9,R1 




LOP 


(R01*|P) 


xpgs3i 


MUir 


n,n 




OEC 


Ri 




tOOP 


(R0)»,rB 




BST 


XP0S9 




"UUP 


r2,r0 




ADDF 


(Rai*iP) 




iOOP 


rj.po 




TST 


R4 




BEO 


L5TI3 




Muir 


(R)|»|P) 


Lisrs9i 


STf 


r),.(SP) 




MOV 


(5P)»|R) 




MOV 


(SP)»,Rl 




RTS 


R9 


ERRS9I 


J5R 


R9,$EHR 




RTS 


R9 




,8»T{ 


4 




,BVTE 


1»'. 


reo»9i 


lUORO 


040)61, 071030 




.UORO 


04))69, 0)2363 




,ENoe 






,HORO 


)9r69«,)t4929 




iHORO 


)977t4, 12)096 




lUORD 


040)92,129392 


C0Nt3t 


,WORD 


04040B|)0)8B) 




iiror 


rpg 




iHORO 


197661,871030 




,HORO 


09779$, )99T31 




,ENOO 






.ENoe 






.TITLE 


)ANTB9 




,IPOP 


CN0S4 




lOLOBL 


AINT.SINTR 




R)>IIB 






RH«1 






R2PX2 






R3PII9 






R49X4 






R»«X9 





y^/ 



w^ 
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1144 




000006 


114» 




000007 


1146 




177304 


1147 




177314 


114» 




000000 


114» 




000001 


1150 






llSl 






lis? 






1153 






1154 






1155 






115» 






1157 






use 






115» 






1160 






1161 






1162 






1163 






1164 






116S 






116* 






1167 






1160 






1169 






1170 


0tlll*< 


016904 000002 


1171 


»(11Z2« 


011400 


117J 


001124' 


016401 000002 


117J 


001130' 


010702 


1174 


001132' 


00040) 


1179 


001134' 


005002 


ll't 


001136' 


012600 


1177 


8011401 


012601 


1170 


001142' 


010001 


1179 


001144' 


00610] 


1100 


001146' 


10500J 


1101 


001150' 


00030] 


IIBZ 


001152' 


16270] 000230 


1103 


001154' 


002020 


1104 


001160' 


02270] 177790 


110? 


001164' 


00240] 


110* 


001166' 


019000 


110T 


001170' 


009001 


1100 


001172' 


000412 


lt»» 


001174' 


S1034* 


11>0 






11>1 


001176' 


006000 


1192 


001200' 


006001 


119? 


001202' 


00920] 


1194 


001204' 


002774 


1195 


001206' 


11260] 


119* 


001210' 


006901 


1197 


001212' 


006100 


1190 


001214' 


00920] 



«INT| 



tlNTKI 

0NCt4| 
«INTI 

tINTRI 
»UJ4| 



SP>X6 

Nail773|4 
LSH«177St4 

r0tx0 

rnxi 

,iror rru 

.jrNOP 1040 
.UORO 170001 



8Hr»4| 

R0M4I 



>S|.S4| 



,)IORO 

iMOXO 

,UORO 

NOV 

MOV 

RT0 

lENDC 

iHORO 

,HORO 

iHORO 

.HORO 

JMF 

iHORO 

.(Noe 

il'NOf 

MOV 

"9» 

MOV 

MOV 

0R 

ei.R 

KOV 
MOV 
MOV 

"01 

CIRB 

IH4B 

iu0 
0ec 

CMP 

01.? 

CLR 
CLR 
0R 

MOV 

, irmr 

RQR 
NO* 
I NO 

0(.T 

MOV 

*]L 

»ot 

INC 



ir2479,2 
171467,24 

ir4i4j 

(|R)*|R0 

(?R)*i*l 



IJ0»»1 

1^2426 

i*i46ri« 
iruM 

•«R4)* 
0«0200|0 

rrv 

2iR9l|R4 
•R4,R0 
2<"4)|R1 
PS,R2 

«u»« 

R2 
lf')*|l*« 

R0,R3 

•290, Rl 

0NCI4 
•■30, R3 
$MPt4 

R0 

0NH4 
"]|«(»'l 

cAeiMUkoiv 

Rl 

"} 

ROR04 
(P»*|R3 

«» 

R0 
R3 



■i-/dP~ 



<"«ii» 
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1199 
1200 
1201 
1202 
1203 
1204 
1205 
1206 
1207 
1200 
1209 
1210 
1211 
1212 
1213 
1214 
1219 
1216 
1217 
1216 
1219 
1220 
1221 
1222 
1223 
1224 
1229 
1226 
1227 
1226 
1229 
1230 
1231 
1232 
1233 
1234 
1235 
1236 
1237 
1230 
1239 
1240 
1241 
1242 
1243 
1244 
1249 
1246 

1247 
1248 
1249 
1290 
1291 
1292 
1293 



001216' 002774 



001220' 009702 

001222' 801401 

001224' 000209 

001226' 010146 

001230> 010046 

001232' 000134 



DNCt4t 



0NiS4| 



SCMOI 



rp«9i 

SMeS9| 



iCNOe 




iiror 


lU 


MOV 


•H0,R3 


MOV 


*i,»ii 


MOV 


R0,<<N3) 


MOV 


P5P,P«tSH 


NJG 


•SP 


MOV 


(|P|*,*PU]H 


MOV 


(R3|*,R0 


MOV 


•R3,Ri 


.ENOC 




.If or 


Myuoiv 


lUORO 


07301$ 


NEO 


PSP 


,UORO 


07302* 


.ENOC 




T»T 


R2 


0EQ 


0N114 


RT0 


R» 


MOV 


Ri,>(SP) 


"OV 


"0,.(SP) 


JMP 


•("4)» 


,ENOC 




,ENOC 




.TITLE 


s;mo02 


.If or 


eNDI5 


.SI.OBU 
R0'|0 


SCMO 




"I'Xl 




R2!(2 




R4tll4 




8P9X6 




pe«x7 




r0PX0 




.Ifor 


PPU 


iHORO 


170011 


,U0R0 


ir242» 


,HORD 


17342* 


,UORO 


170000 


JMP 


•|R4)* 


,{HDC 




.ifNor 


fPU 


MOV 


•pe,R0 


MOV 


•,(8P|,"l 


001 


rpsi9 


*Sli 


R0 


»0V 


lf»Ml»2 


•IT 


SN(I9 


0R 


N$SS5 


MOV 


(Jf)*l"2 


01? 


Pk8l9 


CMP 


"li"2 


0NC 


0I/TI9 


MP 


0,(»P),»8P 



/-/ 



-/0 3 



125« 
1299 

t29« 
1297 
129a 
129» 
126« 
12»t 
1262 
1263 
1264 
1269 
1266 
1267 

126a 

1269 

1270 
1271 
1272 
1273 
1274 
1279 
1274 
1277 
127a 
127» 
1298 
1291 
1282 
1293 
1294 

12a9 

1296 
1297 
1299 
1289 
1290 
1291 
1292 
1293 
1294 
1299 
1296 
1297 
129a 
1299 

I3ie 

1301 
1392 

1903 
1304 
1309 

1306 
1307 
130a 





•NC 


0«T»9 




CMP 


llWSPIiZltP) 

0«T$9" 




9NC 




CHP 


12,(JP),4(«P) 




9N( 


0UTS9 




ei.9 


R9 


ours9i 


■gn 


R0 




9C3 


Pl,9|9 


NE:es9i 


NES 


R9 


PL919I 


too 


•t4,,»P 




TST 


R0 




JHP 


•(R4)« 




lENOC 






iCNoe 






.TITUE 


9;MR02 




,]'0r 


eNo«6 




.suoau 


f^MR 




ROnxa 






"lixi 






K2IX2 






R4IX4 






9PtX« 






rft%7 






ritX0 






,iror 


rpu 


SCNRt 


,KOPO 


1790O1 




lUORD 


172421 




,WOR0 


ir>426 




iHORO 


179909 




JNP 


t(R4)* 




■ SNOC 






.IfNOf 


p;u 


JCHRl 


H0» 


•#q,R0 




MOV 


4l<P)|Rt 

rP9»» 




9«t 




<9k 


R0 




p<0» 


(!P)*|R2 




9tT 


SMei6 




BR 


Nsaat 


rPSJ61 


MOV 


(9P)*,R2 




SLT 


Pk9i* 


3HeS6l 


CMP 


RtiR2 




9N( 


ouna 




CMP 


4(9P)i»SP 




8NE 


0UTI6 




cu« 


Rl 


outsai 


«0R 


Rl 




90? 


P1,9I9 


Nee$*i 


NEO 


R« 


PLSttl 


too 


*Sl9P 




TST 


Ra 




JMP 


»(R4)* 




,EN0O 






,6N0C 






.TITtE 


>Qgi,92 



^oi 
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1309 
1310 

1311 
1312 
1313 
1314 
1319 
1316 
1317 

I3ia 

1319 
1320 
1321 
1322 
1323 
1324 
1329 
1326 
1327 
1329 
1329 
1330 
1331 
1332 
1333 
1334 
1339 
1336 
1337 
1339 
1339 
1340 
1341 
1342 
1343 
1344 
1345 
1346 
1347 
1346 
1349 
1390 
1351 
1352 
1353 
1354 
1359 
1396 
1397 

139a 

1399 
1360 
1361 
1362 
1363 



ii'or 


CNas7 


icioai. 


09I.E 


it»%t 




RlKXt 




R2IX2 




RSlXS 




R9tX9 




08I.EI MOV 


2|R9)|R2 


MOV 


(R2)*|R9 


MOV 


•R2,Ri 


C|,R 


R2 


CtR 


R? 


RTS 


R9 


.ENOC 




■TITLE 


900101 


■ I'or 


CN0*9 


.eL09u 


9oei<>RCi 


ROfXO 




Rti»t 




R2IX2 




R3fX3 




R4PX4 




R9IX9 




9P>Xt 




PC4X7 




NUMEN0P9 




P0tNTLl2 




0I8ITSI4 




9EXP«« 




ESIONpa, 




9ISNP19, 




EEl(P«t2, 




P«3«, 




0>92, 




ERP«26; 
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«T» 

HOV 
J** 

HOV 
HOV 
HOV 

HOV 

J9B 

JJ» 

MOV 
AOO 



F5,«l!«9 



114 

•<>tlKS|4 

tXll9 

•» ,(K31» 
•'||9KS 

EX2I9 

■Ha 

EX3J9 

•72, *4 
II4,1(H9) 

••I.sr 

<SP)*,R4 

||P)4,tl3P) 

(?P)*(»(SP) 

(?P)*|(»P1* 

(»»»♦ 

-■ Ml 

«l 

11*1*1*4 

*» 

*Z 

Kt 

KB 

(jP)*|l»3 

*« 

"l 

*f 

(|»I»I*J 

»l 

*• 

t5P|»|Bl 

MB 

P! 

nt.iPB 

PS,*ITJ9 

P4,.(ip) 

Mi«(SP| 
H2,><!|P) 

(i;,.<SPi 

PS|«II»9 
P!,RII19 
•2|RB 

ps,mii9 

t|aP)|R4 



^/V 
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1899 

1868 
1861 
1862 
1863 
1864 
1869 
186« 
1867 
1668 
1869 
1870 
1871 
1872 
1879 
1874 
t879 
ia76 
1877 
1878 
1879 

laea 

laei 

1882 
1883 
1884 
1889 

laaa 

1887 
1888 
1889 

1898 
1891 
1692 
t«93 
1894 
1899 
1896 
1897 
1998 
1899 
1988 
t981 
1982 
1989 
1984 
1989 
1986 

1987 
1988 
1989 
t»l» 
1911 
1912 
1913 





»oe 


«9 




AOC 


R2 




Aoe 


Rl 




AOO 


4(SP)|R3 




AOC 


R« 




Aoe 


*l 




AOO 


2(BP),R2 




Aoe 


n 




AOO 


•SP.RJ 




OEC 


RB 




OCT 


MS2S9 




OEC 


R» 




Bor 


M»lf9 




AOO 


»B',,9P 




»T» 


P5 


ML8S9I 


MOV 


»9,.<jP| 




MOV 


•3,R9 


M8tf9l 


<9L 


R4 




»0t 


•? 




"01, 


R2 




«ou 


"). 




•01, 


RB 




OEC 


R9 




B«T 


"Bl»9 




MOV 


(SP|*|R9 




•T» 


PS 


ERKS9I 


T9T 


(?»)♦ 




MOV 


9|9P)|R9 




MOV 


l.(8P),»4 




T9TB 


TJPtlfP) 




BtO 


9!M9 




AOO 


•4,114 


9T9t9| 


M0V8 


• <.t,(K9)* 




CMP 


IK, 




»to 




COM 


TTPEdP) 




BR 


ONEJB 


puet9i 


CMP 


"?|P2B, 




BOT 


"MI9 




MOV 


R9,B(XP48*t(SPt 




BCD 


Rtf9l9 




BUT 


•«1»9 




MOV 


RB,.<5P| 




MOV 


r;i«<jp) 




MOV 


R2.«(?») 




MOV 


R9i«<{P) 




MOV 


R4,.<jiP) 




MQV 


•i8«8Be,Rt 




et« 


R« 




et« 


R» 




ei« 


R4 


"0P$9| 


OEC 


B{XP*B*24tB,(9P) 




BEO 


Roeit 




J9R 


PS|M41>8» 




J«R 


P5l«IIB9 



"//s- 



;»»« 

l»t» 
i»tt 
l»t7 
19t« 
l»t» 
192) 
l»2l 
1»S! 
l»2? 
1924 
i9»> 
19!» 
1927 
192( 
1929 
1931 
1931 
1932 
193J 
1934 
193» 
19»» 
19S7 
19S» 
193» 

I9«e 

19«l 
19«2 
194J 
1944 
194j 
1944 
1947 
194J 
1»49 
195» 
1»»1 
19S2 
t9»3 
1994 
195> 

i9»i 

19»7 
1953 

1999 
196i 
1961 
1942 
1969 
1944 
196» 
t9»t 
1967 
t96» 





J»» 


R!.RJI»9 




J}R 


RS.RIIB9 




tR 


R?r»9 


R0BS9I 


Ct« 


Rl 




100 


(!R)*|R4 




400 


R? 




Aoe 


R2 




»oe 


Rl 




too 


IJR)*lR3 




toe 


R2 




toe 


Rl 




too 


(|R|*|R2 




toe 


r; 




too 


l?R|»|Rl 




toe 


Rl 




too 


(SR)*|R» 


IIU2S9I 


mr 


RlB.lRB 




•ST 


RU1>9 




INC 


esxR*2(SRi 


"gt«9| 


RTI 


R« 


IIU3S9I 


too 


•?|RB 




■R 


RyM9 


ISNS9I 


CMF 


R»|i>B*2(?R| 




eko 


»Re»» 




ROR 


•*((SR) 




ece 


ISRI9 




MOVB 


•l«,*N9 


ISM9I 


INC 


R* 




RT» 


»S 


SPei9| 


ROR 


•4«(SR| 




>C* 


tRR»9 




INC 


R9 




ORR 


R»iS*«ISP| 




no 


eHR»9 




"T» 


'5 


D68S9I 


ONR 


•11,, HI 




»«T 


on«9 




HOVB 


•lt,(R9)* 




>ue 


•11.. Rl 


0GiJ9| 


ewR 


R0!NT»2(SR).R9 




ONC 


09219 




HQVB 


••■•(RB)* 


aefS9| 


OMR 


t«2(SRI.RS 




BLOS 


o;ei9 


0BSS9I 


too 


•il.RI 




HOVB 


Re.(RBI* 




CtR 


RB 




J>R 


RS,H9459 




JSR 


R5.HUBf9 




BR 


0?II9 


0I8(9| 


RTS 


RS 


"lt«9| 


cue 






ROR 


"I 




«HJR 


"2 




RCR 


"? 
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1969 

197B 
1971 
1972 
1973 



ROR 


R4 


• TS 


m 


itNOC 




.EOT 





H/l 
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1»7« 
l»Tf 

t»r? 
im 

1*17 
1*S« 
t«»« 
l**f 
t»»l 

1»»» 

i»»r 

l»99 
2IVt 
iftl 
UI2 

21(4 
2t«9 
2I«» 
2107 
W* 

2ie< 

2(lf 
2ltt 
2(12 
2(1« 
2I1« 
281S 
2«lt 
211? 
2»« 
2(1* 
2f2l 
2l2t 
2122 
2(2} 
2*24 
2»2> 
2(2t 
2*27 

2»2a 



I 
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2029 
2030 
2031 
2032 
2033 
2(34 
2(30 
203« 
2037 
203( 
2039 
2(40 
2041 
2(42 
2(43 
2(44 
:(4S 
2(4| 
2047 
2040 
2049 
2(»( 
2091 
2092 
2(93 
2094 
2099 
209t 
2897 
209S 
2099 
2060 
2(«1 
20e2 
2063 
2064 
2069 
206t 
2067 
2(60 
2(69 
2(70 
2(71 
2(72 
2(73 
2(74 
2(79 
2(7t 
2077 
2(70 
2079 
2000 
2(01 
2(S2 
2(S3 





iTITtE 


>QI.C(? 






.If or 


010110 






.CI.O0I. 


DUeCPLOSKiSERR 






.irNor 


rp« 






.$1001 


tPOLSN|StOBit0(O.|HkB,IDVOiSIOi 


|IP0PR4 




.(NDC 








»0lX( 








•tlXl 








•21X2 








■ 3l«3 








nt»%* 








•91X9 








(PfX6 








»eiX7 








r(ix( 








riixi 








r2lX2 








r3lX3 








.irNor 


rpg 






OLBSKI HOV 


•pe,«<sP) 






(R 


kDS(l» 






oLoei CLK 


• tSP) 






uotiid HOV 


R9i>(SP) 






HOV 


2(R»)|R4 






too 


»«-,,R4 






«ov 


•147972i«|9P) 






HOV 


•173721, .(8P) 






HOV 


•(71027i>1SP) 






HOV 


•137661,. (JP» 






(U0 


'(.■(R 






HOV 


.|R4),.(9P) 






HOV 


.(R4li«tSR) 






HOV 


.(R4I,.19R) 






"OV 


.(R4I|.(3P) 






Bit 


ERRI10 






*SL 


• SP 






Hova 


1(SP)|26,(SP) 






HOVS 


•2((,1|SP) 






RO" 


•SP 






HOV 


•197149, .(SP) 






HflV 


•031771, .(SP) 






HOV 


•0023»3,.(SP) 






HOV 


•(4(0$9,.|3P) 






HOV 


irilS').'!''! 






HQV 


14,(SP),.(SP) 






MOV 


14,(SP),.(SP) 






HOV 


t4',lSP),.(SP) 






HOV 


•197149, .(SP) 






HOV 


•831771,. (SP) 






HOV 


•0(23$3,.(SP) 






HQV 


•040(69, .(SP) 






JS" 


R4,iPOI.0H 






,HORO 


l$0O,UPSt0,IAOB,IDVD 




23aH«Ra73 


11134 PAOE 4.1 








.WORO 


OURStdOUPIK 






.NORtJ 


IMLD 






,UORO 


jpgpi)4 






,NORD 


"SOili 






XRBI10I .MORO 


SMUO, SiOO, IHUO, StOB, tH|,0, (too. 


SMLOiSAOO 




.UORO 


iN|,o,itao,tHto,ttOB,«MLO,stao 






.UORD 


i;i,it(i<io,Pk2iiR,tiii.o 






,UORD 


StBOitxISK 






.HORD 


iMLO.^Xlm 
«2J,,SP 






ERRSKI too 






JSR 


RJ.ICHR 






0R 


EHOIK 






.0VTE 


4 






.0VTt 


3 






RE8J10I HOV 


•(0NSl«*a,,R4 






HOV 


• 7,R9 






0R 


STCSIB 






STKtt0l HQV 


»3,.(SP) 






"OV 


R2,.(jr) 






MOV 


»1,.(*P| 






MOV 


"»i.(|'( 






STM10I HOV 


.(R4)|.(3P) 






MOV 


.(R4)|«(SP) 






HOV 


.(R4)|.(3P) 






HOV 


.(R4),.(SP) 






ote 


R9 






0«T 


STKIH 






HOV 


•XP0St(,R4 






JMR 


•(R4)» 






UM10I HOV 


(|P).,22,(9P) 






«ov 


(|P)*,22,(SP) 






MOV 


ISP).|22,(SP) 






»ov 


(5P)*,22,(9P) 






JM» 


•(R4)» 






secstai CL" 


.(SP) 






>|S0 


12,(SP),PSP 






■U0 


•2((,«9P 






JHR 


•(R4)» 






OUR$10| HOV 


«(SP)).(9P) 






MOV 


6(*P)|.(3P) 






"OV 


4(SP),.(SP) 






MOV 


6(3P)|.(3P) 






JMR 


•(•4)* 






PU2J10I HOV 


•147972, .(SP) 






HOV 


•17}72l,.(SP) 






"OV 


•07tJ27,.(SP) 






HOV 


•I4|l»l,.(3f) 






JH» 


•(R4)* 






Exitid o(;b 


11. (S?) 
L«M1( 






0I.T 






MOV 


•(I4tt2,.(SP) 






"OV 


•i244J7,.(9P) 






HOV 


•(997?(|.(3P) 





V/T 



V/^ 
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2864 

2«at 

Iter 
2tae 

8eB» 

2290 
28»1 

2g«! 
2e«3 
2e«4 

2B«» 
2««t 
J>»7 

2a9t 

»»»» 

2108 
210t 
2102 

2104 
2107 

210» 

2107 
210* 
210« 
2110 
Jill 
2112 
2119 
Jll« 

iii; 

211t 

2117 
21ia 
2H» 
2120 
2121 
2122 
2123 
2124 
212» 
212t 
2127 
2121 
212? 
213* 
2131 
2132 
2133 
2134 
213$ 
213« 
2137 
213a 





MOV 


IM77?«,.tW) 




JH» 


»|R4)* 


LcriU) 


HOV 


tM»*|R» 




MOV 


(fR>*|Rl 




MOV 


(l»>*|R2 




«0V 


(»')»iR3 


ERotm 


MOV 


(f')*|R5 




TST 


(5^)* 




«T» 


R9 




.(Noe 






,iror 


FRU 


OLOGUI 


MOV 


»Re,Rj 




•R 


kO6il0 


OlOGI 


SL" 


"4 


Loasi0i 


lETO 

»ETI 






MOV 


•rco«0,R0 




kOO 


M|R5!,r2 




crec 






B\,t 


ERRtl* 




ITfX^ 


r»,Ri 




UDCIO 


(R0i*ir3 




MULD 




uorxf 


«»|F2 




LOS 


ri,n 




•UID 


iR8)ir2 




tooo 


iR»)*,ri 




0|V0 


ri,rt 




koo 


n,ri 




M«UO 


n.ri 




MOV 


•t|Rl 




kOo 


(R0)*ir0 


X?9tl0l 


Mgio 


ri,f0 




oce 


Rl . 




AOOD 


(Re)*»rB 




»5T 


XROS10 




MUkO 


ri,rt 




tooo 


(R0i*ir» 




AOOO 


ri,fe 




TST 


R4 




«B 


I.5T110 




Mguo 


IR»),t» 


LStSUI 


ITO 


r0,.iiiRi 




MOV 


i;pi*iRf 




MOV 


(?R|*i"l 




MOV 


(|R)*|R2 




MOV 


<»»)*|RJ 




MTt 


R9 


ERKS10t 


M* 


R^iSCRR 




MTS 


R» 




,8YTE 


4 




,BTTE 


3 


rcssiai 


,UORO 


04006;, 071027 




,HORO 


173721, 147S72 




,UORD 


0400«!l, 002363 



^AO 
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lUORO 
lENOC 
lUORD 
,«0R0 
iNORD 
I WORD 
iNORO 
.tlORO 
,UORO 
iHORO 
,NOR0 
,UORO 
,UORO 
,WORO 
CONSIOI ,UORO 
,kORO 



2139 
2140 

2141 
2142 
21«? 
2144 
214» 
2146 
2147 
214? 
2149 
2190 
2U1 
2152 
21S3 

Jl'f 
2155 

2156 
2197 
2150 
2199 

2160 
2161 
2162 
2163 
2164 
216* 
2164 
2147 
2160 
2169 
2170 
2171 
2172 
2173 
2174 
2175 
217« 
2177 
217S 
2179 
2190 
2181 
2192 
2193 
2194 
2195 
2196 
2167 

2iaa 

2199 
2190 
2191 
2192 
2193 



JOINTI 



tOINTI 



,UDRO 
iNORO 
iHORO 
,HORD 
l(NOC 
.(NOC 
iTITtE 

■Ckoec 

R«fll0 
RlMl 
R2III2 

R4IX4 
R««X» 

tm* 

MOI177S04 
»SH4177Ilt 

r0tx0 

'im 

iHORO 



»?1771, 157145 

0Jr45>,l»l627« 

l?716Sil7477a 

«?7471, 072731 

IJ'716, 117119 

93754}, HHS3 

"taiBll 135465 

037622|044436 

00730(i063il62 

»?'714, 1*6514 

153490,169773 

040092,125292 

129247,004443 

040400,000000 

000000,000057 

rFu 

l}766i, 071027 

173721,147572 

•?773}|059r30 

1244*7,024162 



tONT0> 
CNOtll 
• PINT 



iHORO 

,WORO 

,UOR0 

JM» 

i«OR0 

lENOC 

iI'NOf 

MOV 

"ov 

MOV 
MOV 
MOV 
MOV 
MOV 

ROk 
CIRB 



1J»«2» 

ljl447,4 

l*41*S 

•tR4l* 

040200,0,0,0 

HI>)*|R0 

(S»)*|Rl 

(»R»*|R2 

(?»)*|R3 

R4,.<}R) 

«9,.(JP) 

R0,R4 

R4 

R4 



y^/ 
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at»9 

ai»» 

Jl»7 
21<« 

2289 

22et 

2282 
22«3 
2204 
22>!l 

2Ztt 

2217 

22e« 

220* 
2210 
2211 
2212 
2213 
2214 
22t» 
221* 
2217 
221S 
221* 
2220 
2221 
2222 
2223 
2224 
222ii 
222^ 
2227 
2221 
222* 
2230 
2231 
2232 
2233 
2234 
2239 
2234 
2237 
223« 
223* 
2240 
2241 
2242 
2243 
2244 
2240 
224* 
2247 
2240 





SHtB 


"« 




0U0 


«70,H4 




06C 


OMtlH 




inp 


••70|R4 




•u» 


SHriii 




eu» 


R0 




CL» 


"i 


C23Sltl 


ei.» 


<<2 




ei« 


»i 




011 


ONcsi; 


SHfllll 








ilfNor 


e*i«i<Ukoiv 




HOV 


R4,R» 




w* 


•■32,|R4 




0(.T 


ROR0H 




SCO 


C?3fll 




100 


»»2..l<4 




NOV 


R4,RJ 


KRiSllI 


•OK 


R0 




no* 


"; 




INC 


R4 




0ir 


"Riii; 


ASiSllI 


>Sk 


Rl 




»0l 


R0 




INC 


Rf 




•UT 


•tlill 




0R 


CZ3I11 


"OMllI 


KOR 


m 




• OK 


R? 




INC 


R4 




SUT 


RORtlt 


«st:siii 


«»(. 


R? 




"01 


R» 




INC 


R0 




•LT 


>«Lii; 




.CNOC 






.iror 


EAC 




NOV 


•HO,R» 




.(Noe 






• I'or 


HULoivtete 




CHP 


•■32,|R4 




"UT 


R23S1; 




SCO 


023311 


><0iiiit 


•00 


•3t,|K4 




il'or 


NUUOIV 




iNORO 


073004 




NC6 


R4 




,HOR0 


>7300f 




■ cxoe 






il'or 


t« 




NOV 


•1,»R» 




NOV 


R0,«<K9| 




NOV 


R4,**tlH 




N{S 


R4 




NOV 


R4,*aAtH 



^Ji^ 
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224« 

2290 
2291 

2292 
2293 
2294 

2299 
229$ 

2297 
2290 

2299 
22»0 
2261 
2262 
2263 
2264 
2269 
226* 
2267 
2260 
2269 
2270 
2271 
2272 
2273 
2274 
2279 
2276 
2277 
2270 
2279 
2200 
2281 
22S2 
2293 
2294 
2299 
221* 
2297 
2290 
2209 
2290 
22»1 
2292 
2293 
2294 
2299 
2296 
2297 
2298 
2299 
2380 
2381 
2382 
2383 



R23Sttl 



R23S11I 



ONKllI 



SORI 



0R{S12I 
0VRJ12I 



NOV 

NOV 

iCoc 

8R 

■ ipor 

iWORO 

NCO 

,WORO 

iCNOe 
iiror 

NOV 
NOV 

NOV 

Nce 

NOV 

NOV 
NOV 

iCNoe 
iCNOc 

MOV 
NOV 
NOV 
NOV 
NOV 
NOV 
JMP 
iCNOC 

■ CNoe 

■TITIC 
.I'OF 

■ SI.O0L 
R4(X4 
R9ill9 
0PtX* 
'08X0 

ilPor 

.WORO 

,NOR0 

lUORO 

0V0 

.WORD 

JNP 

,CNoe 
.iPNor 

ROl 
ADO 
ADO 
900 

IV< 

NOV 
NOV 

JHP 

eitp 

CHP 
iCNOC 



(RS)*|R0 

•R9ir; 

023111 

MUkOlV 

073204 

R* 
873284 

CAC 

R3|*R9 

R2l>(N9) 

R4,8aA9H 

•4 

R4,'*tA8H 

(H»)*,R2 

•R9,PI3 



(SP1*|R9 
(9P)*|R4 
RS,.(JP) 

R2i«<$P) 
Rii^dfP) 
R0,.(fP) 
•(R4I* 



SOR02 

0N0I12 

iORif(RR 



PPU 

170001 
177424 
170000 

0V1I12 
17404* 
•(R4)» 

PPU 
4tSP) 

2(aP) 
•?p 

0VRtt2 

OVRIW 

IJP|»|2(9P| 

(»P)*,2(SP) 

*|R4)* 

<J»)*|(SP)* 

«JP|«|(»P|* 



y^3 



net 

JSBT 

a9e' 
29te 

2311 

:3i2 
»ij 

2J1J 

>9i$ 

tilt 
a?t7 
i9ia 

ajt» 

>92e 

2921 
2322 
2323 
2324 
2329 
232t 

232r 

292S 

232« 
233t 
2331 
2332 
2333 
2334 
233> 
233» 
2337 
233e 
2339 
234« 
2341 
2942 
2943 
2944 
2949 
294t 
2947 

294a 

2949 

29»e 
2391 
2992 
2399 
2994 
2999 
2996 
2997 
2399 



2J.»UH.79 


11194 UK 4.* 






ovIti2| gs* 


•9ilCHK 




an 


0R2»2 




.B»Tt 


9 




,»TTt 


29. 




082S12I CIR 


• (S9) 




et« 


• (»•) 




JM» 


9(R4)* 




iCNOC 






iTITU 


t09Na4 




.I'Or 


CN0S19 




.IfNor 


o;iN>i^eos 




.SUOaL 


lAOOiSSBOiiKLI 




iCNoe 






KMXa 






•nxi 






•21X2 






•9lX3 






• 41(4 






•99X9 






aP)X« 






•e9X7 






r»«»l 






711X1 






f2ax2 






'99X3 






iifNor 


r'U 




DCOSI HOV 


•»|.<|9) 




»0V 


2|*9)|*4 




et« 


• (!») 




MOV 


4JR4)|«|SP) 




HOV 


4(K4)i<(3P| 




MOV 


2|94)|a|SP) 




«0V 


•fl«,>|9P) 




NOV 


•B«4JB2,.(JP) 




HCV 


• 12lJni-(5P) 




MOV 


• ee779Zf|SP) 




MQV 


• l«4(3il,>(JPl 




J5» 


•4,iP9LSH 




,NOII0 


lAOOiXNOtt] 




09INI MOV 


•9,.(SP) 




"ov 


2(»9)|P« 




et« 


• (SPI 




MOV 


»|P4||«<SP| 




MOV 


4(P4)|*(SP| 




MOV 


2|P4||«<SP| 




MOV 


M«,.|SP) 




SNesi3l >8k 


•8P 




•OK 


B.ISPl 




•o» 


9SP 




MOV 


«e»43il2i>|9P) 




MOV 


•121941. '(SP) 




MOV 


•9«7T92,.tSP) 




MOV 


•84«7],1,.|3P| 



y<^v 
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2999 
2949 
2991 
2992 
2963 
2964 
2969 
2966 
2967 
2968 
2969 
2979 
2971 
2972 
297? 
2974 
2979 
2976 
2977 
2978 
2979 
298) 
2981 
2382 
2989 
2984 
2989 
298« 
2987 
2388 
2389 
2999 
2391 
2992 
2393 
2994 
2399 
2396 
2997 
2398 
2399 
2498 
2491 
2482 
2403 
2404 
2409 
2496 
2497 
2408 
2409 
2419 
2411 
2412 
2419 



asest9i 



XPDS19I 

PR4S13I 

•TN$19I 

•TI$13| 
0UPtl3l 



X4I13I 

ieR919l 
9UeSt3| 
(3STS19I 



QSRSIII 

9139131 



QUtSlSI 
PtVllSI 



JSR 

,UORO 

lUORD 

,UORD 

lUORO 

,MORO 

,HORO 

,WORD 

iHORO 

lUORO 

,UORO 

lUORD 

iWORD 

,MORO 

,HOR0 

,HORO 

iHORD 

,WOR0 

iHORO 

lUORQ 

,HORD 

TST 

too 

MOV 
RT9 

MOV 

MOV 

MOV 

MOV 

JMP 

TJT 

BCD 

INCB 

JHP 

MOV 

JMP 

BIB 

JMP 

TST8 

BCb 

ADO 
CtR 
CIR 

CL," 

MQV 

JSR 
,UOR0 
MOV 
ISRB 

Bce 
too 

JMP 
MOV 
MOV 



R4,IP0I.8H 

iOVO 

Oi/PIW 

JOINT 

SSBD 

X4ft3 

o«P$l9 

JOINT 

HWtU 

ISBO 

ovpjii 

0«P»t3 

JMIO 

jpqpi<4 

P1.TJIJ 

IMLOiitOOiSMlOiStODitnLOtStODiIMLOiStOO 

>M|,0>ft00ilHL0iStODi«ML0iStOO|>ML0illOO 

JMIO 

1P0PR4 

RTNIlj 

(SP)* 

"Tim 

•10B9B8|R8 
(5P|»iR9 

• 9 

»|3P)|a(3P| 

6(3P)l«<9P| 

6(9P),<(SP| 

6|8Pli>|SP) 

•(R4»* 

•SP 

n*ni 

1(SPI 

•(»4I* 

•PR4t|9)"4 

•(R4)* 

•»P|l»i(8P) 

•(R4)* 

«i(SP| 

913119 

•i0B090|*SP 

• (SP) 
.(3P1 

• (SP) 

i4B20Bi«<SP) 
R4,|P0l,SH 
ttOO,9SRJ19 
•08C9;9,R4 
9|(BP) 
BUTIli 
•1BBBB0|*8P 
•(R4)« 

•;eN913*8',,R4 
•?'iiR» 



y^5- 



tOSN(4 H«exil V02t 

«•!• 
Ml» 
2421 
2421 
2422 
2421 
»•!« 
242} 

l*it 
2427 
242* 
242* 
2431 
2431 
2432 
24S« 
2434 
243$ 
243» 
2437 
2431 
24St 
2441 
»441 
2442 
2447 
2444 
2449 
244( 
2447 
244» 
2449 
2491 
»45l 
2492 
249} 
»«94 
2499 
249* 
2497 
2491 
2499 
24ti 
M»l 
24*2 
24*3 
24*4 
24*9 
24*» 
24*7 
24*9 



25.«»H.73 


tt|94 Pits 4.a 








99 


»vi*u 




'YMISI 


HOV 


•Ji-df) 






NOV 


»«i»<l») 






HQV 


ni»«i('i 






«0V 


«9,.(5P) 




'THISI 


MOV 


.|94)|«<9r) 






MOV 


.(•4)|>I3P| 






MOV 


•(■4)|.(99) 






MOV 


•(•4)|>(5P| 






oce 


99 






96T 


'7MH 






MOV 


•X909i3,«1 






jnr 


•(«4)» 






.(Noe 








,iror 


rrv 




OCOSI 


9tT0 








LDO 


•2|K9!|78 






tooo 


'UJlJi" 






9K 


SNCIIJ 




OSINI 


9CTD 








LOO 


*2(99)ir9 




SNSitSI 


9ct; 








MOV 


treo9i3,N9 






C19 


9« 






croc 








9«e 


F09ii; 






INC 


«4 






>9*0 


Tt 




^QStUI 


OIVO 


tM)*,ri 






MOOD 


•l'|9iE9 






cree 








9C9 


"INIIJ 
•«.9.f* 






MOOD 






97001 


FliHl 






•OK 


«; 






900 


01991} 






N(SO 


r* 






1000 


»V,*>t* 




9139131 


■ OK 


91 






*c« 


81291? 






Ncea 


r9 




0121131 


kOO 


r9,r2 






MUkO 


r2,f« 






MOV 


(fi9)*t;i 






too 




tnnu 


MUbO 


r»iri 






B»e 


«; 






tooo 


(«9)*,rt 






9«T 


X9091J 






Mguo 


71,79 






T9T 


94 






9(0 


«!n*h 






NC90 


r* 




KTNSIJI 


ITO 


'9,.(|9) 






MOV 


(|»)«l«9 



V^^ 
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24*9 

2479 
2471 
2472 
2473 
2474 
2479 
J47t 
2477 
2479 
2479 
2499 
2491 
2492 
2493 
2484 
2489 
249* 
2*87 
2489 
249* 
2499 
2491 
2492 
2493 
2494 
2499 
249f 
2497 
2498 
2499 
2999 
2991 
2992 
2993 
2994 
2999 
299* 
2997 
2990 
2999 
2910 
2911 
2912 
2913 
2914 
2919 
291* 

nti 

2919 
291* 
2929 
2921 
2922 
2923 



MOV 


(S9)*|R1 


MOV 


(*9|»l«8 


MOV 


(»9t»|R3 


9T9 


•9 


9129131 .HORO 


9*9311,997732 


,KORO 


i:t94t,gtt9*2 


7009191 ,W090 


949711,997732 


,N090 


121941,9*4992 


.CNOO 




iHoiie 


92*71t,19*793 


,H090 


949277, 1««3*2 


,U090 - 


1394*7,134273 


,M090 


193994,123193 


,U090 


9)11*4,974*97 


,11090 


947294,194742 


,MORO 


1339*1,191*4* 


,UORO 


li72U, 13491* 


,UOR0 


9;9999, 93*932 


,U0R0 


941214,103131 


,H090 


1?*231, 9*4949 


,UOR0 


971*21,129924 


,UORO 


9J724}, 932743 


,UORO 


0?9*99, 991997 


,UOR0 


1^994;, 99*747 


(UORO 


0)9499,171222 


COII9t]| ,HORD 


949311,107732 


iMORO 


121941,0*4392 


.CNOe 




.TITtt 


ie9a*i 


.1707 


0NO914 


.0U09I. 


0f9RT,9CRR 


.I'Nor 


PRg 


iCUOOl, 


|100ilOVD,l9aL3H 


,{Noe 




IIOlM 




R1I91 




R2IX2 




1139)13 




94*94 




•9iX9 




79199 




7t»Xl 




72I92 




9P9X* 




,irN07 


7RU 


OSORTI MOV 


R9,>(iiP) 


MOV 


2|R9)|R9 


MOV 


*R9,Ri 


9MI 


eRR9i4 


9t0 


2CR»4 


MOV 


2|R9),R2 


MOV 


•4,«<|R) 


1*9 


n 


ROR 


R8 



y^7 
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2>S4 
2929 
292» 
2927 
2926 
2929 
2939 
2931 
293! 
293? 
2934 
2939 
2936 
2937 
293* 
29SV 
294« 
2941 
294! 
294) 
2944 
2949 
2Ui 
2947 
2941 
294* 
299e 
2991 
2992 
299) 
2994 
2999 
299» 
2997 
2996 
299? 

29ta 

2941 
29»2 
296) 
2964 
2969 
296$ 
2967 
296S 
296* 
2979 
2»7l 
2972 
297) 
2974 
2979 
297t 
2977 
2976 



lUMt4| 

UP1.U4I 



0Uttt4l 

"TNI14I 
eRIISt4| 

iEKSt4| 

OSORTI 



100 

en 
eu» 

NOV 
NOV 

eu" 
ei» 

HOV 
HOV 

cv« 

MOV 
MOV 

ji* 

,UOKO 
>U9 

ot? 
>(« 

MO* 

MO* 

MO* 

MO* 

MO* 

MO* 

MO* 

MO* 

•R 

MO* 

MO* 

MO* 

MO* 

TIT 

MO* 

"TS 

J»« 

• R 

.9YTt 

t»*Tt 

CUR 

CUR 

CUR 

CUR 

tR 

iCNoe 
,l'Or 

MO* 
MO* 
•HI 
«C9 

MO* 

»»R 

■OR 
tOD 

eu" 

CUR 



*t»te«iRi 

•<1RI 
•(Ml 
R«. •<»"•» 
Rli«<»R) 
•(IRI 

• <SR) 

2|R9)i<(SR) 
•Rli«|>R) 
•(»R| 
•(9P) 
R?,.(|R) 

r;i«<i») 

RfiiRQUSH 
IP*0i«100iURUS14 
•?lli»9R 
•illRI 

6|R9li«(Sf| 

4(R9)(.<SR) 

2|R9)|*<>R| 

•R9,<((l>) 

t«i(S?l.-(»P» 

l«i(»R)i-<9R» 

l«i(IR)i-(SP) 

l«i(l?li»(9R) 

UUMl! 

UR)*|R» 

<»»)*|Rl 

(|R1*|RJ 

IfR)* 

(|R)*t«9 

R9 

R9iiCRR 

RINJl! 

4 

4 

Rl 

RJ 

R2 

R? 

RINI14 

PRU 

2(R9»|R4 

•R4,R1 

ERRI14 

iCRIli 

2|R4)|R2 

r; 

R2 

•2«l«llRl 

•fWI 

• (SR) 



y^r 
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2979 
2999 
2991 
2992 
299) 
2994 
2999 
2996 
29B7 
29«a 
ae9«« 
2999 
2991 
2992 
299) 
2994 
2999 
2994 
2997 
2999 
2999 
2609 
2601 
2602 
2603 
2604 
2609 
2606 
2607 
260) 
2609 
2610 
2611 
2612 
2613 
2614 
2619 
26« 
2617 
2619 
2619 
2620 
2621 
2622 
2623 
2624 
2629 
2626 
2627 
2629 
2629 
2630 
2631 
2632 
2633 



MOV 


r2i«(;r) 




MO* 


Rli-<il») 




MO* 


• 4,R0 




9CT0 






UDO 


(|R)*i'» 




UOO 


•R4,r? 




UURS14I uoa 


riifi 




UOO 


n,Ti 




oivo 


"iirt 




4000 


ri,ri 




oee 


R0 




OIVO 


«',».r0 




•or 


UVR91} 




STB 


r0i><|R) 




MOV 


(|R1*|R« 




MOV 


(?R)*|R1 




MOV 


(?R|*|R« 




MOV 


(?R|*|R) 




RT9 


R9 




eRR$14| J«R 


R9,tCRR 




RTS 


R9 




,»*Tt 


4 




.•TTt 


4 




iCRtl4l CUR 


R0 




CUR 


Rl 




CUR 


R« 




eu* 


R« 




RT9 


R» 




,CNOC 






.tNoe 






.TITUE 


IPTN») 




.IPOr 


CNOil? 




.«uo>u 
.I'Nor 


04riN|C«T*N2 
FRU 




.CU09U 


IA00i<SBD,tNUD|SS*D.tPeu9HiSR0RR4 


lENOC 






R(9X» 






Rigxt 






R29X2 






R)6XS 






R4III4 






R9iH 






901X6 






rg(X0 






ruxi 






rum 






r)ix) 






r4t«4 






79tX9 






iirNor 


FPU 




0At«N2| MO* 


R1>,.<»P) 




CUR 


•(9P) 




CUR 


• )9P) 




CUR 


• (»P) 





ypf 



^y 
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2*34 
2*3» 

2«3* 

z*v 

2«3< 

a44« 

»»4l 
1*42 
2*43 
2*44 
2*4» 
1*4* 
2*4? 
2*4« 
2*49 
2*91 
1*91 
2492 
2*93 
2*94 
2*»» 
2*9* 
2*»T 
2*9* 
2*9* 
2**f 
2*«1 
2**2 
2*63 
2**4 
2**9 
}*** 
2**7 
2*** 
2*** 
2*7* 
2*71 
2*72 
2*7J 
2*74 
2*79 
2*7* 
2*7? 
2«?» 
2*7* 

2*ai 

2**1 
2**2 

2*a? 

2**4 
2**9 

2*a* 

2**7 
2*** 





CkK 






ei» 




cu« 


• »») 




ei» 


•«WI 




Cl« 


.(«PI 




eu« 


•t»p» 




X0» 


2 «S»i»* 




NOV 


t >4li*(9P) 




HQV 


4 «4)in<S^I 




NOV 


2 R4I|>|SP| 




HOV 


•R4,«isP) 




MOV 


•iPi«»' 




MOV 


4|N}||K4 




MOV 


t »4)t«(IP| 




MOV 


4 K4t|«(SP) 




MOV 


2 *4)|«<SP| 
•A4|«|fP) 




MOV 




MOV 


•»'l«i 




•CO 


iNrii? 




»st 


R« 




CkKI 


K* 




IMAI 


RR 




itk 


"l 




et»i 


"t 




iN*8 


Rl 




>u* 


"tiW 




CMP 


•i)*.|HI 




"L? 


IWIl? 


DIVStSI 


JSR 


"•li^PLSH 




,«OR0 


iovaiURi>l9 


UPtWSI 


TST 


•4(R9| 




■cc 


*I«H? 




MOV 


•g4«9t}iXK 

MB77|2,ii; 

•121841.2*5 
•»*43ai,22^ 




MOV 




MOV 




MOV 




T»r 


•!(W| 




•se 


*IH1» 




*B0 


•if»l*lit»>, 


ATtttJI 


TIT 


*i* 




IR 


tttii; 


IN^StSI 


too 


•4*.. if 




MOV 


•«4l3UiRI 




MOV 


tlt77|2iRt 




MOV 


*t21fn.R2 




MOV 


(t*4in<"? 




T»T 


•J(R»I 

INMlf 




•sc 




too 


•tfHMiRI 


INM19I 


«T» 


R? 


BttANI 


MOV 


R?i«<f') 




CL* 


• <SR) 




ei» 


• |*R) 




ei.« 


• (**) 




ei,» 


• 1**1 
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2*«» 




CI.R 


2**» 




C^R 


2*»1 




CUR 


2*»2 




CLR 


2*»? 




CtR 


2*»4 




MOV 


2*99 




MOV 


2*9* 




MOV 


2*97 




HOV 


2*9* 




MOV 


2*99 


*T»15| 


>cc 


27BB 




too 


27B1 




INC 


27B2 


RkUltSI 


CMR 


2703 




>kO 


2704 




«5T 


2709 




TJT 


270* 




tut 


2707 




TST 


270* 




aNC 


2709 




TST 


2710 




HS 


2711 


STilUI 


MOV 


2712 




MOV 


2713 




MOV 


2714 




MOV 


2719 




0(C 


271* 




MOV 


271? 




HOV 


271* 




HOV 


2719 




HOV 


272( 




HOV 


2721 




CUR 


2722 




CI* 


2723 




etR 


2724 




JSR 


2729 




.MORD 


272* 


kCiS19l 


MOV 


2727 




MOV 


272* 




HOV 


2729 




HOV 


2730 




CUR 


2731 




CLR 


2732 




CUR 


2733 




Cl,R 


2734 




CM* 


2739 




ai.0 


273* 




aHI 


2737 




CHR 


173$ 




*HI 


2739 




•k* 


2740 




CM* 


2741 




•Ml 


2742 




•to 


2743 




CMR 



• (SR) 
•(•R) 
•(SRI 
•(SRI 

• (SR) 
2(R9)|R4 
6(R4li«|SR| 
4|R4lia(3R| 
2(R4I|«ISP| 
•R4,>|SR) 

rCuii* 
•;000i0i*s» 

2«', U»l 
•|R, 440200 

Ldsi^ 

5III1? 

2|aR) 

8H«1? 
4(SRI 

«iisi; 

*(9R) 
kClttI! 

•14(311, «,|SR| 

•*077)2ll0', (SR) 

•121041, t2{(SR) 

•0*4301, 14; (SR) 

24, (SR) 

*(3R)|>(SR| 

t|SR),.)3R| 

4(SRI|^(3R| 

«|SR)|«(SR| 

•40200,8,(9*1 

1»WSR) 

12; (SR) 

l«.(8R) 

R4,|R01,9H 

lOVD.ktlSif 

»(SR)|.<SR) 

»(JR),.(SR) 

*(IR|,>(9R) 

t(aR)|>(3R) 

•lISRI 

1»',(SR) 

W, (SR) 

1«,(SR) 

•SR,(037»lt 

I.19S19 

TNSSl? 

2(SP)|f030242 

TNSSl? 

L19S1? 

4(SR),»172S*» 

TMSSl? 

kt>ll? 

*(«P)l«**S2tl 



¥3/ 



LlW'^ 
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"«♦ 
a7«7 
)74a 

a7«» 

>790 

1791 

a75! 

2793 
1794 
J79S 
a79» 

a757 
a79i 

8799 

a7»> 
a76t 
a7»a 
a7»3 

2744 

a7»> 

a7»4 
a7»7 
a7«a 

a7»« 

a77B 
8771 
2778 
8773 
2774 
8779 
877» 
8777 
8779 
8779 
87«« 
27ai 

8798 
8793 

8784 
27(9 

8796 
2797 
87(1 
87(9 
879» 
8791 
8798 
879} 
8794 
879J 
879» 
8797 
87»« 



TNSSlSt 



9109 

NOV 

NOV 

HOV 

HOV 

NOV 

NOV 

Hgy 

MOV 
MOV 
MOV 
NOV 
MOV 
NOV 
MOV 
MOV 
MOV 

eiK 
eun 

MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 

Jl» 

iHORO 
1.191191 MOV 

MOV 
MOV 
NOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MQV 
MOV 
MOV 

J(R 

,HORO 
iNORO 

iHOKO 
.MORO 
,M0«0 
,H0RD 
,U9«0 
iHORD 
,H0RO 
EXIIISI TST 



Ut9|i:r . 

•949f»(,a,|3F) 
•9H82liir,(9R| 

•14999^,18' I3P) 
«tl94?4,14^(SR) 

2(Wll«l 

4(89), «8 

t|IP)|93 

•H8K4,.|9P) 

•B413i8i>|9^) 

•JJ17J7,.(SP) 

•;4f339,.|9P) 

ni«ti») 

• jSP) 

•{tn 

•4llf»,.<39) 

*f*89(4c|SPI 

•f4t3»(i«|tP) 

nn787,.(9P) 

•i4|S;9,.|SP) 

«8M<f») 
«tl«<»»l 

"4|l'9li»H 
9NL0t*f*O|Urtl9,1)8g,9SVO,|,19$19 
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•i»9)l«3 

K8i*lifl'l 
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8799 
8900 

3901 
8808 
8903 
8804 
8909 
890^ 
3807 
3808 
3809 
3810 
3811 
3818 
3813 
8814 
3819 
3916 
3817 
3818 
3819 
3880 
8831 
3838 
3833 
3834 
3889 
383« 
8937 
3838 
3829 
3830 
3831 
3838 
8833 
3834 
3839 
3836 
3837 
3838 
3839 
3840 
3841 
3843 
3843 
38<4 
3949 
3846 
3647 
3848 
2849 
3890 
3891 
2898 
3893 



UP(19I 
PY8119I 

priitsi 



9CNS19I 
SCIS19I 

D*t4N2l 



>lPtl9| 

«8Mll9t 
INPtlSl 



MOV 
MT9 
MOV 
MOV 

MOV 

MOV 

JHP 

MOV 

MOV 

9R 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

Dce 

907 
MQV 
JHP 
T»T 
•CO 

too 

JMP 

iCNoe 
.|7or 

9CTD 

MOV 

MOV 

MOV 

MOV 

•CO 

4Sk 

CIRR 
9UtR 
4SU 

C^RB 

•M«8 

9U8 

CMP 

•LT 

LOO 

lOD 

crec 
•(( 

NCOO 
{.00 

cree 
•lit 

CLRD 
D|VO 
•R 

I.OD 



l|»)*|R9 
R9 

(fP)*|88,(9P) 

IJ»)*|88,(SP) 

(fP)*l88,|9P) 

l}P)*l88', |9P) 

•iR4)» 

';9Nit9*8,,R4 

•»tl»» 

"■riiij 

«?i«<lfi 

»8,.<fP) 

p0,-iip) 

•|R4>i>(9P) 
.1R4)|.(9P| 
•{R4)|«(9P) 
•(R4)|>(SP| 

'7381? 
•XPD919|R4 

•|R4)* 

•1I0090I*9P 

•(»4)* 

8(R9)|RS 

4(»9)|R4 

•R3|R0 

»R4,R1 

INfllK 
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R0 

HI 

"i 

•t 

Rl 

n,R0 

•98,|KI 
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»RJ,P9 

n 

•R4,ri 
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n 

ri,r» 
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V33 



H> 



SQTNI7 NteXlt VKt 23«H<R<73 lt|3« PIkK «•!* 



2)914 
2««» 
2*9» 
l»9t 
2»»« 
»•»» 

2(61 
2«ti 
2*t3 
2«64 
2I»9 
>•>* 
ll>7 

<•»• 
M7I 

2t71 
2*72 
2*73 
2»74 
2«7» 
2»7» 
2»77 

2e7a 

2t79 
2*6f 
2M1 
2182 
2M3 
2*84 
218$ 
2l8t 
2887 
288* 
2*8> 
2898 
2*91 
2*92 
2*93 
2*94 
2*9; 
2*9« 
2*97 
2*9* 
2*99 
29«f 
2981 
2912 
2983 
2984 
2987 
298* 
2987 
2988 



OATtNl 
STIJIJI 



U«tt)l 



xnti9\ 



8eist»i 

EXIStSl 



8(( 

N{80 

M 

tCTD 

CLKO 
lOD 

e\.» 
crec 

»T0 

C1,«B 

*C( 

*tio 

INC 
LOS 
CM^O 

crcc 

8tt 

0(e 

DtVO 

kDB 

kOD 

•TD 

CkKD 

CMro 

crec 

ISC 

LDO 
LOD 
XUkD 
«UtO 

*ooo 

OIVO 
kPO 
NUkO 
H0» 

NOV 
UDO 

MUkO 

Dce 
tooo 

86T 

HuCo 

iOOO 
«UIO 
TST 
ICO 

•IE80 
<DOD 
STB 
HOV 

HOV 
NOV 

Hgv 

«T» 



exist!* 

'1 

CKIIl^ 

•siKiiire 

84 

n,n 
n 

"4. 
r»,n 

kttn; 

84 

riifi 
ri,ri 
PUSt^irs 
fj,r4 

n 

kllil!! 

Pl»tt»ir3 

fllTl 

8i3it9iri 

•lill?8 
8t3»l!»l't 

rt,rt 
r§,Tt 

•rca*iii8i 

(R8i*,rt/ 
iRB)*,rt 

XFOIl!"" 

'*,n 

84 
l«lHi) 

r».ri 

(|8)*.»B 
(Il)*l8t 
<?')»l«2 
(!')»!"» 
81 
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pinsi 


,HBRB 


8489i;iia7932 






,U08B 


12114}, B449B1 




PISSISI 


lUORB 


848311. I87T32 






,HB80 


121141,8643)1 




T1M15I 


,HB8B 


8;|7«11, 838242 






,HBRO 


172384, i*BI61 




ritstii 


,U8RB 


84888^, 889321 






,HBRB 


14899«, 119494 




8T3S1SI 


,UORB 


848339,131727 






,WBRB 


841387,862924 






iCNOe 






rCBSlBI 


,U6RB 


1)71*9,198787 






,UBRB 


lt238l, 163838 






.KORO 


137284,143:33 






iHORO 


884818,18)413 






iHBRO 


837239, g4^g*2 






lUSRO 


827194,142444 






,U6RB 


1)7272,829671 






iHSRB 


11*412,869*38 






,UORD 


13734), 187847 






iWURO 


823*29,829481 






,WOR0 


1)7422,844444 






,HBRO 


871339, lt«{91 






iHORO 


8)7914,14*314 






,MBRB 


14*224,1*9*98 






,M8RB 


117*92,129292 






iHSRB 


129292, ll)t)2 




CSNS19I 


,HBRB 


848288,888888 






lUORB 








■ CNBC 
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V3S 



tOTN04 HieXll V021 29>NAR.73 tt|9« UK f 



a»«i 

>942 

2943 
2944 
J94» 

a»4» 

J947 
2941 

2949 
299« 
29SI 
2952 
2993 
29S4 
29S9 
299» 
299r 
»?9» 
2999 
29*1 
29tt 
2962 
2963 
2964 
2965 
296^ 
2967 
296* 
2969 
297* 
2971 
2972 
2973 
2974 
2979 
2976 
2977 
2976 
2979 
29a( 
29(1 
2962 
2963 
2964 
2969 
296^ 
2967 
2966 
2969 
299» 
2991 
2992 
299? 
2994 
2999 



I 



SOVOI 



lOVOI 



.TITLC 

.I'or 

,S106L 

w%t 
nt»x 

•39)t3 

a4i(4 

1191X9 
1^9X6 

»CIX7 
'ttti 
•■19»t 

D(«, 

1916, 

9it6, 

il'Or 

,WOK0 
,USRO 

lUORO 
,U0RO 

iifNor 

MOV 
HOV 
CL" 

et» 
«oi. 

CI," 
T»7 
•CS 
6)98 

no 

at*8 

iu«« 
ne 

noil 

«|>B 
f|SB 

IN4B 

• |S* 

• IM 

IM48 

• ise 

(I*B 

IH4B 
•*U 
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CNOftt 
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rrv 

iTBBli 

\rtnt 

1744B; 
174046 

•(R4I* 

rfu 

R4,.(|l"l 
«9,.(JP) 
KB 

«l 

m 

•(W» 

N*B>2|BP) 

•i* 

• (»P) 

0(BP) 

D$HSlt 

NmSPJifSP 

HMlt 

N|9P)|RB 

KB 



N*I|«I>«,RB 

N*2isi;)i"i 
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82 
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OtSP) 
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2»«6 
2997 
2996 
2999 
3800 
3001 
3002 
3003 
3004 
3009 
3006 
3007 
3086 
3089 
3018 
3011 
3012 
3013 
3014 
3019 
3016 
3017 
3016 
3019 
3020 
3021 
3022 
3023 
3824 
3029 
3024 
3827 
3826 
3029 
3030 
3031 
3832 
3833 
3834 
3839 
3836 
3837 
3836 
3839 
3048 
3041 
3842 
3843 
3844 
3849 
384^ 
3047 
3046 
3049 
3098 





CI." 


K* 






04t(8P)iR4 






■4,69^ 






SI8P) 












B(BP) 






D*3(SP|,0I9P) 






0*2(«P|,B»3(SP) 






0*9(9P),D«2(SP1 






a44|SP|,D4;(SPl 






0*7|3P),g*4(5Pl 






0»*(SP),0*7(SP1 






0*6(SP) 






0I3P) 






Q«2(SP) 






044IIP) 






WiQl?P| 






OkMIti 






OHUIS 






PliD42ISP) 






DliUilS 






0N|I1$ 






«2.D*4(»P1 






DLUlie 






OHIsit 






PJiO*!(SP| 






DkUBlt 






DHtllt 




:Ne 


•J' 




Cl* 


*i 






PUMlt 


OCMSltl 


ngv 


•14B3|M 
chili 






UNBtl«| 




•4889|»8 


casui 




• (IP) 


ECISt6| 




«?,HI?P4 


!C8St6| 




HP)*i(»Pl* 






J*B.4(S" 






a*8>4|SP) 






Q*4>4|SP) 






g*6'4|SP) 






"INllt 


DlUtltl 




•8 






"l 






P2 






«» 






•IP 


OMtSl»( 




•»il«» 
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MOVB 
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MM» 
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l(9t 


«ov 


R4,g*(i«l>) 


J(92 


TJT 


R9 


<I59 


(NC 


riil*l» 


W* 


NOV 


<l*.|l<9 


3(»» 


Jl« 


•SiOViat* 


1)97 


MOV 

T»T 


R4,0*4(JF) 
R» 


]«9( 


•NC 


'liUii 


909* 


M0» 


•;».>i<9 


it»t 


JS« 


l'!,0Vt916 


I**t 


(R 


'UTJIS 


9062 


rtiii6i eu* 

rL«t4l HOV 


R4 


?0>9 


(|H*I«» 


9)t» 


top 

•kC 


UNhlt 


9(64 


WP 


•377 |R9 


9*»r 


•IT 


OVRtli 


9)>« 


HOV0 


R9,0*1.2(?R) 


?(t* 


9CM116I «0" 


!?»)» 


9(71 


(0* 


94(>4|tP) 


3I7X 


RO" 


a4t>4|9R) 


M72 


RQR 


g*4>4|9RI 


9I7J 


ROR 


R4 


1(74 


»oe 


R4 


3(79 


loe 


QMa4|9R) 


9(7« 


toe 


a*(a4|9R) 


3(77 


toe 


0*(a4|9R) 


9878 


«ov 


R4|a4t«4<3R) 


9(79 


ics 


o»mf 


9(a( 


•vt 


OVllll 


9(81 


RTNS16I MOV 


|$R|*,R9 


9(a2 


MOV 


(•()*, R4 


9(89 


too 


«».l»? 


9(94 


JHR 


•(R4)» 


9I89 


OVilltl TJT 


• lap) 


9(94 


OVRSIH "OV 


•20(9 |R( 


9(97 


(R 


ECLtlt 


3(99 


OVllltl l«k 


R4 


9(S« 


tSk 


1? 


9(99 


"Ot 


«? 


9(91 


"OU 


li 


9(92 


"OL 


R( 


3(99 


•es 


oofi* 


3(94 


Mf 


0*0*2 |aRI|R( 


3(99 


(HI 


NSOMt 


9(9t 


•10 


0SS16 


9(97 


WP 


0*I*2|fP)|Rl 


9(99 


•MI 


NEOIK 

•Oil* 


9(99 


■k° 


31(» 


Wf 


0*4*21 IP I|R2 


31(1 


•HI 


NgOSlt 


31(2 


»UB 


6091* 


31(3 


enr 


0***2f9P),R3 


31(4 


•HI 


N«eai6 


31(9 


•to 
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91(» 


G0S16I 9g( 


0***2 |9P)iR3 


31(7 


•ae 


R2 


31(9 
3109 
31t( 


3Be 
9se 

•U8 


•a 

0*4*2(9P),R2 


3111 
3112 
3119 


• (C 

•ae 

Hit 


"I 
R0 
0*2*2t9P)|Rl 


3114 

3119 


ase 

•UB 


R( 

D*0*2|a')iR0 


31t« 
3117 


INC 

Neosi6i oce 


R4 
R9 


3119 


•«T 


0V1916 


3119 


RT« 


'5 


3120 


NQOSltl INC 


R4 


3121 


•R 


C91il* 


3122 


£029161 tau 


"♦ 


3123 


EaiS16| DEC 


«» 


3124 


•«T 


E9H1* 


9129 


INC 


R9 


3126 


RT»$16I RT8 


'! 


3127 


,tNOe 




3129 
9129 
3130 


,ENOC 
.TITLE 


: 9OVI0? 


.iror 


CN0I17 


3131 


,C10«I, 


, •OVI.JERR 


3132 


R(tX8 




3133 


Risxi 




3134 


R2IX2 




313» 


R3iX3 




9136 


R4!X4 




3137 


R9fX9 




3138 


IRIX6 




3139 


Mg(1779(4 


3140 


.ifNor Ete«M«toiv 


31*1 


toy II CL" 


RB 


3142 


MOV 


(SP)*,Rl 


3143 


•ST 


P1917 


3144 


•CO 


CMKItr 


3149 


iNe 


R( 


9146 


NEO 


Rl 


3147 


P191T1 MOV 


•fP,R} 


3148 


• ST 


P2917 


3149 


aea 


•C"317 


3190 


INe 


R0 


3151 


NCS 


R3 


3192 


P2»171 MOV 


RJ,.1?P) 


31S3 


MOV 


•8,1 "4 


3194 


CL« 


n 


3199 


9H1B 


»? 


3196 


•CO 


01VI17 


3197 


t(k 


"i 


3198 


9Ht( 


•J 


3199 


0IVS17I tSk 


•» 


3160 


"OL 


R2 
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31*1 

3162 
3163 
3164 
316» 

3166 
3167 
3166 
3169 
3170 
3171 
3172 
3173 
3174 
3179 
317J 
3177 
317S 
3179 

3ia« 

3111 
3162 
316? 
3164 

3ia» 

31S6 

3167 

3i>a 

3169 
3190 
3191 
3192 

3193 

3194 
319» 

3196 
J197 
3196 
3199 

3:g> 

3221 
92«2 
3203 
3204 
3209 
320i 
3207 
3206 
3209 
3210 
3211 
3212 
3219 
3214 
921? 
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000002 
000003 

080004 

800009 
9000196 
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177904 
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L«M17 


INC 


m 


•UB 


"liM 


0N|S 


U«'»17 


40B 


R1,R2 


oci: 


«? 


lUMt7l DEC 


04 


SOT 


oiviir 


HOV 


(|P|*,«4 


Nte 


»? 


4SK 


R0 


ocs 


'?»17 


NtS 


«» 


BVt 


CHK317 


"'91171 MOV 


m.un 


JH» 


•(»4)* 


iCltS17l Ck" 


•J" 


JMP 


•(P4)* 


iCNOC 




.iror 


Etc 


SOVll HOV 


fHO,** 


MOV 


(?')*l"l 


•EO 


CHK$17 


HOV 


(SP|*|M0 


T8T 


• IKO) 


MOV 


ni«(wi 


CHP 


<KI)*I (1)0)4 


HOV 


•P0,«|1P) 


JMP 


K»4)* 


.tNOC 




.I'O^ 


HUkoiy 


SOVII HOV 


2(SPI|P1 


iNORO 


00«70» 


,N0RO 


0ri«2t 


HOV 


P0,*SP 


aC3 


CHKJ17 


JM» 


•("4)* 


,{NOC 




cHkstri j>* 


M9,iCRP 


JMP 


•(«4)* 


,BVTt 
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,8»TE 
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,ENoe 




.TiTue 
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ii'or 
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3216 




177312 




3217 




177314 




3216 




177916 




3219 




008008 




3220 




000001 




3221 




300010 




1222 




300014 




9229 




000014 




3224 








3229 








322» 








3227 








3228 








3229 








3230 








3231 








9292 








9293 


001234 


010446 




9294 


001236 


010946 




3299 


001240 


009008 




3296 


001242 


009801 




3297 


001244 


009046 




3236 


301246 


006966 


000012 


9299 


301292 


Z06116 




3240 


0012:4 


309046 




3241 


001296 


005766 


000010 


9242 


001262 


301496 




3249 


001264 


196616 


000019 


3244 


001270 


301491 




9249 


001272 


196688 


000814 


9246 


001276 


380388 




3247 


001300 


300261 




3246 


001302 


306000 




3249 


301304 


196600 


000017 


9290 


001310 


196601 


000816 


3291 


001314 


008301 




3292 


001916 


009002 




3293 


001920 


009009 




3294 


001922 


006966 


000010 


92S9 


001926 


009966 


000002 


3296 


001992 


196602 


000011 


9257 


001996 


168216 




9296 


001340 


389802 




3299 


001342 


196602 


000010 


3260 


001346 


300902 




3261 


001390 


300261 




3262 


001352 


006002 




3263 


001354 


196632 


000819 


3264 


001960 


196609 


000012 


3269 


001364 


008909 




9266 








3267 








3266 








3269 








3270 









iOVRI 



iOVRI 
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ri«g 


.I'NDr 


SfiS 


1181 itro 




(R 


I9II2? 



.CNOe 



101(271 HU 

iMir <i»i*ir( 

(Tf r(|.(»*i 

JHP •|R4)* 

iiNoe 

iirNBf FPU 



,lfMT tut 

MOV »|P|>48F) 

CI* 2isri 

Ck* 4i«P) 

.foe 



IIOI 



• III 



paM27t 



Bud 
HOV 
(GT 

(CO 

NCS 
"Ok 

.imtr 
nov 
iCNoe 
il'or 

MOV 



2iW)i«l 

poiisr 

«$"»«7 
«?2(il<2 

et( 

•!17|K2 



9S-^ 
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4(7( 
4(7; 
4(72 
4(73 
4(74 
4(7S 
4(76 
4(77 
4(76 
4(79 
4((( 
4(61 
4(82 
4(93 
4(64 
4(89 
4(86 
4(87 
4(89 
4(89 
4(9( 
4(91 
4(92 
4893 
«B9« 
4i!99 
4(96 
4(97 
4(99 
4(99 
41(( 
41(1 
41(2 
4103 
41(4 
41(9 
«1(6 
41(7 
41(8 
41(9 
411( 

4112 
4113 
4114 
4U9 
4116 
4117 
4119 
4119 
4t2( 
4121 
4122 
4123 
4124 



((226(1 1(9(66 (((((4 



((2264< ((61(1 

((2266< 1(34(2 

((227(< ((93(2 

((2272' (((774 



N0MS27I 



■ CNOC 
CkXi 



((2274< 11(164 

((23((< 1(9(01 

0(2302' 190201 

0(2304' 0((3(t 

0023(6' 0(6(26 

0(2310' 0(60(1 

002312' 1(6(66 

0(2316' 01(116 

((232(< 0((134 



0((((9 



(((((} 



N08t27l 



ieilS27l 



(Hkoi 



4(S() 



.irNOF 

KOk 
■09 

oce 

(R 

■ CNOC 

il'or 

NOV 

CkR 
NOV 
MOV 
OkR 
(U( 
«0V 
"OV 
.CNOC 

Mova 

CURB 

9ISB 

9HtB 

ROR 

ROR 

RQRB 

MOV 

JMR 

I CROC 

,CNOC 

.TITLE 

iirOF 

.GLOBL 

R(l«0 

"1I«1 

R2I«2 

R3IX3 

R4IX4 

R99X9 

(FIX6 

RCIX7 

Mail773(4 

• •8. 

(•1*. 

RC(kT!l2, 

(|8NI2 

rttnt 

.HORD 
,HORO 
.HORO 
.HORO 
JHR 

.SNoe 
,1'Nor 



E»e 

Rl 

N9DS27 

R2 

N9Mi27 

E«K 

(lie.R^ 

•R3 

Rii'lRS) 

•N«R,R( 

•R( 

(R()*|R2 

•2i*R» 

•R9iR; 

Rti»t»F) 

Rl 

R2iRl 
Ri 
HR)* 

r; 

3I9R) 
RliMR 

•|R4I* 



IR|.0(? 
i;R0t2| 
(MkOilCRRA 



FRU 
17242* 

iH»a« 

l»4(4» 

»(R4)» 

FRU 



9S7 



i\t' 
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4129 

«izt 

4i2r 

«12l 
412* 
413« 
4131 
4132 
413? 
4134 
413> 
413t 
4137 
4131 
413* 
414( 

4142 

4141 
4144 
414» 

4t4» 
414T 

n«» 

41»l 
4191 
41S2 
419? 
4194 
4199 
419* 
4197 
419* 
419* 
41«( 
4141 
4142 
414) 
4144 
4149 
41»» 
4147 
4141 
41»» 
4179 
4171 
4172 
4173 
4171 
4179 
417t 
4177 
4179 
417* 



SHtDI 



KMtll 
iCIKII 

NNlSlii 



S«IS2II 

>4NS2ai 
B4M2«| 



B2Nt2t| 
9211291 



MOV 

ngy 
»ii 

"Ok 
CL» 
Ngvt 

K9 

H0V9 
9CC 

ngn 

N9VI 
*HtB 

Mova 

•N4« 

NOVt 

*Nta 
CL^a 
<ik 

tge 

T»Ta 

aNC 

ex* 

JH9 

eta 

Cka 

il'Nor 

«l» 

eu" 

ek« 

■oa 

MOV 
HOV 

ata 

J«a 

NOV 

HOV 

aNC 

TIT 

aca 

^«a 
■ii* 

NOV 
HOV 

*Ht 
TIT 

aNC 

TIT 

ata 

jn 

HOV 
HOV 

jsa 
Jia 

TIT 

too 



t**a4||a) 

•(IP) 

4*1 (I?) I MP 

want 

t|ia)i>*iii9) 

tiiP) 

ttllSfliillP) 

4*2119) 

4*9(lft,>*l|9P| 

4*4 (If) 

4*7|IP)|4*4(3P) 

**«(aP| 

4*«lllfl 

aiiP) 

•i9N(fP) 

a*i(iP) 

NNII2I 

(|P|*illP|* 

■• 

(t((HUkoiy 

HI 

afiPi 
*;*.i><sp| 

a*t*2tSP)|B4 

atliii 

PfilHTMia 
n*.l*9P 

9*4*2|3Plia4 
I4HI2; 

B*«*2|IP) 

ajiin 

PS,HT}92« 

p?iHUIi2a 

n».i»ip 

a*t*2|3P),a4 
aiNiif 

a*4*2i9P) 
agiiiK 

a*4*2|ap) 
a2ii2f 

PSiHUi92a 
a*a*2||P)ia4 

• 7,MP 

pCiMUI»2I 

PCiHTiiia 
(?p)* 

(5P)*l"4 



VS'f 
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4199 

4191 
4192 
4193 
4104 
4199 
4196 
4197 
4189 
41S* 
4199 
4t»l 
41*2 
4193 
4194 
4199 
4194 
4197 
4199 
4199 
4299 
4291 
4292 
4293 
4204 
4299 
4296 
4JB7 
4209 
4299 
4219 

4211 
4212 
4213 

4214 

4219 

4214 
4217 
4219 
4219 
4229 
4221 
4222 
4229 
4224 
4229 
4226 
4227 
4229 
4229 
4299 
4231 
4232 
4233 
4234 



■ eioe 
iipor 

9|9B 

too 

H0V8 
• OB 

auta 
Hova 
auta 

Hova 

IN46 

NOVB 
9U4B 
CkBB 

itHoe 
1 1 'or 

HOV 
HOV 
HOV 
JIB 
HOV 
HOV 
HOV 
HOV 
JIB 

too 
toe 
too 

toe 
toe 

HOV 

"ov 

JIB 

too 
toe 
too 
toe 
toe 

HOV 
HOV 

J«B 

too 
toe 
too 
toe 
toe 

HOV 
HOV 

et» 

HOV 
HOV 

JIB 

too 
toe 



cteiHULoiv 

94 
9*1(IP)|B4 

B4,99P 

•)ita*tiiP> 
aiiP) 

9I8PI 

B*3IIP)iBISP) 

9*2 ISP) 

9»9(3P|,B»I(SPI 

9*4(SPt 

9*7|3P),B*4I3P| 

9*4|9P) 

9*4 1 IP) 

etc 

•H9,B4 

t|9P)M<SP| 

8***2 IIP), 494 

B9,!;m«I28 

(i')»l"2 

l|P)*lB3 

t*t||P)c|3P) 

9*4*2|9P),«R4 

B9iCHUt29 

ltPt*|B2 

Bl 

l|P)*|R3 

92 

Bl 

t*4|9l>),>|3P) 

9*(42|SP),M4 

B9|CMyS2B 

«!P)»i"2 

Bl 
ISP)*|B3 

B2 
Bl 

t**|3Plia|3P) 
9*9*2 1 SP), 494 

B9|CHVi28 
(0P)*|B2 

b; 

(|P)*|B9 

B2 

Bl 

B!,B3 

BI.B2 

4IIP)l*t9P) 

9*4*2 (99), 494 
B9,CHUS29 
lf9)*,B2 
Bl 



y^'f 
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4239 
4236 
4237 
4238 
4239 
4240 
4241 
4242 
4243 
4244 
424» 
424« 

4247 

424« 
424« 
42»e 
4291 
4292 
4293 
4254 
429} 
429« 
4297 
4296 
429« 
426« 
426t 
4262 
426f 
4264 
4269 
426« 
4267 
4266 
426« 
427» 
427J 
4272 
427} 
4274 
4279 
4276 
4277 
4276 
427* 
428* 
4261 
4262 
4263 
4264 
4269 
4266 
4267 
4266 
4269 



too 
40; 
toe 

MOV 
MOV 

J»» 

400 

toe 
>ob 

ioe 
toe 

HOV 
NOV 

JJ« 
too 
toe 
too 
toe 
toe 

HOV 
HOV 

.11* 

too 
toe 
too 
toe 
toe 

NOV 
NOV 

Jin 
too 
toe 
too 
toe 
toe 

NOV 

HOV 

jt* 

too 
too 
toe 

NOV 

• CHOC 
iiror 

HOV 
HOV 
JtK 
NOV 
NOV 
HOV 
HOV 

too 
toe 

too 



m 
»i 

ttldflLtSF) 

1*2*2 (9^1, 61)4 

"?,tHU«26 

IMI*i»2 

»l 

(|»l*l«3 

N? 

"; 

t*«(Sfii>isr) 

M,«HUt26 

(il»)*(«2 

<l'l*iM 
«» 

n 

tItPtiXW) 

**t*2|SP)|6f)4 

M,[Hgi28 
I*PI*1«1 

H« 

tl»l*l»2 

"i 

HI 

t*t(SP|i*<«PI 
■*I*2|3P),*R4 

H9,CNyi2e 
(SP|*i"l 
HB 
<J'I*I«» 

"1 

Kg 

t|8P)|>(3P) 

B*0*2|IP) 1*114 

K!>lCNUt28 

l»P)*|M 

<»P»*|I<1 

HI 

I|P)*|P« 

HVLOiy 

t|SPIl*(SP) 
1***2(9^) 1*4 

*CiCNVi28 

HI>|K3 
t*2tSP),.(9P) 

6*4*2 1 IP), 1(4 

PSlCHUm 

H4,R2 

HI 

H»iH3 



V^O 
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4291 

4291 
4292 

4293 

4294 

4299 

4296 

4297 

4296 

4299 

430B 

4301 

4302 

4303 

4304 

4309 

4306 

4307 

4308 

4309 

4310 

4311 

4312 

4313 

4314 

431S 

4316 

4317 

4316 

4319 

4320 

4321 

4322 

4923 

4324 

4329 

4326 

43Z7 

4328 

4329 

4330 

4331 

4332 

4333 

4334 

4339 

4336 

4337 

4336 

4339 

4340 

4341 

4342 

4343 

4344 



toe 
toe 

NOV 
NOV 
J$H 

too 
toe 
too 
toe 
toe 

NOV 
MOV 

JSH 

too 
toe 
too 
toe 

toe 

NOV 
HOV 

etH 

HOV 
NOV 

JSP 

too 
toe 
too 
toe 
toe 

NOV 
NOV 

JSP 

too 
toe 
too 
toe 
toe 

NOV 

HOV 

JSP 

too 
toe 
too 
toe 

toe 

HOV 

NOV 
JSP 

too 
toe 
too 
toe 
toe 

HOV 

MOV 



P2 

PI 

t*4|SP),.|SP) 

l*C*2|SP),P4 

ppiEM«i2e 

"4,R2 

Pi 

P9|P3 

P2 

PI 

1**(3P),.<SP) 

8*0*2 (5P),P4 

P;iENUS26 

P«|P2 

»; 

P9|R3 

P2 

"1 

P2iP3 

PJ,P2 

p; 

t(SP),.(SP| 

6*4*2 {SP),P4 

P;iEHUt28 

P4,P2 

PI 

P9iR3 

P2 

"J 

t*2tlP|,.(jp) 

B*(*2|SP)lP4 

PS,EN«128 

P4,P2 

Pi 

P9,R3 

P2 

Pi 

t*4(SP),.(SP) 

l*l*2(SP),P4 

P;iEHVS28 

P*iP2 

"i 

P9,P9 
P2 

Pi 

iisp)i.<ap| 

8*2*2 1 IP I, P4 

^SiCHU>28 

P4,Ri 

PI 

P!i,P2 

»i 

PI 

t*«(IP),.«SP) 

8*l*2tlP)|P4 



V6/ 



.\1' 



iHkDi7 HMxii y(2t i 
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C 4<19 




*i*9 




JSR 


8;iCMUI28 


4346 




too 


84,81 


4J47 




4oe 


8* 


4948 




too 


li.m 


4349 




toe 


"1 


4jsa 




toe 


81 


4391 




HOV 


t|SP)i«(3P| 


4392 




MOV 


l*B«2(38),84 


4393 




J34 


8SiCNU<2a 


4394 




too 


n*,M 


4399 




too 


8?4R1 


4394 




toe 


89 


4397 




HOV 


(»P>*|84 


4393 




lENoe 




439t 




ttk 


«3 


43»f 




OOV 


82 


436t 




«ou 


» 


436{ 




«ou 


4343 




801 


N0NS24 


43*4 




t3k 


:i 


43«9 




"01, 


43»« 




»eL 


» 


43*7 




«ou 


43t« 




oce 


*i 


43t« 


N0H128I 


*u« 


•illl84 


437* 




•kt 


UN0t2||~ 


4371 




Wf 


43771 84 


4371 




•IT 


0y832t 


4373 




ek"e 


8||83 


4374 




■ |H 


437* 




)UtB 


:i 


4374 




et«8 


4377 




•(•• 


8;, 82 


4373 




8Mt8 


4? 


437» 




Ck"* 


81 


436( 




9ISB 


801 81 


43ai 




IHtB 


81 


43SZ 




ek"B 


84 


43«3 




9|98 


84,89 


43*4 




8Wt8 


89 


4319 




HOI* 


IPI* 


4334 




ROK 


89 


4337 




»0« 


81 


4393 




»9* 


82 


43e» 




40* 


M 


43»» 




toe 


If 


43»1 




toe 


82 


43»2 




toe 


11 


43»3 




toe 


81 


43«4 




963 


0V1I34 


4399 




9y8 


0Vtl2| 


43*4 


0Uti28| 


MOV 


84,8(}kT<38| 


43»7 




MOV 


81,8C|bT*2|SPI 
8|,8CHT*4(S8I 


4393 




MOV 


4399 




HOV 


83|8EH,T*4IJ81 
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4441 




MOV 


(}8)*,89 


44Bi 




MOV 


(J8)*l"4 


4493 




too 


•<.|38 


4403 




JM» 


•|84)* 


4494 


0VII28I 


TIT 


• (181 


4449 


0VM28I 


MOV 


•9«93|89 


4494 




BR 


CEki29 


4407 


UN0t28l 


MOV 


•f999|84 


4404 


CCm2SI 


T3T 


(|8|* 


4409 




JS« 


89,|C88t 


4414 


!e}S23l 


CL* 


89 


««ll 




eu" 


"1 


44U 




cu« 


82 


4413 


<. 


Ck« 


"3 


4414 




98 


0Ur42| 


4419 




.irNOF 


Ct24MaDIV 


4414 


K|.tS28l 


t»« 


84 


4417 




Bce 


Xi923 


4419 


MTii2ai 


too 


t*4*4|98),83 


44l» 




toe 


«? 


4429 




toe 


"1 


4421 




toe 


89 


4422 




toe 


"9 


4423 




too 


144*4)98), 82 


4424 




toe 


«; 


4429 




toe 


89 


4424 




toe 


89 


4427 




too 


t»2«4(98),81 


4429 




toe 


89 


4429 




toe 


89 


4431 




too 


t*4*4|S8),8e 


4431 




toe 


89 


4492 


«9|2ai 


tt" 


"« 


4433 




808 


89 


4434 




808 


»l 


4439 




808 


8> 


4434 




808 


"? 


4437 




oce 


2(98) 


4438 
4439 




96T 
8T3 


:v"* 


4440 


HT2J28I 


oce 


2(98) 


4441 


HT8S28t 


t|8 


84 


4442 




9ce 


X40ltl 


4443 




too 


t*f*4l9f)|8t 


4444 




toe 


89 


4449 




toe 


8» 


4444 




too 


t49*4(38)|84 


4447 




toe 


4? 


4443 


Xllllll 


tl* 


n 


4449 




808 


89 


4499 




808 


"t 


4491 




808 


:i 


4492 




808 


4453 




Oft 


213^1 


4494 




907 


Mt992l 



9^^ 



^6 3 



>\ ' 
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«45> 




m 


n 


449t 




.eNDC 




44ST 




.iror 


etc 


449» 


CMUIJtl 


eL» 


•1' 


449? 




T»T 


0R4 


44tf 




8C9 


Hil28 


4461 




•tr 


«»l«l 


44ti 




TJT 


»i»R) 

•<ii28 


44«] 




0ce 


4464 




»PT 


MNOIil! 


4449 




too 


|R4|4|9$R 


4460 




too 


2tir)i»»R 


4447 




IR 


(HLS2( 


44»» 


MPI.S2II 


T»T 


21 Ml 

HMJ« 


44»t 




H9 


44rj 




•ST 


HkD«2l 


447i 




too 


(R4)4,93P 


447S 




8R 


(HLi2; 


4471 


mm»[ 


too 


2(SRI|MP 


4474 


HL«S28I 


TJT 


(R4)* 


4479 


CNLtiai 


MOV 


2IMI|*R4 


447» 




MOV 


.«R4I|2(SP| 


4477 




toe 


•(R4)i»SR 
(M|» 


4471 




TST 


447* 




JNR 


•R9 


44af 


HUiai 


eLR 


JH" 


4411 




JMP 


44SZ 




iCNo; 




446? 




,ifor 


MOtOtV 


4484 


(HUMtl 


ci.i< 


•(»'! 


4469 




T»? 


"5 


44S« 




•CO 


H|«28 


44(7 




•ST 


H»t»»l 


44SI 




TST 


4(IRI 


449* 




0C9 


H<t2t 


4490 




06T 


NNtl20 


449t 




0R 


HN«I2| 


4492 


HPLSiS) 


T»T 


4(W) 


449J 




n» 


•liI28 


4494 




•ST 


Nli0»2l 


4499 




too 


R4,tll> 


449t 




•R 


«Cai2j 


4497 


HNSi20| 


too 


R«|M? 


4496 


HNI(2t| 


too 


4(apii*sp 
07a4«i|4 


4499 


H10S28I 


iHORO 


49>« 


NONSjai 


too 


(|RI*|R4 


4901 




"oy 


(l»>*l»»p 


4902 




RTI 


'5 


4901 


Hi«28t 


ek<i 


R4 


4904 




Sli" 


R9 


4909 




H4Na2« 


490« 




iCNOC 




4907 




,moc 




4900 




.(Noe 




4909 




.TtTUE 


i«tI0!> 



^^y 
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4910 

«9i; 

4912 

491) 
4914 
4919 
491» 

4917 

49ta 

491» 
4920 
4921 
4922 
492] 
4924 
4929 
4926 
4527 
4926 
4929 
4930 
4931 
4932 
4933 
4934 
4939 
4936 
4937 
4938 
4939 
4940 
4941 
4942 

4943 

4944 
4949 
4946 

4S47 
4948 
4949 
4990 
4991 
4992 
4993 
4954 
4959 
4956 
4557 
4558 
4599 
4960 
4961 
4962 
4963 
4964 





.irop 


CND«2* 




.eioau 


IHLtiiCRR 




Raix0 






RHXl 






R2iX2 






R3tX3 






R4tX4 






R5t«9 






api«« 






9RI29tl77)tt 




>igil77304 




.iPNor 


EiEiMgtoi' 


jMtn 


CLR 


R0 




~H0» 


ISP)*iRl 




06T 


Pi»29 




SCO 


Huaay 




INB 


R0 




Hta 


"1 


PH29I 


nov 


•JP.R? 
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■c« 


lNr|39 


9321 










4>L 


R0 


9322 










CkM 


"0 


9323 










iMte 


"1 


9324 










4«k 


"i 


9329 










euiiB 


"1 


9326 
932? 










iHta 


"t 










iua 


Rl,R0 


932J 










CMP 


•26,iK0 


932» 










•ur 


INf«39 


9330 








otvt**) 


Ml 


"4,ipqkaM 


9331 










iNORO 


lOVRiUPkU* 


9332 








upi;»j»i 


T»T 


•4|R9| 


9333 










m 


trtny 


9334 




' 






MOV 


••409iiia-,|SPi 

•0077|3,ia'|9PI 


9339 










MOV 


933» 










TJT 


•2(R91 


9337 










ice 


»Tei39 


9330 










too 


•100Ba0i8,($p) 


5339 








ATrS39l 


TST 


•SP 


S<TN03 


M»exii 


V021 


23»H«I)« 


'3 11134 Pt«C 7.9 




9340 










an 


*H«» 


9341 








tNrS39| 


too 


•ta.'ip 


9342 










HOV 


•)403|tiR» 


9343 










MOV 


«B077J3iRl 


9344 










TST 


•2IR9) 


9349 










•oe 


INRI3? 


9346 










too 


(t0«080i"0 


9347 








IN*i3«l 


«TJ 


»? 


934» 










■ CNDC 




9349 














SJ9B 


003412' 


00904* 




/HANI 


CL" 


•<SP) 


9391 


003414' 


00»04» 






et" 


• (SP) 


9392 


003416' 


00904« 






et" 


• UP) 


9593 


003420' 


009046 






Ck" 


• «»P) 


9394 


003422' 


205046 






Ck" 


• <SPI 


9399 


003424' 


eit904 


200002 




HOV 


2|"9)l"4 


939» 


003430' 


1116444 


200002 




HOV 


2t"t)i>|SP| 


9397 


003434' 


mi*t 






HOV 


•R4,*isP) 


9399 


003436' 


002004 




4TIJS9I 


a« 


PkUI3? 


5399 


003440' 


062716 


100000 




too 


•t0a0B0ip;p 


9360 


003444' 


009266 


0)0014 




INC 


liiOP) 
•}P,«402M 


9361 


003490' 


021627 


040200 


fUU»39| 


OH" 


9362 


003494' 


109431 






ako 


kllMJ 


9363 


003496' 


003003 






asT 


5Il«t 


9364 


003460' 


00J766 


200002 




TIT 


2(«P) 


5369 


003464' 


001429 






aea 


kSll3» 


5366 


003466' 


012766 


140311 


000004 CTiJ39| 


HOV 


• 14a3Ui4(SP) 


9367 


003474' 


012766 


007733 


200006 


HOV 


•0077;3|6(SP) 


5368 


003902' 


009366 


000014 




occ 


WWSP) 
]lip),.|SP| 


9969 


003906' 


Z14646 


000002 




MOV 


5370 


003512' 


016646 


000022 




MOV 


2(SP)i"<S?) 


5371 


003916' 


312766 


042220 


000004 


MOV 


•4020«|4($P) 


9372 


S03924< 


205066 


200006 




Ck" 


6ISP) 


5373 


303530' 


004467 


200342 




JS" 


"4|IP0k»H 


5374 


903534' 


201234' 


2239401 




.UORO 


99VRiktlS39 


9375 


00354B' 


^16646 


220002 


I.H$39 


HOV 


2(5P)i«<SPl 


537« 


003544' 


316646 


200002 




HOV 


2(9P(i^(SP) 


5377 


003550' 


209066 


200004 




Ck" 


4(SP) 


9378 


003554' 


209066 


202006 




Ok" 


*t9P) 


5379 


003560' 


221627 


037611 




CH" 


9|P,«»37611 


5360 


003564' 


183445 






BLO 


kl9S3? 


9381 


003566' 


101024 






8HI 


TNSM? 


5382 


003570' 


026627 


000002 


030243 


OH" 


2(»P)l»030243 
kl9S3» 


9383 


003976' 


101440 






akO$ 


9384 


003600' 


012766 


040006 


000004 TNSJ39 


HOV 


•040016, 4(SP) 


5385 


003606' 


212766 


229222 


200006 


HOV 


•009222|6|SP) 


9386 


003614' 


211620 






HOV 


•|P,"B 


9387 


003616' 


016601 


000002 




MOV 


2f»P)»»l 


5388 


003622' 


012746 


131727 




MOV 


•«17»7,.(8P) 


5389 


003626' 


212746 


140339 




MOV 


t;*)3j|9,.(SP) 


5390 


003632' 


210146 






MOV 


"».»<«P) 


53»1 


003634' 


210046 






MOV 


"»,.(IP1 


5392 


003636' 


209046 






Ck" 


•(SP) 


5393 


003640' 


212746 


240200 




HOV 


•4020ai««P) 


9394 


003644' 


012746 


131727 




MOV 


•131727. •<IP) 



V79 



ifo 



a<' 



TNfl3 


HACXll 


V021 


23aMtR> 


r3 11134 PA9C 7>10 






JJ»S 


003650 


01274* 


040339 




HOV 


•0403;9,.|0r) 




»)»♦ 


003694 


010146 






HOV 


n.»«lf') 




9»»7 


003696 


010046 






HOV 


R0l«(fP) 




93V« 


003660 


004467 


000212 




Jt0 


MilPRLtH 




»»»♦ 


009664 


002322) 


0000021 


0037701 


,HORO 


9I1WR,«|0R,UM3»,9WII,«BV«,L19»I» 




003672 


000002' 


001234' 


003700' 








9408 


003700 


011600 




I.19I39I 


MOV 


•|P|P0 




9401 


003702 


016601 


000002 




HOV 


2tSP)l*l 




9402 


003706 


010146 






MOV 


«lcifP) 




9403 


003710 


010046 






HOV 


fiei«i!P) 




9404 


003712 


010146 






HOV 


";■•<»') 




9409 


003714 


019046 






HOV 


*0f({') 




940« 


003716 


004467 


000194 




Jl* 


"4,I»9L9H 




9407 


003722 


002322' 






,«0«0 


IH|,R 




9400 


003724 


004002* 






lUORO 


%»I3» 

IMLRilAOKiSHLKi 1*0*1 tNLR 




940* 


003726 


002322' 


00I006> 


002322' 


,«O0O 


SIOR 




003734 


000006' 


002322' 


000006' 








9410 


903742 
903790 


002322' 

000006' 


000006' 


002322' 


lUORO 


iMLKli^ORitMLKlCO* 




9411 


003792 


000006' 






iNOMO 


lAOR 




94ti 


003794 


004036' 






,MO0O 


S8NI3? 




9413 


003796 


000006' 






lUORD 


ItOR 




9414 


003760 


002706' 


00»764it 




iHOKD 


IP0P*)|EXIS3* 




9419 


003764 


009726 




EX|S3*| 


T»? 


UP)* 




9410 


003766 


000209 






«TI 


K9 




9417 


003770 


012666 


000012 


UP«3«| 


HOV 


(i')*»i0iHP) 




9419 


003774 


012666 


000012 




HOV 


(»»)*il0.O0) 




9419 


004000 


000134 






JHP 


• !II4)» 




9420 


004002 


012600 




'171391 


HOV 


(4PI*1"0 




9421 


004004 


012601 






HOV 


(»PI*I»1 




9422 


004006 


012702 


004074' 




HOV 


0goNs?9*4,)(2 




9429 


004012 


012703 


000009 




MOV 


•9,113 




9424 


004016 


000402 






011 


'Tt»3» 




9429 


004020 


010146 




Fy2»39l 


HOV 


"ii»(5''i 




942t 


004022 


010046 






HOV 


"0I«<IPI 




9427 


004024 


014246 




PYt»3»| 


HOV 


•tX2li*(3P| 




9428 


004026 


014246 






HOV 


•<K2)i«<9P| 




9429 


004030 


00930J 






0(0 


"? 




9430 


004032 


003372 






9CT 


PT«I39 




9431 


004034 


000134 






JMP 


•(»4I* 




9432 


004036 


009766 


000010 


SeNt39| 


T»T 


•lISP) 




9433 


004042 


001402 






•ca 


S8U8V 




9434 


004044 


062716 


100000 




too 


0100010. 09' 




9439 


004090 


000134 




«CiS3»t 


JMP 


•|R4)* 




943(. 










iCNoe 






9437 










iiror 


PPU 




9430 








4T4N2I 


»{Tr 






9430 










MOV 


2(R9)|R3 




9440 










MOV 


4(*«)|R4 

MI1R0 




9441 










MOV 




9442 










MOV 


•R4,RJ, 




944J 










9i:o 


INP939 




9444 










4tL 


00 




9449 










CLKB 


R0 




944« 










9NtR 


M0 




TN03 


MACXll 


V021 


23aN4K> 


'3 11134 Ptse 7>11 






9447 










«su 


Rt 




9440 










CLII0 


r; 




9449 










iHte 


Rl 




9490 










9UB 


RtiR0 




5451 










CMf 


*26,|R0 




9452 










91T 


INPI3V 




9493 










tor 


PI939iP3 




9454 










LOP 


»R3,rB 




9455 










crcc 






9456 










9Gt 


*1P»3V 




9457 










Ncer 


P3 




9450 








»1«39| 


LOP 


»R4,ri 




9459 










crcc 






5460 










9tt 


tSMisy 




5461 










CLIP 


P3 




9462 








42HS39I 


OIVP 


Pi,r0 

«I1J3» 




9463 










0R 




9464 








INPS39I 


LDP 


P12I3»,P1 




9469 










T5T 


tR3 




9466 










0CC 


exis3« 




5467 










NEOP 


p; 




5460 










9R 


EXI$39 




5469 








ATINI 


SET' 






5470 










CLIP 


P? 




9471 










LOP 


•2(R9!iP0 




5472 








4TIS39I 


CL" 


'i 




5473 










CPCC 






5474 










ITP 


P},P9 




5475 










CL'P 


P? 




5476 










tit 


P|iUI3» 




5477 










<09P 


P0 




5470 










INC 


R4 




5479 








PtUS3»l 


LOP 


•i.Biti 




9460 










CMPP 


P0IPI 




5481 










crcc 






5482 










9LC 


Leti3v 




9483 








GT{S39| 


oce 


114 




5464 










OIVP 


P0,ri 




5489 










LOP 


PliP0 




5486 










LOP 


Pt2$3»iP3 




5487 








LCit39| 


• TP 


P3,r4 




9488 










CLKP 


PJ 




5489 










CMPP 


719139, P0 




5499 










CPCC 






5491 










0CC 


L19I3? 




5492 










LOP 


Pt6i39,P3 




5493 










LOP 


P0|PI 




5494 










HULP 


RT3I39,P0 




549J 










lUBF 


n,t,fj 




549t 










lOBP 


RIJ139.Pl 




9497 










OIVP 


P1.P0 




5498 








tl9»3»l 


LOP 


P0,P2 




9499 










MULP 


P0,P0 




5500 










MOV 


•POOS49,R0 




5501 










MOV 


•4,Rt 





^7/ 



H'^^ 



al 



SlTNe] >4teXll V0it 23>Mil(>73 lt|34 PAtC 7>1! 



«»0: 

5904 
»»B» 

9907 

9900 

99B« 

9910 

9911 

9912 

991) 

9914 

9919 

9910 

9917 

9916 

99t» 

99!e 

9921 

9922 

992} 

9924 

9929 

9926 

9927 

9920 

992» 

9930 

9931 

9932 

9933 

9934 

9939 

993J 

9937 

9930 

9930 

9940 

9941 

9942 

994f 

9944 

9949 

994$ 

9947 

9940 

9940 

9990 

9991 

9992 

999? 

9994 

9999 

999» 









Lor 


(Mi»iri 








XPB(3*I "uir 


ri.ri 








ote 


(P0i*iPi 








toor 








08T 


«P8«3* 








ovir 


r2iri 








toor 


rJ.ri 








nv»r 








tJT 


R4 








0(0 


113? 








Nccr 


r ,n 








SG(I3«| toor 








eXtS30l 0TP 


r ••(|P| 








HOV 


( P)*|R« 








»0» 


( P»*|R1 








"Ti 


R9 








Pt<30| .HOKS 


09i;i0R7T33 








P12$3»l ,WORO 


04BJH, 007733 








T19$3»I ,WOSD ■ 


0)761ii03>t43 








PUS3«i ,UORD 


04000S,»0j>t22 








RTSS30I lUORO 


»4033l>,13tr27 








,CNOe 




004(92' 


03730} 


039302 


rees30i .moro 


0|T30l>i»93l2 


004096' 


137421 


096914 


,M0RO 


i;742t,*9«914 


0040621 


S97914 


143333 


.HORD 


0j7914|t4»33 


004066' 


137692 


1J9244 


,UOKO 


t}T«9>, 129244 


004072' 


II40208 

000004 
000006 


000000 


CONSltl .HORO 
■ CIOC 
.TITLE 
.GLOBL 

R4iX4 

SPtX* 

•CLOSL 
IV20i| 


040200,000000 

IPOL07 
JP0LSI1 

IV20A 


004076' 


009726 




«POU»HI T$T 


UP|* 


004100' 


000134 




JHP 

,l?or 

■CLO0U 

teiEi 

.ENoe 

.IPOP 
.CkOSL 
SEtSt 

.(NDC 

.iPor 

iSLOBL 

irpui 

,tNoe 

■ iroF 

.CLORL 

»risi 

■ ENPC 

.iPor 

.GLOBL 


•|R4)* 

EAC 

*E«E 

E13IHUL0IV 

HIS 

PPU 
tfPU 

p»» 

R?X 
IRSX 



^/f3 



SPOL07 HACXtl V02t 23«N*Ra73 lt|34 PAtE 7al3 



9997 








SRtXt 






9990 










.ENoe 




999» 










.TITLE 


JIOT0? 


9960 










.If or 


CN0S4t 


9961 














9962 










.SLO0L 
.If NOP 


SgPTiitlRR 


996? 










fPU 


9964 










.GLOBL 


SAORiSOVPiSPOLSH 


9969 










.ENoe 




9966 




300000 






RI0II0 




9967 




300001 






RlKt 




9960 




300004 






R4IX4 




9969 




300009 






II98X9 




9970 




300006 






IPSX6 




9971 




000000 






f00X0 




5972 




000001 






fliXt 




9973 




000002 






f2t«2 




9974 










.If Of 


fPU 


9979 








SORTI 


HOV 


•?(R9|,R1 


9976 










lENOC 




9977 










. |f Nor 


fPU 


9970 


004102' 


010944 




SQRTl 


MOV 


R9,.(JP) 


9979 


004104' 


316909 


000002 




HOV 


2(R9)|P9 

•R9,Rt 


9900 


004110' 


011901 






HOV 


5981 










,ENOC 




9902 


004112' 


100443 






8Nt 


ERRS41 


59B3 


004114' 


301446 






BEO 


2ERS41 


5984 










.If NOP 


fpg 


5589 


304116' 


312746 


000003 




HOV 


•?..(?p) 


9986 










,ENOC 




5987 


004122' 


006201 






ASP 


"i 


5588 


004124' 


362731 


020100 




too 


•20100, Rl 


5589 


004130" 


009046 






CLR 


• (SP) 


5990 


004132' 


310146 






HOV 


R1,.<SP) 


55VI 










.IfNOF 


fPU 


5592 


304134' 


305046 






CLR 


• )SP) 


559J 


004136' 


311546 






HOV 


•R9,«|3P) 


5994 


004140' 


309046 






CLP 


• IBP) 


5599 


004142' 


310146 






HOV 


Rl,.<SP| 


5996 


004144' 


304467 


177726 


tUPS41l 


JSP 


R4,JP5LSH 


5997 


004150' 


001234' 


000006' 


004196' 


iHORD 


J0VR,»A0R,UPLI41 


9998 


004196' 


162716 


000200 


UPL$411 


SUB 


•200, PSP 


9999 


004162' 


305366 


000004 




OEB 


4|SP) 


9600 


304166' 


301410 






SEO 


0«T«4i 


9601 


004170' 


316946 


000002 




HOV 


2|R9)|*IBP| 


5602 


004174' 


011946 






HOV 


•R9,«|BP) 


5603 


004176' 


016646 


000006 




HOV 


6|SP)i*(SP) 


5604 


004202' 


016646 


000006 




HOV 


«(IP)|«(SP1 


5609 


004206' 


300796 






BR 


L«PS4i 


9606 


004210' 


012600 




OUTt«ll 


HOV 


liP)4|R( 


5607 


004212' 


312601 






HOV 


(fP)*|Rl 


5608 


004214' 


309726 






TST 


(fPt* 
(iP|*|R» 


5609 


004216' 


31263} 




RTM41I 


HOV 


5610 


004220' 


300209 






RTB 


Rf 

R»,S(NR 


5611 


004222' 


004967 


000012 


ERRS41I 


J|R 



vri 



IS0TI3 HACXtl V«21 2}aHtll«73 11,194 PkK 7>t< 



»tiz 


9i422«« 


0))773 




H 


RTNi41 


»i; 


Bf423t< 


004 




.•7Tt 


4 


»»14 


»i«!3l' 


019 




.•rn 


u; 


>tt9 


M4232' 


3)900) 


2CM41) 


euR 


R) 


»»i« 


094234' 


0)9001 




euR 


RTN»41 


5«17 


004236' 


B0B7»r 




)R 


stia 








.CNoe 




9»l» 








.|70r 


rRu 


9*2B 








»I0» 


•?.R» 


»»zt 








*v.r 




S»2? 








lar 


UR|*|7) 


»*Z9 








tor 


•»IR9|i'2 


»M« 






kUM41| 


UDf 


r),ri 


s«» 








kor 


ri,ri 


»*26 








Bivr 


H,ri 


9*27 








toof 


ri.f) 


9*2* 








oce 


R) 


9»2« 








Pivr 


«•,)•£* 


9690 








(6T 


kUR(4; 


9«3t 








)Tr 


rtfii') 


9«92 








NOV 


<|R)*|R) 


9«S? 








MOV 


I|»)*|R1 


»«S« 








»T» 


R9 


9*39 






eRM4ii 


J(R 


R9i«RR 


9«3» 








RT) 


R9 


9*37 








,»»TE 


4 


9*3* 








,8YTt 


til 


9*3» 






ICM41I 


euR 


R) 


9*4« 








irn 


Rl 


9(41 








R9 


9*4} 








• CHOC 




9*4? 








.[NDC 




9*44 








.TITtE 


«CRR)1 


9*49 








,CI,0)L 


((RRllCRRAilCRVee 


9*4* 




09)«0) 




R) • X0 




9*47 




0)))09 




R9 • X9 




9*4* 




0)))0( 




>R • X* 




9*4» 




0))))7 




RC • «7 




9*9) 


)l424i' 


•1)94* 


tCMl 


H0» 


R)i>(|R) 


9*91 


004242' 


91190) )))))2 




HOV 


2|R9)|R* 


9*53 


00424*1 


0)0401 




)R 


eRa«4f 


9*9? 


0I429(< 


01))4* 


IMRtI 


«0V 


r)i>(;r) 


9*9* 






CRiS49l 


.IfNOF 


C|,*SS9 


9»9» 


014292' 


12))27 )))))9 




CMR) 


R)|t9 


9*9* 


01429*' 


0)1402 
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14* 


0(0292' 


9(9(0( 






CUR 


R( 


147 


0(0294' 


0097*9 


000(0(6 




T8T 


rAei(R9) 


14* 


00026(' 


00100} 






BNC 


seMrui 


149 


0((2>2' 


«097»9 


0000(06 




TST 


P«02(R91 


190 


((026*' 


001410 






(to 


ISNX 


191 


00(270' 


100002 




S6NPLTI 


0RI. 


BiNROil 


192 


000272' 


009300 






oce 


R( 


199 


900274' 


000401 






IR 


1*4 


194 


0(0274' 


009100 




86NR0SI 


INC 


R» 


199 


0(0900' 


0100*9 


0(0(0(8 




»I0» 


R(,r»!2(R9l 


19ft 


000904' 


0090*1 


0(l(((B 




OI.R 


rACt(H9) 


197 


00(910' 


000137 


00((((8 


S8NXI 


JRR 


MORRATOR 


190 


000914' 


0((197 


0000006 


CR(6NA| 


JRR 


••CRRAR6 


19» 


000920' 


00(137 


0000006 


CRISNSl 


JMR 


MCRRBVN 


1»0 








SSNPNei 






lei 














162 















.5'<^<^ 



(^^ 



/< 



tCN 


MACXll 


Vtil 


22>N>N«73 


1»|49 PMC 7 












ITIS rUNOTION KgUTINC 




0f0;i24 


0047J7 


000000; 


TtirNi 


ill. 


PEi*«AI(t« 

(M)*l«i«'AII 




000990 


122127 


0000000 






000994 


00l09t 






0Ne 


(HTAIf 




000996 


009046 






eu" 


•(IP) 




0009<0 


116916 


000000a 




M0V8 


rAe2(R9i,i9P) 




000944 


0!i»2r 


000110 


TtSSl 


enr 


If ).•»!, 




000990 


10940] 






>kO 


TA»e 




00099! 


162716 


000110 




•U0 


072. it?" 




000996 


000772 






0R 


TAIB 




00B9>0 


167916 


0000000 


TAICI 


•UB 


•CeLunNiP9i,(tP) 




000364 


100001 






*K 


>** 




000966 


009016 






en 


IP) 




000970 


001002 






INt 


TA0NON 




00097: 


009316 






Qce 


IIP) 




000974 


000414 






■K 


TAtNUkli 




000976 


010902 




TAINONI 


NOV 


l<>,R2 




000400 


00479? 


000000; 




J)" 


p;,*fMAKe!!rR 




000404 


011600 






MOV 


i|P)iP0 




000406 


009002 
191002 






Ck" 


1*? 

I?0).W 




000410 






•ise 




00041! 


061700 


000003 




AOP 


0?tP* 




000416 


112720 


000040 




HOVB 


•*k||Hf)* 




000422 


009302 






see 


1! 




000424 


001374 






18T 


• •* 




0*0426 


000197 


00000*« 


TtlNUlL 
CRtAlsT 


IJHP 


MSPPRATP 




000493 


000137 


0000008 


JHP 


••ePRSYN 










TttrNEi 



































ICH 


HACXll 


V021 


22>I1AR«79 


19|49 PtSE 










1 CEN rUNCTION 




000496' 


004797 


000000s 


lENrNI 


jn 




000442' 


103016 






•ce 




000444' 


122127 






;mpb 




000490' 


001019 






9NE 




000492' 


009049 


0000000 




CUR 




000496' 


009069 


000000G 




OtR 




000462' 


01>»02 






NOV 




000464' 


009202 






INC 




000466' 


001402 






9Ee 


203 


000470' 


114269 


0000000 




N0V8 


204 


000474' 


000197 


000000; 




JMP 


209 


0009EI0I 


B00197 


000000s 


EPCENA) 


JHP 


206 


000904' 


000197 


0000000 


ERLENSJ 


JHP 


207 








LENFNEl 




300 












209 













ROUTINE 
PSlUfVAl. 
ERkENA 
|Rt)t|0,RPtR 
ERkENI 
r4ei(H9) 
f'Ae2|H9) 
l|P)*|R2 

■ •« 
•(R2)|PAC2|R9) 

••OPRATOR 

•tERRARG 

PRERRfVN 



so^ 



<^^ 



:cH 


HACXll 


V321 


22aH«R«73 19|49 P«eC * 




tit 








1 iSe fUNCTION R8UT1NI 


211 


af«9ii< 


3(4737 


(33030^ 


AserNi 


J3R 


'SlMtVAU 


2i: 


10(914' 


1(3(2} 






3ee 


CRASCA 


219 


MI91*' 


122127 






CNRS 


|Rt)*|4,RRAR 


214 


(IIH22< 


3(1(22 






3NC 


tRABCt 


2t» 


»»«S24' 


012632 






HOV 


t|P)*i«2 


216 


310326' 


020227 


177777 




CHP 


R2i«l77777 


217 


330932' 


001414 






3t9 


tRA3CA 


21« 


333934' 


121227 


003031 




CHRS 


IR2)i«t 


21» 


3B(94«< 


031311 






BN( 


ERAJCA 


22B 


89B942< 


3(9(69 


3030030 




euR 


rAeiiMi 


221 


303946' 


0(9069 


3383(38 




PL* 


rAC2tH31 


222 


300993' 


116269 


033333 


01011(3 


H0»( 


3|R2)irAC2tR9l 


223 


3009*3' 


300137 


30(3030 




JHR 


(•ORRAroR 


22* 


3009*4' 


303137 


0300003 


C3t3CA| 


JMR 


(iiCRRARB 


22» 


3309701 


03(137 


000(03G 


CRisesi 


JMR 


••tRRfTN 


22» 








AserNEl 






227 














221 








1 CHM 


rUNCTION 


RQUTINC 


22< 


300974' 


304737 


3(00003 


mmrtu 


JtR 


R;iMAR33 


23* 


3006(0' 


122127 


000(303 




CMPl 


IRll*i»iRRAR 


231 


(((*(4< 


301016 






3NC 


tRCHRI 


232 


(00*(«< 


14276} 


33(2(( 


111(113 


(130 


•233iCAC2tR9l 


233 


0(0*14' 


31274« 


3(((31 




HOV 


•!■•<«') 


234 


(((*2(< 


31(932 






«0» 


R3,R2 


23» 


(((*22' 


0(4737 


0031333 




J3R 


p;,**MAKe3rR 


23* 


303626' 


011633 






HQV 


UR)i»3 


237 


30(«3(< 


116960 


0111313 


111333 


HOV0 


7AC2IR9|,3(R3I 


233 


0((63«< 


033137 


0013130 




JHR 


•ISgRRATR 


23» 


03364:' 


030137 


011(110 


tRCHlSl 


JNR 


MCRRfrN 


243 








CHRPNEI 






241 














242 















•TAKE CHAR NOP 123 



ICH 


HACXll 


V321 


22>MAR«7S 


19t49 RASE 11 




243 








1 (03 


rUNCTION Rq«7INt 


244 


33(64* 


0(4737 


31((((0 


ROSPNI 


JtR 


R?.»«tVAL 


249 


333692 


1B313J 






■ce 


ERR03A 


Z*i 


13(694 


122127 


0(((((e 




CNRB 


|ill)*|R|C0MNA 


247 


1((66( 


(01132 






BNE 


E3R03J 


243 


00(662 


304737 


00(3110 




J»R 


RSi^RfVAt 


243 


(((666 


103129 






3CC 


ERROSA 


293 


(((*7( 


122127 


033II1O 




CURB 


(l?t|4|3ieOMMA 


291 


3((674 


001124 






BNE 


ERROBJ 


232 


01167« 


004737 


3(((iie 




J3R 


P;,6<CVAL 


293 


0(3702 


133J17 






BCS 


ERP03A 


234 


0(0704 


0(4737 


0i((((e 




J$R 


PClMlNT 


299 


01(710 


122127 


11(((13 




CMRB 


<Rl)»,«,RP»R 


296 


010714 


3(1114 






BNE 


(RPOS; 


297 


011716 


3(9330 






CUR 


R( 


293 


333723 


3(9749 


0010110 




T$T 


PACIIRB) 


299 


33(724 


0(1(77 






BNE 


POBP 


263 


0((726 


3(9763 


01(11(0 




T$T 


rAC2IR9) 


261 


0((732 


0(3474 






«LE 


ppsr 


2*2 


1((734 


19691( 


3ii(((e 




Bt3B 


rAC2(H9|,R( 


2*3 








ICMECK 


NUU XS 




264 


033741 


026627 


0111(2 177777 


CMR 


2|8PI)il77777 


2'9 


00074* 


0(1002 






BNE 


P03X 


266 


300791 


0(3303 






CUR 


R( 


267 


1(1792 


033464 






BR 


R03r 


263 








leoMRUTE tfNOTH or XS 


26? 


1(0794 


039(02 




PO(XI 


CUR 


32 


27( 


3((796 


197602 


101112 




3136 


»2(SP||R2 


271 








1 CHECK 


NULL V3 




272 


111762 


021627 


177777 




CMR 


(JP)l»177777 


273 


01(766 


0(1114 






BNE 


POSY 


274 








INULL 


rS, AN3 


13 NtN(N,UEN(XS)l 


279 


3(177( 


021102 






CMR 


R1.R2 


276 


030772 


033494 






BkE 


poir 


277 


010774 


01321( 






"OV 


R2lR3 


273 


000776 


000492 






BR 


ppsr 


279 








(SAVE 


AODR or 


END or Tl IN T2 


201 


011000 


019003 




'03YI 


CUR 


R? 


261 


011002 


197603 


01(((( 




B|3e 


•t3P)|R3 


232 


011006 


061603 






too 


(?R)|R3 


283 


031010 


062703 


010103 




AOO 


•3iR3 


234 


001014 


210369 


0000000 




MOV 


R3,T2(n9) 


233 


031323 


012603 






HOV 


(SP)»,R3 


236 


011022 


762703 


01(103 




AOO 


•3iR3 


257 








I3AVC 


AODR or 


END or XJ IN Tl 


233 


031326 


361632 






AOO 


l?P).M2 


269 


01133( 


0*2702 


011(13 




AOO 


•3,R2 


291 


031334 


010269 


031(110 




MOV 


R2,T1(R9) 


291 


001040 


012602 






MOV 


l}P)*iR2 


292 


001042 


060302 






AOO 


R0|R2 


293 


001044 


062732 


31(112 




AOO 


•2.R2 


294 








IflNg MATCHINC r|R3T (HARAgTER 


299 


011190 


121322 




ROSrSTl CMRB 


(R3|,(R2)« 


296 


311192 


00140* 






BEO 


POSREM 


297 


031094 


009200 




RMTRY 


1 INC 


R( 



IR3 IS N 



^ 



v^ 



A 



StItCH 


lACXll 


V021 


22tl1<Ra73 


s»e 


001094' 


020269 


0000000 


!»» 


001042' 


001372 




700 


001044' 


001000 




50i 


001046' 


000417 




90! 








50? 


001070' 


010246 




J0« 


001072' 


010346 




90; 


001074' 


000209 




906 


001076' 


020369 


000000G 


907 


001102' 


001410 




90* 


001104' 


020269 


000I00B 


90» 


001110' 


001402 




910 


001112' 


12222} 




911 


001114' 


001770 




912 


001116' 


01260] 




319 


001120' 


012602 




914 


001122' 


000794 




91» 








91» 


001124' 


021626 




917 


001126' 


010069 


000000s 


911 


001132' 


009069 


000000s 


91» 


001136' 


000137 


0000000 


920 


001142' 


000137 


000000s 


921 


001146' 


000137 


0000006 


922 








929 
924 















19149 fWt 10>1 





CHP 


■aiTi(«»i 




•nc 


jj,r,i 




0R 


ptiiPi 


ICHCCK TH«r aEMtlNINS 9Hkni MITCH 


potnn\ 


HOV 


«»i»<«i'i 




HQV 


"9><liP| 




INC 


"9 


POSNXTI 


OH' 


«9iT2(«»l 




0ce 


poir 




OMP 


«2,T1(B9) 




0(0 


PO0NO 




CHPg 


(R2I*|IR3)6 




0(0 


pqiN«i 


po0Nei 


MOV 


l}P>*t>*9 




HOV 


lfP>*|P2 




0R 


POJTRT 


iRrruRN 


rHOM 


rUNCtlON 

IIP)*,(IPI« 


foirt 


OMF 


PBirji 


MOV 


«0,f»S2tR9| 




Ck" 


r»eitM) 




JMP 


•tOM'tOR 


CRPOSA) 


JM0 


•«(RRtRS 


CRfOSSI 


JHP 


••(RRjfVN 


POlPNtI 







BltlCH M»eXll V021 22»M»R»73 15|49 UK It 



929 
32» 
327 
320 

32» 
330 
331 
332 
339 
934 
339 
336 
337 
938 
33' 
940 

941 
942 
949 
344 
349 
346 
947 
340 
349 
990 
991 
392 
393 
394 
399 
396 
397 
396 
39» 
360 
361 
362 
363 
364 
969 

966 
367 
960 
367 
370 
371 

37? 
373 
374 
379 
376 
377 
376 
379 



001192' 
001196' 
001160' 
001164' 
001166' 
001172' 
001174' 
001200' 
001204' 
001210' 
001214' 
001216' 
001222' 
001224' 
001230' 
001234' 

001236' 
001240' 
001242' 
001244' 
001246' 
001290' 
001292' 



004737 
109114 
122127 
301119 
004737 
103906 
004797 
016946 
016946 
122127 
001077 
B04737 
10347J 
004737 
122127 
001067 

012602 
012600 
100409 
001099 

00)702 
003002 
012702 



001296' 009000 

001260' 021627 
001264' 197600 



001270' 
001274' 
001276' 
001300' 
001302' 
001304' 
001310' 



009769 

100441 
001402 

010003 
200403 
016909 
003433 



0000006 

0000006 
000000S 
0000006 



I SES rUNCTION ROVTJNI 



000000; 

0000006 



0000006 



000001 



177777 
000000 



0000006 



0000006 



001312' 020009 

001314' 101001 

001316' 010009 

001320' 020209 

001322' 101026 

0013241 160209 
001326' 00920] 

001330' 010246 
001332' 010902 
001334' 010346 
001336' 004737 

001342' 012602 
001344' 012600 
001346' 061600 



0000006 



UsFNI 



I OCT X 



JSR 

ice 

CMRB 
SNC 
J»R 
0CI 

Ji* 

HOV 

HOV 

CNPB 

BNC 

J5R 

«C9 

JSR 

CURS 

fNC 

vtkue |N 

HOV 
HOV 
0HI 
0N( 
TJT 
BST 
HOV 



P!l»«fVA|. 
CRSES/k 
(Rll*|f, COMMA 

cRSEo; 

P5i»»SV»U 

ERseoA 

P5,»01NT 

r4ei(R9),a(SP| 

r«C2(R9l>>|SP| 

IRl)*|t,eOMHt 

CRiCOf 

PCi*P(V*L 

CRSEPA 

PCi*PiNT 

(Rll*l«iRR»" 

(RIEO) 

R2 

i;p)*iR2 

(iP|«|R0 
9EOX0 

SSfNUk 
R2 

9(Sk 
•liR2 



ICHECK NULU »T«IN6 



8C8X0I 

ICOHPUTE kCNSTM or tl IN R0 

SEBLI CIR R0 

CMP (SP), 0177777 

0)38 •|SP)|R0 

i6(T y vtkue I" '9 
SE6TY1 TJT p«ei(R») 

IMI 9(SNUk 

8(0 . 8{9Tr2 

HOV R0|R9 

0R KSRNS 

SE8Ty2l HOV P»C2(R9)iR3 

8k{ 8(8NUk 
I CHECK 0<lR2«R9<lR0 

SE6RNSI CMP R0|R9 

BMI S(SR2 

HOV R*|R9 

3ESR2I CMP R2|R9 

8HI lltNUh 
ICOHPUTE LENCTH Of OUfPUT STR|N6 

9U8 R2,R9 

INC R9 
IMtKC NEK 0TR|NS OP THE CORRECT ttN5TH 

HOV RJ,«(iP) 18AVC START CHAR 

HOV R»,R2 

HOV R4i><!P) 

JIR p;,»iMAKE9TR 

iPtX STACK ANO MOVE IN CHARS PROM OkD STRINC 

HOV l|P|4|R2 iNtH STRIN8 POINTER 

HOV (|P)*|R* ISTART CHAR 

AOO l$P||R0 I'ABO 010 STR POINTER 



<r^r 






I|CH 


M»exn 


y>2i 


22tl1AII«73 


1»|4> fkK 11«1 




i»9 


8il3»»' 


0t021« 




NOV 


«2.(l?l 


jat 


0»13'Z< 


0(»03 




eu; 


"i. u. 


312 


»ft3S4» 


lili203 




•l»» 


'i*ii-' 


38) 


eft3>t' 


0*2702 


0000(3 


too 


•9 1^2 


3(4 


aii3*2' 


0«270) 


000002 


too 


•2iM 


9«» 


gii3>6' 


112022 




JEOIPI "OVB 


|N0)*ltK2|* 


jet 


g«t37»' 


000303 




Die 


"3 


3t7 


0tl372> 


00137J 




(NE 


SCSLP 


jsa 


0(1374' 


000137 


0000008 


JHP 


••ST'HO 


3S* 








1 OUTPUT NUU 


STRING 


39B 


a0t40«> 


012710 


177777 


SEONUUI NOV 


•177777, (»P) 


3<l 


0»14»4' 


200137 


0000(01 


SE8XI JHI" 


••SOPNtTK 


392 


111410' 


100137 


0000000 


ER»eO»| JMP 


••eRKtiie 


3»J 


001414' 


000137 


0000(09 


[Rseesi JMP 


••tRKfVN 


J»» 








scorNEi 




J»» 












3»» 













utve NCH ST'INS 

|R3 II WV STRIN6 LENOTH 
ItBBR f|R3T CHtR IN NEV STR 
ItBDR STtRT CHtR IN OLO STR 
iTItt IN NEN STRINS 



StSICH Htexll V021 22>MtR>73 19|4S PtSE 12 



397 

390 

399 

400 

401 

402 

403 

4(4 

409 

40» 

407 

4(0 

4(9 

410 

411 

412 

413 

414 

41» 

41» 

417 

410 

4l» 

428 

421 

422 

423 

424 

42» 

42» 

427 

420 

42V 

430 

431 

432 

433 

434 

439 

*3i 

437 

430 

439 

440 

441 

442 



001420' 004737 

001424' 1(309* 

001426' 122127 

001492' 001(91 



00((((G 
0000006 



301434' 
001436' 
001442' 
0(1444' 
0(149(1 
((1494' 
001496' 
0(146(' 
0(1442' 
((1464' 
((1466' 
((1472* 
001474' 
001476' 
001900' 
001902' 



011600 
020027 
00100* 
0(9(69 
0(9(69 
((972* 
000439 
009(02 
191002 
01(21* 
062700 
060002 
109012 
01044* 
01014* 
210246 



177777 



000000; 

0(0000S 



0(00(3 



((19(4' 0(4737 ((((((( 



0(191(' 0(4737 

((1914' 01(369 

0(1920' 01046} 

0019241 109710 

001926' 00140] 

001930' 122027 

001934' 00177) 



001936' 

001940' 
001942< 
001944' 
0(1544' 
001550' 
001992' 
001996' 
001962' 



020026 
001010 
012601 
012604 
012602 
110210 
00(137 
0((137 
0(0137 



0000006 
0000000 

00(0000 



00((4( 



((((((6 

00(00(6 
0(0(006 



I VAL rUNOtlON ROVTIN( 
Vtl.fNI — "" "" 



JSR 

see 

CMRB 
(Nt 
iREtO STR|N6 
NOV 



ENVtLt 
|Rl)*|f,RPtR 

CRVlLi 



ISRj.M 

CMR R(, 0177777 

ONE VtkR 

ctR rtei(R9i 

euR rte2(R9) 

T»T (JR»* 

(R VtLJ 

VtLRI CLR . "2 

(|SB (A(),R2 

NOV R2>ISR| 

too •}|R( 

too R(|R2 

CkNS (HI) 

NOV R4,.(|P» 

NOV Rti«(;P| 

NOV R2i«l1JP| 
iRCtO tSeil NUHBCR tNS EXPONENT 

JSR P9l»»Vtl, 

INORHlLIiE TO PORN Fl! PT NUNSER 

JSR P;,0«NORM 

NOV R3,PlCl(R9t 

NOV R4,rtC2|R9| 

ICHECK END or STRIN6 

VtLCEl TST( 1R0I 

SEO vtcx 

CNPB (R0)4|«Bk 
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COtUHN 


888834 
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HODULE BaSICL 
SECTION ENTRY 
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ARCB 



ARRAYS 000010 

COLUMN 000094 

ERRARG 010326 

CRRnIX 013026 

ERRPDL 011776 
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eVAL 011402 



ADDRESS SUE 
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FILLCO 300104 
GETVAR 019410 



INT 
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RNOl 
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SAVCHA 


320646 
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.TITLE PERPtR — PERIPHERtL SUPPORT PtCKtSE P4R4HETER HOOULE. 

I 

I DEC>ll>LSP><-*-L* BtSIC KERNEL V02-01 

I 

I C0PYRI5HT (C) 1474 

I 

I DIGITtL EOUIPMENT CORPORITION 

t MlYNtRO, MASSACHUSETTS (1754 

f 

THE INFORHtTION IN THIS DOCUMENT IS SUBJECT TO 
CHtNGE HITHOUT NOTICE tND SHOULD NOT BE CONSTRUED 
•S « COMMITHENT BY DI6IT4L EQUIPMENT CORPORATION, 
DEC ASSUMES NO RESPONSIBILITY FOR ANY ERRORS THAT 
HAY APPEAR IN THIS DOCUMENT, 

THIS SOFTHARE IS FURNISHED TO PURCHASER UNDER A 

LICENSE FOR USE ON A SINGLE COMPUTER SYSTEM AND 
i CAN SE COPIED (HITH INCLUSION OF DEC'S COPYRIGHT 
I NOTICE) ONLY FOR USE IN SUCH SYSTEM, EXCEPT AS MAY 
I OTHERNISE BE PROVIDED IN HRITING BY DEC. 
I 

I DEC ASSUMES NO RESPONSIBILITY FOR THE USE 
I OR RELIABILITY OF ITS SOFTHARE ON EQUIPMENT 
I NHICH IS NOT SUPPLIED BY DEC, 

I THE CONDITIONALS CONTAINED IN THIS MODULE AFFECT THE ASSEMBLY 

I OF THE FUNCTION TABLE MODULE "FTBL.MAC", 

I TO OBTAIN THE DESIRED CONDITIONAL DEFINtTION(S) , 

I REMOVE (USING AN EDITOR) THE 

I SEHI-COLON APPEARING BEFORE THE CONDITIONAL, 

ISDISKX (DEFINE FOR RT-U 

,IFNOF SDISK 
(BBSae SSTRNGsS |D0 NOT DEFINE FOR PTS BASIC NITHOUT 

(STRINGS)- DEFINED FOR PTS V(l mTH STRINGS 

,ENOC ( 

(DEFINE FOR LPS 

(DEFINE FOR LPS KITH VECTORS STARTING 

( AT 300. DEFAULT SETTING IS VECTORS AT 

( 340. SET SV • ANY OTHER DISPLACEMENT IF 

( VECTORS START AT DISPLACEMENTS 

( OTHER THAN e OR 10 FROM 

( VECTOR 300 

(INCLUDE A/D ROUTINES. 
(INCLUDE CLOCK ROUTINES, 
(INCLUDE DIGITAL 10 ROUTINES 
(INCLUDE DISPL4Y ROUTINES, 



(FOR GT40 (GT4«) 



000000 


SLPS>0 

(IVS0 
1 
1 
1 


,IFDF SLPS 


000000 
000000 
000000 
000000 


( 

( 

SADC>0 
>CLK>0 
SDIOa0 
SDIS>0 

( 


.ENDC (SI 


(00(00 


( 

SVT11P0 

( 
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000000 0CLacKP0 



.IFDF JKTll 
• ENOC 



IPOR SrSTCH CLOCK (KHllL) 



.EOT 



TITLE PERVEC VECTOR DEFINITION NODULE FOR 010IC SUPPORT PtCKtGES, 

DEC-11-LBPVA-t-L* 0<SIC KERNEL V02-0t 

COPYRIGHT (C) 197« 

DICITtL EQUIPHENT CORPORtTION 
HtTNARO, N«SS*CHU0ETTS 0I7S« 

THE INFORMtTION IN THIS DOCUMENT IS SUBJECT TO 
CHANGE alTHOUT NOTICE iNO SHOULD NOT BE CONSTRUED 
«S » COHHITHENT BY DIGITAL EQUIPHENT CORPORATION, 
DEC ASSUMES NO RESPONSIBILITY FOR ANY ERRORS THAT 
HAY APPEAR IN THIS OOCUHENT, 

THIS SOFTKARC IS FURNISHED TO PURCHASER UNDER A 
LICENSE FOR USE ON A SINGLE COMPUTER SYSTEM AND 
CAN BE COPIED (KITH INCLUSION OF DEC'S COPYRIGHT 
NOTICE) ONLY FOR USE IN SUCH SYSTEM, EXCEPT AS NAY 
OTHERHISE 0E PROVIDED IN HRITING BY DEC. 



DEC ASSUMES NO RESPONSIBILITY FOR THE USE 
OR RELIABILITY OF ITS SOFTKARE ON EQUIPHENT 
HHICH IS NOT SUPPLIED BY DEC, 
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1 THIS MODULE DEFINES THE HARONARE ADRE3SES USED BY 

, SUCH HARONARE AS THE "LPS", THE •VTU"(GT40) AND THE 

I IF THE VECTORS FOR THESE DEVICES SHOULD CHANGE 

I THIS MODULE MUST BE EDITED TO REFLECT THE CHANGE. 



,IFDF SLP5 
.IFNOF SV 
SV'40 

,ENDC 

.GLOBL LPSAD,LP8A0B,LPS0R.LPS0MA 

.GLOBL LPSCKS.lPSPS.LPSDRSiLPSOIB 

, GLOBL LPSDOR 

.GLOBL LPOISS.LPDISS.LPDISV 

.GLOBL CKLIVA,CKLIP.0RSIVA,0RSIP,LP8IVA,LP3IP 



I DEVICE EQUATES! 



170400 
170402 
170404 
170406 
170410 
170410 
170412 
170414 
170416 
170420 
170422 
170436 



LPSAD 

LPSAOB 

LPSCKS 

LP8PB 

LPSOR 

LPSDRS 

LPSDIS 

LPSDOR 

LPDISS 

LPDISX 

LPOISY 

LPSOHA 



170400 (LPS A/D STATUS RES, 

170402 ILPS A/D BUFFER LED RES. 

170404 ILPS CLOCK STATUS REG. 

170406 ILPS CLOCK BUFFER PRESET REG, 

170410 ILPS DIGITAL I/O STATUS REG. 
LPSOR 

170412 ILPS DIGITAL INPUT REG. 

170414 ILPS DIGITAL OUTPUT REG. 

170416 ILPS DISPLAY STATUS REG, 

170420 ILPS DISPLAY REG. X 

170422 ILPS DISPLAY REG. Y 

170436 ILPS DHA REGG. 



I INTERRUPT VECTOR PAIRSI 



000344 CKLIVA 
000346 CKLIP 



000350 DRSIVA 
000352 DRSIP 



000540 LPSIVA 
000342 LPSIP 



172000 DPC 
172002 DSR 
172004 DISX 
172206 DISV 
000320 GTVECT 



304»SV lAOR. OF CLOCK INTERRUPT VECTOR 

306tSV |A0». OF CLOCK INT. PRIORITY 

3l0t$V |AOB, OF ORS INT. VECTOR 

312»SV |AOR. OF ORS INT. PRIORITY, 

300«SV lAOR. OF THE A/0 INT. VECTOR, 

302«SV lADR, OF THE INT. PRIORITY. 

ENDC itLPS 

IFDF SVTU IOT40 

GLOBL DPC, DSR, DISX, DISYfSTVECT 

172000 IVTII DISPLAY PC 

0PC*2 iVTll DISPLAY STATUS REG 

0SR*2 IVTU X STATUS REG 

DISX«2 iVTll Y STATUS RES 

320 lAOR. OF VTU tGT40 (GT44)) INTERRUPT 
IVECTOR LIST, REDEFINING GTVECT 
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59 

kt 
6i 

6) 

611 
6S 

66 



iSTVECTi 

|OTV£CT»«l 

|GTV£CT*l»l 

,ENOC 



.END 



l»VTlt 



IREDEFINES THE ENTIRE (ET 

(OF DtSPUtV PROCESSOR INT, VECTORS, 

iDISRLtV STOP VECTOR 

ItlSHT PEN HIT VECTOR 

lOISPLAT TIME OUT VECTOR 
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SYMBOL TA6LE 
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CKUP ■ 


BOBJak G 




DISY s 


172906 S 




0RSIV4. 


0BB3SB G 




LPOlSSa 


t70<lt6 S 




UPSIO • 


1701100 G 




LPSDISa 


1701112 G 




LPSOR • 


17Bai0 G 




LPSIVla 


0003110 G 




SCLK • 


000000 




tots > 


000000 




iV a 


0000110 




• ABS, 


000000 


000 




000000 


001 



ERRORS DETECTEDi 
FREE COREl 18189. 



CKLIVM BBBJaa G 

DPC • 172000 G 

DSR • 172002 G 

tPOISXi 1701120 G 

LPStOBa 1T0II02 G 

IPS0M«« 170IIJ6 G 

LPSORSa |70ai0 G 

LPaPB • 1701106 G 

ICLOCK> 000000 

ILP9 • 000000 
»VT11 



DISX • 
ORSIP m 
GTVECT" 
LPDISY" 
LPSCKS' 
LPSDORa 
LPaiP • 
ItDC • 
SDIO • 
SSTRNGa 



172004 
BB0IS2 

000320 

I701122 
170a0ll 

I70ai« 

0003112 
000000 
000000 
000000 



HOROS 



PERVEC, GTL. LP I aPERPAR.GTL. PERVEC 



f 
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, TITLE PERPiR •• PERIPHERtU SUPPORT P«CK«gE PtRAMETER HODULE, 



BASIC KERNEL va2-0| 



CIEC-ll«LBP»»-».L« 

COPYRIOMT (C) 1974 

DIGITiL EaUIPHENT CORPORATION 
HtVNARO. NtSStCHUSETTS 01754 

THE INPORHtTION IN THIS OOCUHENT IS SUBJECT TO 
CHANCE MITHOUT NOTICE AND SHOULD NOT BE CONSTRUED 
AS A COHHITHENT BY DIGITAL EQUIPMENT CORPORATION, 
DEC ASSUMES NO RESPONSIBILITY POR ANY ERRORS THAT 
MAY APPEAR IN THIS DOCUMENT. 

THIS SOFTHARE IS FURNISHED TO PURCHASER UNDER A 
LICENSE FOR USE ON A SINGLE COMPUTER SYSTEM AND 
CAN BE COPIED (WITH INCLUSION OF DEC'S COPYRIGHT 
NOTICE) ONLY FOR USE IN SUCH SYSTEM, EXCEPT AS MAY 
OTHERMISE BE PROVIDED IN KRITINS BY DEC, 

DEC ASSUMES NO RESPONSIBILITY FOR THE USE 
OR RELIABILITY OF ITS SOFTHARE ON EQUIPMENT 
HHICH IS NOT SUPPLIED BY DEC, 



I THE CONDITIONALS CONTAINED IN THIS MODULE AFFECT THE ASSEMBLY 

I OF THE FUNCTION TABLE MODULE "PTBL.HAC", 

I TO OBTAIN THE DESIRED CONDITIONAL OEFINITION(S) , 

I REMOVE (USING AN EDITOR) THE 

I SEMI-COLON APPEARING BEFORE THE CONDITIONAL, 

(SOISKiO (DEFINE FOR RT-11 

,IFNOF SDISK 
000000 SSTRNGI0 IDO NOT DEFINE FOR PTS BASIC NITHOUT 

ISTRINGS,- DEFINED FOR PTS VOl NITH STRINGS 

,ENOC I 



000000 $LPS«0 
tSV<0 



000000 


I 

1 
1 
1 

SADC«0 


000000 


SCLKI0 


000000 


SDIOS0 


000000 


SDIS>0 

1 

1 



[DEFINE FOR LPS 

(DEFINE FOR LPS NITH VECTORS STARTING 

I 

( 

( 



( 



AT 300, DEFAULT SETTING IS VECTORS AT 
340, SET SV • ANY OTHER DISPLACEMENT IF 

VECTORS START AT DISPLACEMENTS 

OTHER THAN OR 40 FROM 

VECTOR 300 



,ENOC (SLPS 



000000 SVT11>0 



(INCLUDE A/D ROUTINES, 

(INCLUDE CLOCK ROUTINES, 

(INCLUDE DIGITAL 10 ROUTINES 

(INCLUDE DISPLAY ROUTINES, 



(FOR GT40 (GT44) 



3 
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000000 SCLOCK'0 



,IFDF JVTll 
,ENDC 



(FOR SYSTEM CLOCK (KNUL) 



.EOT 



.TITLE PTSINT — PTS INTERFACE MODULE FOR SUPPORT PACKAGES, 

( 

( DEC-U-LBPIA-A-LA 



BASIC KERNEL V02-01 



I COPYRIGHT (C) 19T4 

( DIGITAL EOUIPMENI CORPORATION 

, MAYNARO, MASSACHUSETTS 01754 

! THE INFORHATION IN THIS DOCUMENT IS SUBJECT TO 

1 CHANGE "ITHOUT NOTICE AND SHOULD NOT ?E_C0N8TRUED 
( 
I 



A3 A COMMITMENT BY DIGITAL EQUIPMENT CORPORATION, 
DEC ASSUMES NO RESPONSIBILITY FOR ANY ERRORS THAT 
MAY APPEAR IN THIS OOCUHENT, 

1 THIS SOFTHARE IS FURNISHED TO PURCHASER UNDER A 
LICENSE FOR USE .ON A SINGLE COMPUTER SYSTEM AND 
CAN BE COPIED (HITm INCLUSION OF DEC'S COPYRIGHT 
I NOTICE) ONLY FOR USE IN SUCH SYSTEM, EXCEPT AS MAY 
I OTHERHISE 8E PROVIDED IN NRITING 8Y DEC. 

I DEC ASSUMES NO RESPONSIBILITY FOR THE USE 
I OR RELIABILITY OF ITS SOFTHARE ON EQUIPMENT 
( KHICH IS NOT SUPPLIED BY DEC, 



.GLOBL FTBL.BOMB 
.ASECT 



000034 .:34 



98 
99 

100 0034 
0036 

101 

102 

103 0046 

101 

105 

106 

107 0050 

108 
109 
110 



•IFNDF SOISK 

,1F0F SSTRNG 
010320 BOMB'010320 

.ENDC 

.IFNDF SSTRNG 
eOMe«0077a2 

,ENOC 

.ENDC 
010320 .HORD BOHB,0 

.ASECT 



000046 .3U6 



00016T 
000000G 



000001' 



.dORO FTBL 
,IFOF SLPS 
,IFDF SDIS 
, GLOBL DISPLY 
JMP DISPLY 



(BOMB VARIES IF ONE INCLUDES 

(STRINGS 

(ENTRY "ITM STRINGS 

(SSTRNG IS DEFINED 

(NO STRINGS 

(ENTRY HITHOUT STRINGS 

(SSTRNG NOT DEFINED 

(SDISK 

(SET UP THE TRAP ERROR VECTOR, 



(THE FUNCTION TABLE STARTS HERE FOR PTS. 



.ENDC 
,ENOC 
.END 



(SDIS 
(SLPS 



X^ 



PTSINT — PTS INTEBrACE MOOUtt 
STMSOL TABLE 



«T.lt MICRO »H02.«» lt.OCT.T« eil52l2« P«8E !♦ 



SONS • 8ie}2e e duplts ••••*• e 

*<oc • M«eg0 tciK • aeiVM 

toil) ■ aeiseg ton • gaoaae 

iSTRNGi 0aeeeg ivrti ■ »»t»tt 

ERRORS DETECTEOl a 
FREE CORE I 1826a. H0RD9 

PTSINT, GTLrLPl'PERRAR.GTL.RTSINT 



FTBt ■ •*••*• G 

scuocKi aaaaai 
SLP3 • aasaaa 
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TITLE PERPAR " PERIPHERAL SUPPORT PACKAGE PARAMETER MOOUtE. 

0EC-11.L8PAA.A.LA BASIC KERNEL V02-01 

COPYRIGHT (C) 1474 

DIGITAL EOUIPMENT CORPORATION 
MATNAHO, MASSACHUSETTS B1754 

THE INPORMATION IN THIS DOCUMENT IS SUBJECT TO 
CHANGE HITHOUT NOTICE AND SHOULD NOT BE CONSTRUED 
AS A COMMITMENT B» DIGITAL EOUIPMENT CORPORATION, 
DEC ASSUMES NO RESPONSIBILITV FOR ANY ERRORS THAT 
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MHICH IS NOT SUPPLIED BY DEC, 



I THE CONDITIONALS CONTAINED IN THIS MODULE AFFECT THE ASSEHBLY 
I OF THE FUNCTION TABLE MODULE •FTBL,-MAC", 
( TO OBTAIN THE DESIRED CONDITIONAL DEFINITION(S), 
I REMOVE (USING AN EDITOR) THE 
( SEMI-COLON APPEARING BEFORE THE CONDITIONAL, 
)SOISK>a (DEFINE FOR RT-ll 

,IFNDF SOISK 

oaaoea sstrng»o too not define for pts basic mithout 

(STRINGS,- defined FOR PTS vai HITH STRINGS 
■ENDC ( 



axe SLPSaa 

(SVia 

( 

( 

( 

( 



ooeeoa iaoco 

aoaeea sCLice 

aaaoaa soio>e 

OB'^aaa $ois«a 



, IFDF ILPS 



lENOC (ILPS 



aeaeaa svTii'O 



(DEFINE FOR LPS 

(DEFINE FOR LPS KITH VECTORS STARTING 

( AT 30a, DEFAULT SETTING IS VECTORS AT 

( 340, SET SV a ANY OTHER DISPLACEMENT IF 

( VECTORS START AT DISPLACEMENTS 

( OTHER THAN a OR 40 FROH 

) VECTOR 3Sa 

(INCLUDE A/D ROUTINES, 

(INCLUDE CLOCK ROUTINES, 

(INCLUDE DIGITAL 10 ROUTINES 

(INCLUDE DISPLAY ROUTINES, 



(FOR GT4e (GT44) 



^ 



PERPIR •• PERIPMERJl SUPPORT P« RT-ll H4CR8 VH»8-»» U«aCT.r« 8tlS>t«2 PIGE !♦ 



it 
5« 

60 
tl 
62 
64 
65 
66 
67 
6S 
64 
71 

n 

72 

7J 

7a 

75 

76 

77 

76 

7» 

8« 

81 

82 

6J 

84 

85 

86 

87 

88 

89 

41 

41 

42 

43 

44 

45 

46 

47 8»e08 

48 

44 

188 

18t 

182 

183 

184 

185 

186 

187 

188 

184 

118 

111 8888 
0881 
8802 
0803 
0004 



080880 tCLOCK«0 



iIFOP SVTll 

.ENOC 



tPOR STSTEN CkOCK (KNtU) 



.EOT 
.TITLE PT81.— BiSIC FUNCTION T18kE HOOULE 



8A8IC KERNEL V02>81 



DEC-ll>L8FTt>A-Lt 

COPTRISMT (C) 1473,1474 

OieiTHL EQUIPMENT CORPORATION 
HAVNAROf MASSACHUSETTS 01754 

THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO 
CHANGE KITHOUT NOTICE AND SHOULD NOT BE CONSTRUED 
AS A COHMITMENT 8T OIOITAU EQUIPMENT CORPORATION. 
DEC ASSUMES NO RESPONSIBILITY FOR ANY ERRORS THAT 
MAY APPEAR IN THIS DOCUMENT. 

THIS SOFTHARE IS FURNISHED TO PURCHASER UNDER A 
LICENSE FOR USE ON A SINGLE COMPUTER SYSTEM AND 
CAN BE COPIED (HITH INCLUSION OF DEC'S COPYRIGHT 
NOTICE) ONLY FOR USE IN SUCH SYSTEM, EXCEPT AS MAY 
OTHERHISE BE PROVIDED IN NRITINC BY DEC, 

DEC ASSUMES NO RESPONSIBILITY FOR THE USE 
OR RELIABILITY OF ITS SOFTNARE ON EQUIPMENT 
HHICH IS NOT SUPPLIED BY DEC, 



FTBLl 



112 



123 
183 
101 

114 



,GLOBL FTBL 

MUST INTERFACE PROPERLY MHEN LPS IS ALSO USED 



,CSECT 

,IFBF SVTll IGT48 

,GLOBL AGET,APNT,APUT,CONT,ERAS,ESUB,FPUT 

.GLOBL FIGR,FPUT,INIT,LPEN,RDOT 

,GL08L SCAL, STAT, DSTP, SUSP, TEXT, TRAK 

iGLOSL VECT, XGRA,YGRA, FIX, FREE 

.GLOBL NaSC,ON,OFF,SAVE 

.IFDF SOISK 

.GLOBL R8TR 

.ENOC ISOISK 

.IFDF SCLOCK 

.GLOBL riME.TIMR 

.ENOC ISCLOCK 

.ASCII /SCAL/ 



.NORO 



SCAL 



5 



./ 



'■1 
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113 


0006 


126 




0007 


105 




0018 


103 




0811 


124 


114 


0812 


808800G 


115 


0014 


122 




0015 


104 




8016 


117 




8017 


124 


116 


0020 


800800G 


117 


8022 


101 




0823 


120 




0824 


116 




8025 


124 


118 


8026 


000000G 


114 






120 


8030 


124 




8031 


111 




0032 


115 




8833 


105 


121 


0034 


080000G 


122 


8036 


124 




8037 


lit 




0840 


115 




8041 


122 


123 


0042 


000000G 


124 






125 


8044 


123 




0845 


124 




8846 


101 




0047 


124 


126 


0050 


000000G 


127 


0052 


124 




0053 


105 




0054 


130 




0055 


124 


126 


8056 


000000G 


124 


0060 


123 




0061 


125 




0062 


102 




806] 


120 


138 


0064 


000800G 


IJl 


0066 


105 




0067 


123 




0070 


125 




0071 


102 


132 


0072 


000000G 


133 


8074 


114 




00TS 


128 




0076 


105 




0077 


116 


134 


0100 


e00000G 


135 


0182 


116 




0103 


117 




0104 


123 




0105 


103 


136 


0106 


0800880 



.ASCII /VECT/ 



,»0R0 
.ASCII 


VECT 
/ROOT/ 


.MORO 
.ASCII 


ROOT 

/APNT/ 


,«ORD 
.IFDF 
.ASCII 


APNT 
SCLOCK 
/TIME/ 


,»0R0 
.ASCII 


TIME 
/TIHR/ 


.•ORD 
.ENOC 
.ASCII 


TIHR 
iSCLOCK 
/STAT/ 


.UORD 
.ASCII 


STAT 
/TEXT/ 


.tORO 
.ASCII 


TEXT 
/SUBP/ 


,HORD 
.ASCII 


SUSP 
/E3U8/ 


.MORO 

.ASCII 


E3U8 
/LPEN/ 


.HORD 
.ASCII 


LPEN 
/N08C/ 



y^ 



.HORD N08C 
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or 8118 


184 


, ASCII 


/DON/ 


8111 


117 






8112 


116 






138 811) 


888 


.STTt 


8 


u» eiH 


888888G 


.HORO 


ON 


148 8116 


117 


,>9CII 


/ON/ 


8117 


116 






HI 8128 


0888?e 


.NORD 


8 


til2 8122 


eaeseec 


.KORO 


ON 1 SECOND NAME 


11] 8124 


117 


.tSCII 


/OFF/ 


0125 


186 






8126 


186 






lll« 8127 


088 


.BTTE 


8 


145 8138 


888888G 


.NORD 


OFF 


146 8132 


124 


.4*cn 


/TRAK/ 


8133 


122 






8134 


181 






8135 


113 






147 8136 


888888G 


,aORO 


IRAK 


148 8148 


185 


.iseii 


/ERAS/ 


8141 


122 






8142 


181 






8143 


123 






14* 8144 


8888888 


.NORD 


ERAS 


158 8146 


111 


.tscii 


/INIT/ 


8147 


116 






8158 


HI 






8151 


124 






151 8152 


8e8888e 


.HORD 


INIT 


152 8154 


184 


, ASCII 


/D8TP/ 


8155 


123 






8156 


124 






8157 


128 






153 8168 


8888886 


.HORD 


BSTP 


154 8162 


123 


.iSCII 


/STOP/ (SECOND NAME 


8163 


124 






8164 


117 






8165 


128 






155 8166 


888888G 


.DORO 


DSTP 


156 8178 


IB" 


.iSCII 


/DCNT/ 


8171 


183 






8172 


116 






8173 


124 






157 8174 


888888S 


,NORD 


CONT 


158 8176 


183 


•ASCII 


/CONT/ (SECOND NAME 


8177 


117 






8288 


116 






8281 


124 






159 8282 


888888S 


.NORD 


CONT 


168 8284 


138 


.ASCII 


/XGRA/ 


8285 


187 






8286 


122 






8287 


181 






161 8218 


888888G 


.NORO 


X6RA 


162 8212 


131 


.ASCII 


/YGRA/ 


8213 


187 






8214 


122 







(c 



y'- 
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8215 


181 


163 


8216 


888888G 


164 


8228 


181 




8221 


187 




8222 


185 




8223 


124 


165 


8224 


888888G 


166 


8226 


184 




8227 


186 




8238 


111 




8231 


138 


167 


8232 


888888G 


168 


8234 


186 




8235 


111 




8236 


138 


16« 


8237 


808 


178 


8208 


00000eG 


171 


8242 


106 




8243 


122 




8244 


185 




8245 


105 


172 


8246 


888888G 


173 


8258 


181 




8251 


128 




8252 


125 




0253 


124 


174 


8254 


088888G 


175 


0256 


106 




0257 


111 




0268 


187 




8261 


122 


176 


8262 


■1800080 


177 


8264 


186 




8265 


120 




8266 


125 




8267 


124 


178 


8278 


088008G 


174 


8272 


184 




0273 


123 




8274 


181 




8275 


126 


188 


8276 


e88808G 


ISl 


8388 


123 




8381 


101 




0382 


126 




030] 


105 


lee 


8384 


00e8e8G 


183 






184 






1S5 






1S6 






U7 






188 






184 






198 






191 






102 







.MORO YGRA 
.ASCII /AGET/ 



.NORD AGET 
.ASCII /DFIX/ 



.HORO FIX 

.ASCII /FIX/ (SECOND NAME 



.BYTE 8 
.KORD FIX 
.ASCII /FREE/ 



.NORO FREE 
.ASCII /APUT/ 



.NORO APUT 
.ASCII /FIGR/ 



.*0R0 FIGR 
.ASCII /FPUT/ 



.NORO FPUT 
.ASCII /OSAV/ 



.NORO SAVE 

.ASCII /SAVE/ (SECOND NAME 



,NORD SAVE 

.IFDF SDI3K 

.ASCII /RSTR/ 
.NORD RSTR 

.ENDC (SDISK 

.ENDC (SVTll 



/< 



.IPDF SLPS 
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19J 

t9« 

US 
1*6 
l">7 
H« 
19» 
289 
281 
282 
283 

28a 

28S 

286 
287 
288 

289 
218 
211 
212 
213 
2111 
21S 



216 
217 
21S 
219 



228 
221 
222 

223 



220 
22S 
226 
227 
228 
229 
238 
231 



232 

233 

234 
23S 



236 

237 
238 
239 



• SLOBI. 
I 



8386 t2S 

8387 123 

8310 IBS 

8311 088 

8312 8880800 



8311 
831! 
8316 

8317 

8328 000800G 



122 

184 
102 



181 
103 
183 



8322 
8323 
8324 
832S 

0326 888088G 
I 
I 
I 



8338 181 
0331 104 
8332 103 
0333 088 

8334 080880G 



8336 
8337 
8340 
8341 



122 
124 
123 
888 



I 



8342 888808e 



U8E.R0B,tCC 

,IFDF tiOC 

,GL08L lOCRTS.UEO 

lENDC (StOC 

.IFOF SCI.K 

.SLOei SETR,$ETC,HISr>N«IT 

,ENOC lICLK 

.IFDF SDIO 
■GtOBk OIR>DOR>OR$ 
,GLOBL REl 
.ENOC llOtO 

,tFDF SDia 

.GLOBl CLRD,PUTO,OIS,F$H,DXy,OISPkV 

.ENOC IIOXS 



, ASCII 


/USE/ 


.BYTE 
.MORD 


8 

USE 


.tacii 


/ROB/ 


,8»TE 
.HORO 



ROB 


.ASCII 


/ACC/ 


.BYTE 
.HORO 


8 
ACC 


.IFOF 


SADC 


.ASCII 


/ADC/ 


.BYTE 
.NORO 


8 

AOC 


.ASCII 


/RT8/ 


.BYTE 
.HORO 




RT8 


.ASCII 


/UEO/ 



7 



JT 



.i^L. 
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0345 


105 






0346 


104 






248 0347 


008 


.BYTE 


8 


241 0350 


0000080 


.MORO 


LEO 


242 


1 






243 




.ENOC 


ISAOC 


244 


1 






245 


1 






246 


1 






247 




.IFOF JCLK 


248 


f 






249 8352 


123 


.ASCII 


/SETR/ 


8353 


185 






0354 


124 






8355 


122 






258 0356 


8880000 


.XORD 


SETR 


251 


1 






252 0368 


123 


.ASCII 


/SETC/ 


8361 


185 






8362 


124 






0363 


103 






253 0364 


8080000 


.HORD 


SETC 


254 


1 






255 0366 


118 


.ASCII 


/HIST/ 


0367 


111 






0370 


123 






0371 


124 






256 0372 


0808000 


,»0R0 


HIST 


257 


1 






256 B!7« 


127 


.ASCII 


/NAIT/ 


8375 


101 






0376 


111 






0377 


124 






259 0400 


0000800 


.aORO 


NAIT 


268 


1 






261 




.ENOC 1 


iSCLK 


262 


I 






263 


» 






264 


1 






265 




,IFOF 


SOIO 


266 


1 






267 0402 


184 


.ASCII 


/OIR/ 


0403 


HI 






0404 


122 






266 0405 


080 


.BYTE 





269 0406 


0808880 


.OORD 


OIR 


270 


» 






27t 8410 


184 


.ASCII 


/DOR/ 


0411 


117 






8412 


122 






272 8413 


000 


.BYTE 


8 


273 8414 


0000800 


.aORO 


DOR 


274 


1 






275 84|6 


184 


.ASCII 


/ORS/ 


8417 


122 






8428 


123 






276 0421 


000 


.BYTE 


8 



.A 



r- 
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277 laiz 


000000S 


,NORO 


»RS 


27* 


1 






2T» a<l2a 


122 


.ASCII 


/REU 


)<I2S 


105 






01126 


U4 






2ae 0127 


000 


,B»TE 


a 


201 01130 


00000eG 


.HORO 


REL 


202 


t 






203 




• ENDC 


ISOIO 


20« 


t 






205 


t 






200 


1 






207 




,irof 


SDIS 


200 


t 






20« 0412 


103 


.ASCII 


/CIRO/ 


011]] 


114 






003a 


122 






mis 


104 






290 0030 


0000006 


.DORO 


CIRD 


291 


1 






242 0*«0 


120 


.ASCII 


/PUTO/ 


044 1 


125 






0442 


124 






044] 


104 






2«) 1444 


000000C 


.KORO 


PUTD 


294 


1 






29S 044b 


104 


.ASCII 


/OIS/ 


0447 


Ul 






04J0 


123 






296 0451 


000 


.BYTE 





297 0452 


0000008 


.KORO 


DIS 


290 


1 






299 0454 


106 


.ASCII 


/fSH/ 


0455 


123 






0456 


110 






300 0457 


000 


.BYTE 





301 0460 


0000006 


.WORD 


FSH 


]02 


1 






30] 0462 


104 


.ASCII 


/OXY/ 


0463 


130 






0464 


131 






304 0465 


000 


.BYTE 





30S 0466 


000000G 


.aORD 


OXY 


306 


1 






307 




,ENOC 


ISDIS 


300 




.ENOC 


PSLPS 


309 0470 


000000 


.HORO 





]>0 


000001' 


.END 





(END OF THE BASIC FUNCTION TABLE. 
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ACC • •••••• G 

APNT > t..««« G 

CONT • •••... G 

OISPLYa •••••• G 

DSTP a «•***« 6 

ESUB a •••••• G 

FPUT a •••••• G 

FTBL 000000RG 

LED a *•***« G 

OFF a ****** G 

ROB a *«***• G 

RTS a •**••• G 

SETC a ...... G 

SUSP a ...... G 

TIMR > ...... G 

VECT a ...... G 

YGRA a ...... G 

ICLOCKa 000000 
SLPS 



ABC a ...... G 

APUT a ...... G 

OIR a ••..•• G 

OOR a ...... G 

OXY a ...... G 

FIGR a ...... G 

FREE a ...... G 

HIST a a..... 6 

LPEN a ...... G 

ON a .....a G 

ROOT a ...... G 

SAVE a ...... G 

9ETR a ...... G 

TEXT a ...... G 

TRAK a ...... G 

WAIT a *.*... G 

SADC a 000000 

SOIO a 000000 
SSTRNGa 



AGET 

CLRO 

DIS 

DRS 

ERAS 

FIX 

FSH 

INIT 

NOSC 

PUTO 

REL 

SCAL 

STAT 

TIME 

USE 

XGRA 

SCLK 

SDIS 

SVTll 



...... G 

...... G 

...... G 

...... G 

.*.**. G 
...... G 

....** G 

...... G 

.a.... G 

...... G 

...... G 

...... G 

...... G 

•....• G 

...... G 

...... 6 

000000 
000000 
000000 



. ABS. 000080 000 
000472 001 
ERRORS OETECTEDl 
FREE CORE! 19001. HORDS 

FTBL.GTL.LPlaPERPAR.GTL.FTBL 



IP90 vet-ei 
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TITLE LPSe VBl-81 

.SBTTL LPS HIIN KERNEL MODULE •■ 

OeC>ll«LBEXt-B«L«t BASIC KERNEL VIJ-Bl 

COPYRIGHT (C) 19T5,1'T« 

DIGITtL EQUIPNENT CORPORtTION 
HiVNARD) MASSACHUSETTS 01754 

THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO 
CHANGE MITHOUT NOTICE AND SHOULD NOT BE CONSTRUED 
AS A COMMITMENT BV DIGITAL EQUIPMENT CORPORATION, 
DEC ASSUMES NO RESPONSIBILITV FOR ANY ERRORS THAT 
MAY APPEAR IN THIS DOCUMENT, 

THIS SOFTWARE IS FURNISHED TO PURCHASER UNDER A 
LICENSE FOR USE ON A SINGLE COMPUTER SYSTEM AND 
CAN BE COPIED (NITH INCLUSION OF DEC'S COPYRIGHT 
NOTICE) ONLY FOR USE IN SUCH SYSTEM, EXCEPT AS MAY 
OTHERHISE BE PROVIDED IN HRITINS BY DEC, 

DEC ASSUMES NO RESPONSIBILITY FOR THE USE 
OR RELIABILITY OF ITS SOFTHARE ON EQUIPMENT 
NHICH IS NOT SUPPLIED BY DEC, 



WRITTEN 8YI RICK HULLY 



FEB, 
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LPS0 V0f0t 
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I 
2 

i 

4 
5 

6 
7 

a 

10 

11 
12 
IJ 
14 
15 
16 
17 
18 
19 
20 
21 
22 
2} 
24 
25 
26 
27 
28 
29 
}0 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 



47 
48 
49 
50 
51 
52 
53 
54 
55 



THE FOLLOWING COMMON SUPPORT ROUTINES EXIST IN THIS MODULEl 

I 

POLENT • ENTER POISM MODE OPERATION 

CKCMGN • POLISH ROUTINE TO CHECK NEXT TOKEN EQEAL TO 

.COMMA AND THEN FETCH THE NEXT FLOATING 

POINT NUMERIC FROM THE INPUT STRING, 
GETNUM . POLISH ROUTINE TO FETCH A FLOATING POINT 

NUMERIC FROM INPUT STRING, 
SAVREG - POLISH ROUTINE TO SAVE R0, R2 AND RJ 

ON THE STACK, 
SAVFAC - POLISH ROUTINE TO SAVE THE FAC ON THE 

STACK, 
SAVINT • POLISH ROUTINE TO SAVE ONLY THE INTEGER 

PORTION OF THE FAC ON THE STACK, 
RESREC - POLISH ROUTINE TO RESTORE R3, R2 AND 

R0 FROM THE STACK, 
INTST - POLISH ROUTINE TO INTEGERIZE FAC AND CHECK 

ITS RANGE AGAINST A GIVEN VALUE, 
FLOAT • ROUTINE TO FLOAT A 16 BIT UNSIGNED INTEGER 
ENTERP • ROUTINE TO ENTER POLISH MODE FOR ONE ROUTINE 

ONLY AND THEN EXIT BACK TO CALLER, 
BUFRE8 - POLISH ROUTINE TO RESET SUFFER POINTERS TO A 

CIRCULAR BUFFER, 
GETV • POLISH ROUTINE TO CALCULATE ADDRESS OF 

VARIABLE SPECIFIED IN THE INPUT LINE, 
GETSUF - POLISH ROUTINE TO FETCH NEXT VARIABLE FROM 

INPUT LINE, TEST FOR AN ARRAY NAME AND 

CALCULATE THE POSITION IN THE ARRAY FROH 

SUBSCRIPTS WHICH MAY BE GIVEN, 
CKSUF ■ POLISH ROUTINE TO CHECK IF ARRAY ADDRESS 

SPECIFIED IN VARSAV(R5) HAS BEEN DEFINED BY 

A 'USE* COMMAND. 
GETOAT • ROUTINE TO FETCH DATA INTO USER'S BUFFER 

AND TEST FOR NON-EXISTANT DATA. 
STODAT • ROUTINE TO STORE DATA INTO USER'S BUFFER 

AND TEST FOR DATA OVERRUN, 
GETADD - ROUTINE TO CALCULATE ARRAY ADDRESS FROH 

ARRAY NAME GIVEN BY CALLER, 
CKLPAR - POLISH ROUTINE TO CHECK NEXT TOKEN 

EQUAL TO A LEFT PARENS, A TEST 

IS THEN HADE TO INSURE THAT WE STILL HAVE 

ROOM LEFT TO WORK WITH, 
CKCOHA • POLISH ROUTINE TO CHECK NEXT TOKEN 

EQUAL TO A .COMMA, 
STORXT - COMMON EXIT ROUTINE TO STORE FAC IN VARIABLE 

SET UP IN VARSAV(R5), CHECK LAST TOKEN EQUAL 

TO A RIGHT PARENS (ALTERNATE ENTRY POINT - 

NAMED CKRPAR), AND RETURN TO THE BASIC 

INTERPRETER, 
CKRPAR . ROUTINE TO CHECK LAST TOKEN EQUAL TO A 

RIGHT PARENS AND RETURN TO THE BASIC 

INTERPRETER, 
CONBCD • ROUTINE TO CONVERT BCD TO BINARY 
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1 
i 

I 

4 
S 

» 
7 

a 
« 

11 
li 

13 
t« 
15 
It 
IT 

la 
i« 

2* 

21 
22 
23 
24 
25 
26 
27 

2a 

24 

3a 

31 
32 
33 



.aSTTL PROtRlH SLOBtkS 

EkOStLa REOUXRED FOR CONMUNIOTION MITN THE BnaXC 
INTREPRETER. 

.ELOaL ERRP0L<ERRSVN,ERR*R8 

iSUOaU EVtL.SETVtRtaTOVtR 

.GLOeL INT,.COHM«,.RP«R 

.GLOBL NUHaGN).I.P«R 

GL0a>L3 REQUIRED FOR CONnUNICtTIONS HITH THE VtRIOUa 
LPa MODULES, 

.GLOaL TtaLEiHtRRtV.FLOiT 

.GLOBL POLENT>GET«D0>GETHUH 

.GLOBL CKCMGN.INTST.GETV 

.GLOBL GETBUFiRESStV,ERNOR 

.GLOBL 3T0RXTiCKRPtR,ERSUF 

.GLOBL CKCOHtiENTERP.aTOOtT 

.GLOBL GETDlT.RTaON, ORSON 

.GLOBL S«yER2>S«VFAC,RESTR2 

.GLOBL RESTaR.HlSTON.BCDON 

.GLOBL CONBCOfBUFREStORSHPT 

.GLOBL StVINT.ORSBUF 

GLOBtLS REQUIRED FOR COMMAND PROCESSORS 

.GLOBL USE.RDB.ACC 
GLOBALS FOR DEVICE ADDRESSES 

.GLOBL LPSADiLPSDR 
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.SBTTL REGISTER ASSIGNMENTS AND EOUATES 



5 

6 
7 
S 
4 

IS 

11 

12 

13 

14 

15 

It 

17 

IS 

14 

20 

21 

22 

23 

24 

25 

26 

27 

2a 

24 
30 

31 
32 

33 

34 
35 

36 

37 
3S 
34 

40 00000 
00002 
00004 
00006 
00010 
00012 

111 ggeia 

000U 
00020 

00022 
00024 
00026 
42 00030 
00032 
00034 
00036 



0«0«ea 
000001 

800002 
000003 

000004 
000005 
000006 
000007 



I 
I 

N0 
Rl 
R2 
R3 
R4 
R5 
SP 
PC 

I GENERAL EQUATES 



177776 
000207 
000134 



PS 

RETURN 
POLRET 



• 2 

207 
134 



000022 

000024 
000026 
000040 
000042 
000062 



000000 
000002 

000004 
000006 
000010 
000012 



t BASIC USER'S EQUATES 

t 

22 

24 
26 
40 
42 
62 



V4RSAV > 

SSISAV > 

9S2SAy < 

FACl • 

FAC2 > 

T3 • 

I 

I BUFFER DESCRIPTOR EQUATES 

I 

BEG • 

END « 2 

PUT • 4 

GET • 6 

BAD • 10 

DEL • 12 

) BUFFER DESCRIPTOR TABLE 



000005 NARRAV*5 
000000 TABLEI 

000000 



.HORD 0(0(0>0t0i0 



000000 ,HORD 0.0f0>0f0,0 

000000 
300000 



000000 
000000 



,HORO 0,0,0,0.0.0 



IPS • PROCESSOR STATUS HORO 
1207 • RTS PC 
1134 • JMP •(R4)» 



IVAR SAVE FOR ASSIGNMENT 
(SSI SAVE FOR ASSIGNMENT 
tSS2 SAVE FOR ASSIGNMENT 
(HIGH ORDER FLOATING VALUE 
ILDW ORDER FLOATING VALUE 
(SHORT TERM TEMPORARY 



(OFFSET TO BEGINNING OF BUFFER OINIER 

(OFFSET TO END OF BUFFER POINTER 

(OFFSET TO PUT DATA POINTER 

(OFFSET TO GET DATA POINTER 

(OFFSET TO BAD DATA FLAG 

(OFFSET TO DISPLAY DELTA X 



(CURRENT NUMBER OF ARRAY ENTRIES 

( SET AT 5, 

(6 WORDS PER ENTRY 



00042 000000 
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Hi eeeau 


000000 




.«0R0 





MtH 


Ittttt 








lease 


000000 








eaess 


000000 








eeesa 


000000 








eee56 


000000 








on eee6e 


000030 




.HORO 





eee62 


000000 








eeebii 


000000 








eee66 


000000 








ee«7e 


000000 








Bea7J 


000000 








us 




t 






116 




1 NaN>REENTR«N7 


V 


a? 




( 






«a aeen 


000 


RTSONI 


,BTTE 




«9 00075 


000 


DRSONI 


.BYTE 




50 00076 


000 


BISTONi 


.BYTE 




51 00077 


000 


BCDONI 


.BYTE 




52 00100 


000000 


DRSBUFi 


,»0R0 




5} 










51 00102 


000000 


0R5NPTI 


.IIORD 





55 




1 







0>0I0, 0(0(0 



0>0i0>0,e>0 



fRTt OPERATION IN PROGRESS 

lORS OPERATION IN PROSRESS 

(HIST OPERATION IN PROGRESS 

|BCO/BIN*RY SNITCH 

tORS COHMAND (BUFFER DESCRIPTOR 

t ADDRESS) 

lORS COHMAND (NBR OF POINTI) 



LPS0 V01-01 
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5 

6 
7 

a 

9 I PURPaSEl 

10 
It 

12 
1) 

ID 

15 

16 

17 

IS 

H 

20 

21 

22 

23 

2a 001011 

25 001011 



.SBTTk 'USE' COMMAND PROCESSOR 



"USE" COMMAND PROCESSOR 

BASIC FORMi CALL "USE»(BUFC,9UF2 t, ,,,. I.BUFNl 11 ) 

DEFINE BUFFER AREAS FOR USE MITH THE RTS, HISTi 
DRS, ROB. CI.RO, PUTD> OIS, FSN. AND DXY 
COMMANDS. THIS COMMAND DEFINES THE SPECIFIED 
ARRAYS, BUFI, BUF2( ETC..,, AS CIRCUUAR 
DATA ARRAYS. ANY NUMBER OF BUFFERS MAY BE 
SPECIFIED, BUT ALL MUST BE GIVEN IN A SINGLE 
•USE" STATEMENT. CURRENTLY THE SYSTEM BILL 
SUPPORT UP TO 5 OF THESE AREAS, HOWEVER, THIS 
HAY BE CHANGED AT ANY TIME BY REASSEMBLY, EACH 
BUF DEFINED MUST HAVE PREVIOUSLY BEEN DEFINED 
IN A "DIM" STATEMENT, THE FOLLONING FORM, HONEVER, 
IS LEGALI 

10 DIM A(50),B(100),C(20S) 

20 CALL ■USE>(A,A(25),B,C) 



0011767 
0012111 



JSR 



000112' 
0127116 
000005 
0127a6 



26 
27 
28 

29 00110 

30 00112 

31 00116 



32 00122 0011767 USE3I 

001070 
33 
in 
35 
36 
37 



00126 011602 USE2I 
00130 016522 
000022 

00134 010322 

00136 016522 

000022 
001112 016522 

000022 
00U6 0eS022 
00150 005022 
00152 010216 
00I5« 005762 

177766 

00160 0011120 
^0162 022702 



.♦2 

MOV 



MOV 
MOV 



MOV 
MOV 
MOV 

CLP 
CLR 
MOV 
7S7 



BEQ 

CMP 



lENTRY POINT TO PROCESSOR 
PCPOLENT lENTRY POLISH MODE AND CHECK 

I FOR ENOUGH AREA TO NORK 
I HITM AND THAT FIRST TOKEN 
I IS INDEED A LEFT PARENS, 
lEXIT POLISH HODE 
•NARRAY,>(SP) (DNARRAY'S ALLOHED. 

•TABLE, -(SP) INHERE DEFINITIONS HILL END UP 

PCGETADO IGET ARRAY FROM INPUT LINE AND 

t CALCULATE ITS ARRAY ADDRESS. 

t THEN CHECK TO HAKE SURE ITS 

I NITHIN RANGE. 
(SP),R2 (GET TABLE ADDRESS 
VARSAV(RS),(R2)* iSAVE BEGINNING ADDRESS OF 

I ARRAY IN TABLE 
iSAVE ENDING ADDRESS OF ARRAY 
I IN TABLE. 
(R2)» iRESET GET AND PUT POINTERS 



R3,(R2)* 
VARSAV(R5), 

VARSAV(RS), 

(R2)* 
(«2)t 
P2,(SP) 
-12(R2) 



uSEa 
•TABLE4ia,R 



ICLEAR BAD DATA FLAG 
(CLEAR DELTA X INCREMENT 
(SAVE CURRENT TABLE POSITION 
(MERE "E ZEROING THE REST OF 

( THE ARRAYT 

(YESl CONTINUE ZEROING THEN 

ICHECK IF PREVIOUSLY DEFINED ARRAY 



LPse iit-ti 
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s« leu* 

SI 
S2 

53 Mt7g 



511 0ei7« 



56 

57 «a206 

5S 

54 M2ta 

60 002111 
tt 0021b 

*2 00222 

»J 0022* 

*5 00230 

t* 00232 

67 
*0 
*f 0023* 

70 00242 

71 002411 

72 0024* 

73 00250 

74 00254 

75 



000014* 
001415 



02*2*2 

177752 
1777** 

001011 
0262*2 
17775B 
1777*4 

101005 

01*203 

1777*4 

005743 

0103*2 

177752 

0053** USE4I 

000002 

003003 

022*2* 
0001*7 
001130 



122127 USeil 

000000S 

001727 

005301 

005003 

0050*5 

000022 

000724 



BEQ 

CMP 



BNC 
CMP 



MOV 



7ST 
MOV 



DEC 

set 



CMP 
JMP 



BES 
DEC 

CLP 

CkP 



USE4 



I HIS PROK S*ME DIMENBIONEO 
I tPPAr. IBT EN7Rr IS NOT 

) CHECKED. 



•2*(P2),<12(R2) 



U3E4 |*RPAVS NOT 5*ME, CHECK IP THE 

-3a(R2),-14(R2) I LARGER ONE IS THE PREVIOUS 



USE4 
-1*(R2)>R3 



-(R3) 
R3.-2*<R2) 



2($P) 

U9E1 



(8P)»,<»P>* 
CXRPtR 



(Rt)*t'.COMMi 

U8E3 

Rl 

R3 

V>RS*V(RS) 

USE2 



I ONE, 

IVESI FORGET IT THEN, USER MUST 
I HANT TO OVERiV HIS 04T4 AREAS, 

(DEFINE PREVIOUS ARRAY'S END ADDRESS 



TO BE 2 LESS THAN THE START 
OF THE NEH ARRAY, 



lANV MORE SPACE AVAILABLE? 

(TESl CHECK NEXT TOKEN FOR A 
I .COMMA OR RIGHT PARENS, 

(CLEAN UP STACK 
(ALL DONE, CHECK FOR RIGHT 

I PARENS AND RETURN TO 
I THE BASIC INTREPRETER, 
(NEXT TOKEN A ,COMMAT 

IVESI GET NEXT ARRAY NAME 
(BACK UP TO UNCLASSIFIED TOKEN 
(CLEAR REST OF TABLE 
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1 
2 
3 

4 
5 

* 

7 

S 

9 

18 

11 

12 

13 

14 

15 

1* 

17 

IS 

l» 

20 

21 

22 

23 

24 

25 

2* 

27 

28 

29 

30 

31 

32 

33 

34 

35 

3* 

37 0025* 

3S 0025* 

39 

40 
41 

42 002*2 

U3 

uft 

45 002*4 

4* 002** 

47 00270 

40 00272 

49 00274 

50 0027* 

51 00302 
52 

53 00304 

54 00310 



,SBTTL 'ROB' COMMAND PROCESSOR 



•ROB* COMMAND PROCESSOR 

BASIC FORHl CALL •RDB>(BUF,VAR) 

PURPOSEl RETURN THE NEXT DATA POINT FROM THE SPECIFIED 

BUFFER, RETURNS VALUES OF *5535 » VAR >• 
FOR GOOD DATA, BAD DATA (DEFINED AS OVERRUN) 
IS RETURNED AS OUTSIDE THE SPECIFIED RANGE 
(VIZ,, NEG, FLOATING POINT MINUS ONE), IF NO 
DATA EXISTS YET, I,E,, IT'S WAITING FOR « NEK 
SAMPLE, A FLOATING POINT MINUS TNO MILL BE 
RETURNED. 

NHEN THE REFERENCED BUFFER REFERS TO 
ANALOG SAMPLING (RTS FUNCTION), THE VALUES 
RETURNED ARE IN THE RANGE 4095 >• VAR >• 0, 

HHEN THE REFERENCED BUFFER REFERS TO A CLOCKED 
HISTOGRAM SAMPLING (HIST FUNCTION),, THE VALUES 
RETURNED ARE IN THE RANGE *5535 » VAR » 0, 
THESE VALUES ARE EITHER THE NUMBER OF TICKS 
ACCUMULATED OR THE NUMBER REHAINING DEPENDING 
ON THE CURRENT CLOCK NODE, 

HHEN THE REFERENCED BUFFER REFERS TO A DIGITAL 
I/O OPERATION (DRS FUNCTION), A VALUE BETWEEN 
*5535 >■ VAR >« IS RETURNED FROM THE NEXT 
POSITION IN THE SPECIFIED BUFFER, 

IN ALL CASES, A FLOATING POINT MINUS ONE 
IS RETURNED "HEN THE BUFFER IS OVERRUN, 



0047*7 
001042 



000702' 



0003**' 
001352' 
000*5*' 

000274' 

012*02 

0047*7 

000454 

103402 



PCPOLENT 



♦SAVER2 

«CKCOMA 

»GETV 

.t2 

HOV 

JSR 



(SP)»,R2 

PCGETOAT 



0047*7 
000234 
0001*7 RDBK 



8CS Roai 
JSR PC, FLOAT 
JHP STORXT 



(ENTRY POINT TO PROCESSOR 
(ENTER POLISH MODE AND CHECK 

( FOR ENOUGH AREA TO 'ORK 

( WITH AND THAT FIRST TOKEN 

( IS INDEED A LEFT PARENS, 

(GET BUFFER ADDRESS FROM COMMAND STRING 

I AND CHECK IT AGAINST THE 

( DEFINITION TABLE, 

(SAVE DESCRIPTOR ADDRESS ON STACK 

(CHECK NEXT TOKEN EQUAL TO A COMMA 

(GET VARIABLE ADDRESS, 

(EXIT POLISH MODE 

(RESTORE DESCRIPTOR ADDRESS 

(GET DATA FROM ARRAY SPECIFIED BY R2 

ICS MEANS R3 IS RETURNING AN 

( ERROR CONDITION, 

(FLOAT THE 1* BIT UNSIGNED INTEGER 

(SAVE FAC IN PREVIOUSLY OPENED 



LPsa v«i>ei 
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5S 
S6 

57 



MUO* 



VtmtBLEt CHECK FOR ■]*> <N0 
RETURN TO THE BOIC INTERRRETER. 



LP90 VSl-Bl 
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I 
2 
3 

II 

5 
6 
7 

a 

9 

te 
11 

12 
13 

U 

15 003ia 

16 003111 

IT 

19 

19 

20 00328 

21 

22 

23 00322 

211 003211 

25 00326 



26 
27 

28 003311 



,9BTTl 'tec COHMtNO PR0CE9S0R 



•tec* CONHtND RR0CE9S0R 
B<9IC FORMi CALL "HCC'IBUF) 



PURP09EI 



0011767 
0010011 



0006110' 
000326* 

012762 

0001100 
000010 



000137 
001366' 



PC.POUENT 



iCCE99 ENTIRE BUFFER 'BUF', THt9 CQMNtNO RESETS 
<LL BUFFER POINTERS TO «|.LOH FULL ACCESS TO 
THE »RR«Y »U THE "ROB" C0HH4N0, THE "PUTO" 
POINTER IS PL4CE0 AT THE END OF THE ARRAY AND 
THE 'ROB* POINTER IS PLACED AT THE BEGINNING, 

(ENTRY POINT TO PROCESSOR 
(ENTER POLISH NODE AND CHECK 



( FOR ENOUGH AREA TO NORK 
I HITH AND THAT FIRST TOKEN 
( IS INDEED A LEFT PAREN9, 
(GET BUFFER ADDRESS FROM COHHANO 
( AND CHECK IT AGAINST THE 
( DEFINITION TABLE, 
(RESET BUFFER POINTERS 
(LEAVE POLISH NODE 
(SET BAD ID INDICATING NEXT PUT 



tBUFRES 
,*i 

HOV II1I00,BAD(R2) 



29 
30 
31 



( BEFORE ANOTHER GET HILL CAUSE 

( OVERLAY OF GOOD DATA, 

(HAKE SURE LAST TOKEN IS A •)' AND 



RETURN TO THE BASIC 
INTERPRETER, 



LPse V0I 


•01 1 


"T-H M4CR0 VM02-0* U-0CT>74 0115*112 P»G£ « 


I 

2 
) 

a 

5 






1 
1 


iSSTTL CKCHGN AND 6ETNUM 






1 

1 POLiai' 


1 ROUTINE TO CHECK NEXT TOKEN EQUAL TO A .CQHHA 


k 






I «ND THtN FETCH TMC >I««T FLOATING POINT NUMERIC FRCH INPUT 


7 
S 

9 

10 

il 






1 STRINC 


i. 






1 ROUTINE IS CALLED IN POLISH MODE 






1 REGISTERS USEDl EV4L USES R0, l«2> «N0 R3 


12 






1 


Rt IS SUMPED PAST VARIABLE 


IJ 






> 


RESULT IS RETURNED IN FAC 


lO 






1 




15 


e03a0 




CKCH6NI 




I* 


003110 


122127 

B0eev0G 




CMPS (R1)*,«,C0HMA tCHECK NEXT TOKEN EOUAL TO 


17 








1 A iCOHHA, 


1» 


00344 


001402 




BEQ 6ETNUH iTESl GET NUMERIC NON 


l» 


0034* 


000137 
0000006 




JMP PaERRSTN tSTNTAX ERROR 


20 

21 
22 






1 


lAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA 






1 


'••••••••••••••••••••••••*••••••••••••••••••»•••••"•" 


21 






* POLISH ROUTINE TO FETCH t FLOATING POINT NUHERIC FROH 


2« 






1 INPUT 


STRING, 


25 






1 




26 






1 ROUTINE IS CALLED IN POLISH MODE 


27 






1 




2S 






1 REGISTERS USEOl EVAL USES R0, R2, AND R3 


2* 






1 


Rl IS BUMPED PAST VARIABLE 


» 








RESULT IS RETURNED IN FAC 


31 






1 




)2 


00352 




GETNUHi 




31 


00352 


004737 
000000E 




JSR PC, ••EVAL (GET NUHERIC 


3« 


003St 


103401 




BCS ERARG (ILLEGAL ARG TTPE 


35 

3k 

37 


003t0 


000134 




POLRET (RETURN IN POLISH MODE 


00342 


000137 


1 

ERARGI 


JMP MERRARG (ILLEGAL ARG TVPE 






000000G 






30 






1 
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t ( .SBTTL SAVE/RESTORE R2 AND FAC (8AVER2,SAVFAC, RE8TR2) 

2 I ...... 

5 ,*•«•••••»•••••«•••••*••*••»•••••••••••••••••••••••*•••••••* 

4 t 

5 ( POLISH ROUTINES TO SAVE/RESTORE REGISTER R2 OR 
* ( THE FAC ON THE STACK. 

B I ALL ROUTINES ARE CALLED IN POLISH MODE 

» I 

10 ( REGISTERS USEDl ONLY THE STACK 

11 ( 

12 003** SAVER2I 

13 003** 01B24* NOV R2,-(SP) (SAVE R2 ON THE STACK, 

14 00370 aeeu« polret (Return in polish mooe 

15 ( 

I* 00372 SAVFACI 

17 00572 01*54* MOV FAC1(R5),-(5P) (SAVE THE FAC ON THE STACK 

000040 
IS 0037* SAVINTI 
14 0037* 01*54* MOV FAC2(R5),-(SP) 

20 00402 000134 POLRET (RETURN IN POLISH MOOE 

21 I 

22 00404 RESTR2I 

23 00404 012*02 MOV (SP)*,R2 (RESTORE R2 FROH THE STACK 

24 0040* 000134 POLRET (RETURN IN POLISH MODE 

25 ( 



LPse vgt>ei rt-u h>cro vH«2.a« i6<acT>Ti «tis*ti2 Ptee ta 



eeaaie 



IB ee'U 

11 tlDli 

U 90422 

13 seaja 
l« 

15 eea26 

16 0g<i26 

17 ge«l0 
la 0e«}2 

14 0aa]a 

20 



010216 
016602 
000002 

010066 
000002 
0t0}«6 
010207 



I 
t 

l« 
I 

I SOUTI 
I RETUR 
I 
ReGStVl 



.SBTTL INTERRUPT RESI9TER 8*VE/REaT0RE ROUTINCa 



NE8 TO SIVE/RESTORE R0> R2 <N0 R} ON STtCK AND 
N TO INTERRUPTED PROSRAM, 



HOV 
HOV 



MOV 

NOV 



012603 

012602 
012600 
000002 



RESTORl 



MOV 
MOV 
MOV 
RTI 



R2.-(SP) 
2(3P),R2 



R0f2(8P) 



R3,-{9P) 
R2.Pe 



(8P)t,Rl 
(9P)«,R2 
(9P)«.R0 



|PU8H R2 ON 9TACK 
IGET PC PROM CAtl 



INO" PUT RB THERE 



I9AVE RI 

(RETURN TO CALLER 



IRE9T0RE R} 
|Re9T0RE R2 
IREBTORE RB 
IRETURN TO INTERRUPTED PROSRAM 



LP! 


V0 


• 91 R 


1 
2 






3 






II 






5 






6 






7 













9 






10 






11 






12 






13 






14 


00436 




15 


00436 


004737 
000000G 


16 


00442 


005765 

000040 


17 


00446 


100433 


18 


00490 


001416 


19 


00452 


026527 
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,9BTTL IN9T 



P0LI9H ROUTINE TO INTEGERIZE FAC AND CHECK IT9 
RANGE AGAIN9T A GIVEN VALUE, 



ROUTINE 19 CALLED IN POLISH MODE 



REGI9TER9 U9EDI 



20 

21 00460 

22 90462 



23 00470 

24 00474 

25 00502 

26 00596 



27 

28 90514 

21 00516 



39 

31 00524 

32 09526 



33 00534 
34 

35 09536 

36 09536 

37 00540 
00541 
00542 

38 00543 
39 



044209 

103022 
156565 
000940 
090942 
00036S 
090042 
052765 
100090 
099042 
005065 
009949 
926575 
909942 
909962 

101919 

062765 
900002 
000062 

000134 
012765 
177777 
090042 
000762 



IN3t 

INll 



J9R 

T9T 

8MI 
SEQ 

CMP 



BHI3 
3ISB 



SHAB 
BIS 

CLR 
CMP 



BHI 
ADD 



194190 
116 
117 
122 



R9 ONLY 

T5(R5) MUST POINT TO RANGE ELEMENT 

CT3(R5) 19 BUMPED BV 2 AFTER CALL] 



PC.PtlNT I INTEGERIZE REBULT 

FAC1(R5) 

ERNOR (NEGATIVE NUMBER 19 ILLEGAL 

INI lALREADV IN AN INTEGER FORM 

FACl(R5),«a429B |TE9T NUMBER OUT OF RANGE 



I (I.E. >65S35). 
IN2 |VE9I BET EQUAL TO MAX (6S53S) 

FAC1(R5).FAC2(RS)I NUMBER MU9T BE A 16 BIT INTEGER 



FAC2(R5) ( TO GET THIS FAR. CONVERT IT 
■10909B,FAC2(RS) I TO ONE WORD THEN. 

FACt(R5) 

FAC2(RS),«T](R5) iNUMBER IS IN 16 BIT FORM 



ERNOR 
«2.T3(R5) 



POLRET 

MOV «-l,FAC2(R5) 



TRAP 
.ASCII /NOR/ 



I NOM, MAKE SURE ITS IN RANGE. 
iNUMBER TO LARGE. "ARG ERROR' 
IBUMP TO NEXT RANGE FOR NEXT 



I CALL. 

(RETURN IN P0LI8H MODE 

(SET OVERPLON EQUAL TO MAX (6S53S). 



.BYTE 9 



\ 



LP»» y»i-ei 


i)T>it HtcRO VMa2«af u«0CT>7a 


atl56lt2 PASE 12 


1 

] 
• 
5 

k 
7 




.SBTTL 


FLOAT 


• 


1 ROUTINE TO FLOAT 1 tt SIT UNSIONEO INTCGCR 


1 REClaTCRS USED! R3 ON CALL MUST HtVE 16 BIT NUMBER 


a 








TO FLOAT. 


It sesaa 






FAC HAS 


FLOATED RESULTED 


FLOAT 1 








12 sesaii geSTSI 




T8T 


R3 


|I6 SIT NUMBER? 


13 easat ieaat7 




BPU 


FLOAT! 


|N0| NUMBER OK AS IS THEN 


ta aassa 0tai«» 




NOV 


R3>-(8F) 


(PUT NUMBER ON STACK 


t5 aa«5i iDiiit 




BtC 


«iaaaaa,(BP) 


lIBNORE MOST SISNIF, BIT 


laaaae 










1* aasst lasai* 




CkRB 


tSP) 


(CLEAR OUT LEAST SIGNIF, 


17 aas*a aaa3i* 




BHAB 


(BP) 


(NOM MOVE MOST SISNIF, TO RIGHT 


IS 








t BYTE 


|4 aaski gti7u 




A 00 


«4«aaat(BP) 


(ADO IN EXPONENT 


aaaaaa 










2a eiS6fe >i2t*s 




NOV 


{SP)»,FACltRS) 


IBAVE MOST SIGNIF, AND EXPONENT 


aaaa«« 










2t aas72 aiest* 




NOV 


R3.><BP) 


INON HORK ON LEAST SIGNIF, 


22 aasra aaait* 




BHAS 


(BP) 




23 aas7t lasai* 




CLRB 


(BP) 


ICLEAR OUT THE REMAINING LEAST 


2a 








1 SIGNIF, S BITS, 


25 aa6aa at 26*5 




MOV 


(BP)*,FAC2(R5) 


(SAVE IN FAC NOH 


eaae«2 










2t aa6a« etttti 

27 

2a aata» aasaks 




RETURN 




(RETURN TO CALLER 


FLOATll 


CLR 


FACKRS) 


(LEAVE AS INTEGER 


aaee«e 










24 ggti2 eigi6S 




MOV 


R3>FAC2(R5) 




ggggit2 










3a aattk ggg2g7 

31 


1 


RETURN 




(RETURN TO CALLER. 



LPSa vei-at 
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I 

2 

3 

« 

5 

6 
7 

s 

4 

la 

11 

12 

13 a862a 

H aa62a 



, SBTTL ENTERP t BUFRES 



ROUTINE TO ENTER POLISH MODE FOR ONE ROUTINE AND THEN 
EXIT BACK TO CALLER, 



JSR PCiENTERP 
,NORD ROUTINE 
NEXT INSTRUCTION 



ENTERPi 
Bl27e« ■ MOV 

gaB63a' 

15 ge62<l 917697 MOV 



16 

17 ag63a 
IS eg63a 
14 gg632 

2a ga636 

21 
22 

23 
24 
25 

26 
27 
2S 

24 
38 
31 
32 

33 
34 

35 0B6ag 

36 ga64g 

37 gg6aii 

38 gg65g 



I 

RETURPi 

egg632< ,»2 

962716 ADD 

ggggg2 

999207 RETURN 
( 



•RETURP,R4 
•(SP),PC 



•2,(SP) 



(ENTER POLISH MODE 
(ROUTINE TO ENTER 
(RETURN HADE HERE 

(SETUP POLISH RETURN PC 
(CALL ROUTINE IN POLISH MODE 



(EXIT POLISH MODE 
(BUMP PAST ARC 



(RETURN TO CALLER 



( 

( POLISH ROUTINE TO RESET THE POINTERS (BOTH GET AND PUT) OF 

( A CIRCULAR BUFFER. EFFECTIVELY EMPTIES THE BUFFER BEFORE 

( A SAMPLING OPERATION OCCURS, 

( 

( ROUTINE IS CALLED IN POLISH MODE 

( 



BUFRESi 
911262 MOV 



911262 
999996 

995962 
999919 
999131 



{R2),PUT(R2) 
MOV (R2),CET(R2) 
CLR BA0(R2) 
POLRET 



R2 ON CALL MUST CONTAIN ADDRESS 
OF BUFFER IN DESCRIPTOR TABLE, 
NO REGISTERS (GENERAL PURPOSE) 
ARE ALTERED BY THE ROUTINE. 



(RESET THE GET AND PUT POINTERS 



(CLEAR OUT BAD DATA FLAG 
(RETURN IN POLISH MODE 



LP91 y0t-at 



RT-U MICRO VHe2-0« U«OCT<T« gilStlli PiGE U 



I 

2 

3 

a 
s 

6 
7 

s 

9 
19 

It 

12 
13 

la 10656 

15 00656 

16 00660 

17 00662 

18 006611 
1* 00666 

20 00670 

21 00670 
22 

23 00676 

2a 
25 

26 
27 
20 
2» 

31 

31 
32 

33 

3(1 
35 
36 

37 
30 
3« 

00 

11 00702 

«2 00702 

«3 

a* 01706 

a5 

116 

«7 00712 

as 



.SSTTL SETV AND SETtUF 



POLISH ROUTINE TO CALCULtTE ADDRESS OP VtRIlSUE 
SPECIFIED IN THE INPUT LINE, 

ROUTINE IS CALLED IN POLISH MODE 



REGISTERS USEDl 



EVAL USES R0, R2. AND R3 
Rt IS BUMPED PAST VARIABLE 
RESULT IS STORED IN VARSAV(R5) 



112102 

100406 

000302 

152102 

061502 

001737 

000000G 

000130 

I 
000137 SVNERl 
000000G 



MOVB 
BMI 
SMAB 
BISB 

ADD 
JSR 

POLRET 



(R1)».R2 

STNER 

R2 

(R1>»>R2 

(R5),R2 

PCMGETVAR 



IBUILD NORD OFFSET 
(TOKEN ILLEGAL HERE 



|R2 NON POINTS TO. SYMBOL TABLE ENTRY 
ICET NAME AND SUBSCRIPTS SET UP 



(RETURN IN POLISH NODE 
(SYNTAX ERROR 



POLISH ROUTINE TO FETCH NEXT VARIABLE FROM INPUT LINE. 
TEST FOR AN ARRAY NAME AND CALCULATE THE POSITION 
IN THE ARRAY FROM SUBSCRIPTS NHICH MAY BE GIVEN, 

ROUTINE IS CALLED IN POLISH MODE 



ON EXIT( 



R0 POINTS TO ARRAY BASE ADDRESS 

Rl IS BUMPED PAST ARRAY NAME 

R2 POINTS TO SYMBOL TABLE ADDRESS 

R3 POINTS TO END OF ARRAY 

VARSAV(R5) POINTS TO ACTUAL ARRAY ADDRESS 



000767 
000310 



026503 

000022 



ROUTINE FALLS THROUGH TO CKBUF, 
GETBUFI 



JSR PCtGETAOO (CALCULATE ARRAY ADDRESS FROM 

( ARRAY NAME POINTED TO BY Rl. 
CHP VARSAV(R5)(R3 (OETERNINE IF GIVEN SUBSCRIPTED 

( ARRAY IS WITHIN BOUNDS OF 
( DIMENSIONED ARRAY, 
8HIS ERBUF (BUFFER ERROR 



17 



\ 
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007111 
0071« 



00720 
00720 



00732 

00730 
00736 
00700 

00700 
00706 
00750 
00750 
00752 
0075J 
00750 
("0755 



,SBTTL CKBUF 



POLISH ROUTINE TO CHECK IF ARRAY ADDRESS SPECIFIED 
IN VARSAV(R5) HAS BEEN DEFINED SY A 'USE' COMMAND, IF 30, 
THE ENTRY ADDRESS IN THE TABLE IS RETURNED IN R2 AND THE 
ARRAY POINTERS INITIALIZED, 

ROUTINE IS CALLED IN POLISH HODE 

CALL IS MADE HITH STARTING ADDRESS OF ARRAY IN VARSAV(R5) 

REGISTERS USED( ON EXIT, R2 HAS TABLEZDN] HUNHUVUSS 
FOR THIS BUFFER, 



1S12702 

limes 

012706 



027665 
000000 
000022 
001002 
012602 
000130 
062716 
000010 
005302 
003366 

100000 
102 
125 
106 



ERBUF( 



MOV 
HOV 

CMP 



BNE 
MOV 

POLRET 
ADO 

DEC 
BGT 

TRAP 
.ASCII 



,BYTE 



IINARRAY,R2 (SET UP TO SEARCH 'USE' DEFINITION 
'TABLE, -(SP) ( TABLE, 
•(SP),VARSAV(R5) (MATCH? 



CKl 
(8P)*,R2 



•10, (SP) 



R2 

CK2 





/BUF/ 



(NOl LOOK AT NEXT ENTRY 
(RETURN ENTRY ADDRESS IN R2 
(RETURN IN POLISH MODE 
(LOOK AT NEXT ENTRY 

(ALL DONE? 

(N0( CONTINUE 

(NOT FOUND! BUFFER ERROR 



LP90 v«t>ei 



RT>lt NtCRO VHa2.«« U-oeT>TI| 0tl5tll2 UK u 



1 
i 

3 

a 
5 

t 

7 

> 

9 

It 

n 

12 
13 

14 
15 

It 

17 

18 90756 

19 aeT5t 

20 00760 

21 M7*« 



22 00772 

23 00776 

2a 

25 01002 

26 01004 

27 01012 
28 

29 01014 

30 01020 

31 01024 

32 01032 

33 01040 

34 01042 

35 01046 

36 01052 

37 01056 
38 

39 01060 



,88TTL CETD«T 



ROUTINE TO TEST USER'S BUFFER POR OlTt. 4ND IF IT 
EXISTS. REMOVE IT «N0 RETURN IN R3, 



CtLLI 

JSR PCGETDAT 

RECI8TERS USEOI 



GETDiTi 



000241 

016T46 

177776' 

052767 

000340 

177776' 

005065 

000040 

105762 

000010 

001034 
026262 

000006 
000004 
001422 

005062 GET0i 

000010 

0IT203 

000006 

062762 

000002 

000006 

026262 

000006 

000002 

101402 

011262 

000006 

010365 GET3I 

000042 

012667 

177776' 

000207 

I 
105762 GET2t 
000011 
001353 



CLC 
MOV 

SIS 

CLR 
TST8 



8 ME 
CMP 



SES 

CLR 
MOV 

too 



R2 MUST POINT TO SUFFER DESCRIPTOR 
BLOCK iDDRESS BEFORE CtLL. 

R3 MILL HtVE DiTi ON RETURN. 

C«RRr HILL BE SET IF AN ERROR OCCUREO. 
IN THIS CASE, R3 AND THE FAC 
MILL HAVE THE ERROR CODE. 



PS.-(SP) 
•340. PS 

FACURS) 
BAD(R2) 

GETl 



(CLEAR CARRY BIT IN P9 
tSAVE CURRENT PS ON STACK 

(RAISE TO LEVEL 7 FOR PROTECTION 

lALMAVS AN INTEGER RETURNED 

(CHECK TO SEE IF DATA OVERRUN 

( OCCURRED, 
ITESI RETURN 



1 AS VALUE OF DATA 



aET(R2),PUT(R2) (DOES DATA EXISTT 

GET2 (PROBABLY NOT, BUT CHECK FOR FULL 

( BUFFER ANYHAY, 

BA0(R2) (CLEAR BAD DATA FLAG IF SET 

•SET(R2))R3 (SET DATA 

•2,GET(R2) (UPDATE POINTER 

GET(R2)>EN0(R2) (DID IT CAUSE A HRAP AROUNOT 



BLOB 
NOV 

MOV 

MOV 

RETURN 

T8TB 
BNE 



GET3 

(R2),GET(R2) 



R3>FAC2(R5) 
(SP)«,PS 



BAD*1(R2) 
GETS 



(NO 

(MRAP POINTER AROUND 

(SAVE RESULT IN FAC AS AN INTEGER 

(RESTORE PS 

(RETURN TO CALLER 

(IS THERE REALY DATA HERE? 

(YESI GO GET IT THEN 



-/ 



i 
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41 01066 012703 MOV 

177776 

42 01072 000404 BR 

43 01074 012703 GETK MOV 

177777 

44 01100 105062 CLRB 

000010 
45 
46 

47 01104 005216 GET4( INC 

48 01106 000757 BR 

49 ( 



-2.R3 



GET4 
4-1.R3 



BA0(R2) 



<SP) 
GET3 



(INDICATE NO DATA EXISTS YET 

(INDICATE DATA OVERRUN OCCURRED. 

(CLEAR OUT BAD DATA FLAG 

( SO NEXT FETCH HILL RESULT 

( IN GOOD DATA, 

(SET CARRY SHOHINC FAILURE 

(RETURN 



\ 






tPS0 V0 


-01 
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1 

2 
1 

• 

5 






.SBTTl 


8T00AT 






ROUriNe 70 9T0RE OtTA INTO USEII'9 SUFFER AND TEST FOR 


6 
7 

a 




1 DATA 


OVERFLOU 


• 






CALUl 








9 






JSR 


PC>9T0DAT 




It 












11 




' RESI8TER8 USEOI «2 MUST 


HAVE aUPPER DE9CRIPT0R 9L0CK 


12 










A00RE99 BEFORE CALL. 


13 








R3 MU9T 


HAVE BATA TO INSERT BEFORE 


la 










CALL, 


15 

16 

1? Biiia 








R] 19 DE9TROVE0 ON RETURN 




i700ATl 








19 0iiia 


816706 
177776' 




NOV 


P9,.(9P) 


(SAVE CURRENT P9 ON 9TACK 


1' ami 


852767 
8883aB 
177776' 




919 


•300, P9 


|RAI9E TO LEVEL 7 FOR PROTECTION 


2» 91122 


105762 
080011 




T9TB 


aAD*|(R2] 


(OVERRUN BIT BET? 


21 eii2t 


881025 




BNE 


NOROON 


ITEBI BET OVERFLOH FLAB 


22 011J0 


016206 
80800« 




HOV 


PUT(R2)»-(9P) 


(UPDATE PUT POINTER 


23 8tl3a 


862716 
080802 




A 00 


•2,(9P) 




2a 0ita0 


021662 
808002 




CHP 


(8P),EN0(R2) 


(DID IT CAU9E A WRAP AROUNOT 


2S 0iia« 


101401 




ak09 


NOHRAP 


(NO 


26 01ia6 


011216 




MOV 


(R2),(9P) 


(MRAP POINTER AROUNO 


27 01IS0 


021662 

888006 


NOMRAPl 


CMF 


(9P),GET(R2) 


("ILL ME OVERRUN THE BET POINTER 


28 










( NEXT TIMET 


29 81151 


801083 




9NE 


9T001 


(NO 


30 8US6 


152762 
008001 
080011 




9t9B 


«WeAD*l(R2) 


(YE9I REMEMBER THI8 THEN 


51 aii6u 


018372 

880800 


STOOII 


MOV 


R3i»PUT(R2) 


(aAVE DATA 


32 01178 


012662 
008080 




HOV 


(9P)«,PUT(R2) 


I9AVE NEM PUT POINTER AL90 


33 eit7« 


012667 
177776' 




MOV 


(9P)«,P9 


(RE9T0RE P9 


3a 81280 

35 

36 01282 


008207 




RETURN 




(RETURN TO CALLER 


052762 


tOROOHl 


ei9 


«W8A0(R2) 


(REMEMBER THAT BAD DATA EXISTS 




080001 












000018 










37 81218 


016206 

900080 




MOV 


PUT(R2),.(9P) 


(DON'T UPDATE THE PUT POINTER 


39 81210 


080763 




BR 


9T001 


(RESTORE PS AND RETURN TO CALLER 


39 













yi 



n 



\ 



y 
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1 
2 

3 


5 

6 
7 
9 

9 

10 

11 

12 

13 

10 01216 

15 01216 

16 01220 

17 01222 
19 01220 

19 01226 

20 01230 

21 01230 

22 01236 

23 81200 

20 01200 
25 01206 



26 012SO 

27 01256 



29 01262 
29 81260 



31 01270 

32 01276 



30 01310 

35 01310 

36 01316 

37 01320 

38 81322 
39 



,S9TTL GETAOD 



ROUTINE TO CALCULATE ARRAY ADDRE98 FROM ARRAY NAME 
POINTED TO BY Rl, 



REGISTERS ON RETURN! 



112102 

108058 
000302 

152102 

061502 

822712 

177776 

001002 

818206 

000737 

000008G 

012682 

022765 

177777 

080826 

081832 

S1&203 



010300 

010065 

i<80822 

005765 

080020 

100005 

006365 

008020 

066565 

000020 

088022 

816206 Gil 

000800 

086316 

806316 

862603 

008207 

I 



R0 POINTS TO ARRAY BASE ADDRESS 
Rl IS UPDATED PAST ARRAY NAME 
R2 POINTS TO SYMBOL TABLE ENTRY 
R3 HAS ADDRESS OF END OF ARRAY 
VARSAV(fi5! POINTS TO ENTRY TO ARRAY 



HOVS 
BMI 

SHAB 
BI3B 
ADO 
CMP 

BNE 
MOV 
JSR 

MOV 
CMP 



BNE 
MOV 



MOV 
MOV 



BMI 
ASL 



MOV 

ASL 
ASL 
ADD 
RETURN 



(R1)«,R2 

SYNERR 

R2 

(R1)'>.R2 

tR5),R2 

«177776,(R2) 

SYNERR 

R2,.(8P) 

PC,»«GETVAR 

(SP)»,R2 
»-l,SS2SAV<R5) 



SYNERR 
2(R2),R3 



R3,R0 
R0.VARSAV(R5) 



(BUILD "ORO OFFSET 
(TOKEN ILLEGAL HERE 



(R2 NO" POINTS TO SYMBOL TABLE 
(VARIABLE MUST BE AN ARRAY 

(SYNTAX ERROR IF NOT 

(SAVE R2 TEMP 

(GET NAME AND SUBSCRIPTS SET UP 

(RESTORE R2 

(SINGLY SUBSCRIPTED ARRAYS ONLY, 



(GET ADDRESS OF ARRAY 



(CALCULATE EXACT ARRAY ADDREBS 
( FROM GIVEN SUBSCRIPTS, 



SS1SAV(R5) 



Gl 
SSISAV(RS) 



(NO SUBSCRIPTS GIVEN, 

(CONVERT SUBSCRIPT TO A MORD OFFSET 

SS13AV(R5),VAR8AV(RS) (SUBSCRIPT PLUS ARRAY ADDRESS 



«(R2).-(SP) 

(9P) 
(8P) 
(SP)*,R3 



((« • BYTE SUBSCRIPTS) 



(RETURN TO CALLER 
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I ,SaTTl POLENTt CKLPM «ND CKCOH* 

I 

)«»•••••«*«*•«*««*«•»•**•••••«•«••«*«**»«««*«*•«»*»«**«»«*«*»» 

( 

t ENTER POLISH NODE OPCKtTION 

I 

I RES:STEPS USEPI R« BECOHES THE POLISH PC, 

t 

eaijia polenti 

01321 0t2»0a HOV (SP)«,R« (GET PC PRON CtLLER tND SETUP 

I THE POLISH PC. 
I 
I •••••••••«••••••••••*•••••••••**••••*•*•••••*••••*••••••••••» 

I 

( POLISH ROUTINE TO CHECK CHtRtCTER POINTED TO BV Rl EQUtL 

I TO t LEFT PARENS, t TEST IS THEN H<OE TO INSURE 

I TH«T HE STILL HtVE ROOH LEFT TO HORK NITH, 

I 

I ROUTINE IS CILLEO IN POLISH HOOE 

I 

I RE6ISTERS USEOl Rl GETS BUMPED BV I 

- LP»R| 

IflRST CHtR MUST BE t LEPT 

t PtRENS, 

(NOl SrNTkX ERROR 
ICHECK ROOM NOH 
(OUT OP ROOM, TELL USER 
(RETURN IN POLISH MODE 

tSTNTtX ERROR 
(OUT OF ROOM 

seesaoG 
I 



atJ2* 


CXLPtRl 






Bl)2* 122127 




CMPB 


(Rl)*,»,LP»R 


BBBBBBG 








B13I2 901083 




BNE 


STNERR 


01134 020604 




CMP 


5P,R4 


01336 103403 




BLO 


ERPDL 


01340 000134 




POLRET 




01342 


SYNERRi 






01342 000137 




JMP 


••ERRSYN 


0B0S0BG 








01346 


ERPDLI 






01346 000137 




JMP 


•PERRPOL 



I POLISH ROUTINE TO CHECK CHlRtCTER POINTED TO BY Rl 

I EflUiL TO t ,COMMt. 

I 

) ROUTINE IS CALLED IN POLISH MODE 

I 

I REGISTERS USED! Rl SETS BUMPED BY ONE, 

I 
01312 CKCOMAt 
013S2 122127 CMPB (RI)«,«,COMHt tPIRST CH4R MUST BE t COMHt 

0B0B0S6 
013S6 001371 BNE SYNERR iNOl SYNTAX ERROR 

01360 000134 POLRET iRETURN IN POLISH MODE /iQ 

^±-^ 
LPS0 V01-01 RT>11 HtCRO VH02.09 16>0CT-74 01156112 PAGE 20 

1 t ,SBTTL STORXr AND CKRPAR 

2 I 

3 ,•••*«••••••••••••••••••*•*••*•••••••••••••••*••••*•*••*•••••» 

4 I 

5 t COMMON EXIT ROUTINE TO STORE FAC IN VARIABLE SET UP 

6 I IN VARSAV(RS), CHECK LAST TOKEN EQUAL TO A RIGHT 

7 I PARENS (ALTERNATE ENTRY POINT TO ROUTINE), AND 
S I RETURN TO THE BASIC INTREPRETER, 

9 I 

10 01362 STORXTl 

11 01362 004737 JSR PC.PtSTOVAR iSAVE FAC 

000000G 

12 01366 CKRPARl 

13 01366 122127 CMPB (R1)*,«.RPAR (HAKE SURE LAST TOKEN IS A 

000000G 

14 I RIGHT PARENS, 

15 01372 001363 BNE SYNERR (SYNTAX ERROR IF NOT 

16 01374 000207 RETURN (RETURN TO THE BASIC INTREPRETER 

17 ( 



/ 



\' 



i^ 
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I 
2 

3 

4 
5 
6 
7 
8 
9 

le 

II 

12 

13 91376 

1« 81376 

15 81408 

16 01482 

17 81484 

IS 01418 

19 8|4|2 

20 81416 

21 01428 

22 81422 

23 01424 

24 81426 

25 81430 

26 81432 

27 81434 

28 81436 

29 81448 
38 81442 

31 8144a 

32 81446 
33 

34 81458 

35 81452 

36 81454 

37 81456 

38 0IU68 
39 

40 



.SBTTL CONVERT BCD TO BINtRV 



ROUTINE TO CONVERT dtO TO BIN4RY 
CtlLl 



PC.CONBCO 



REIilSTERS USEOI 



R3 MUST CONTtIN BCD NUMBER BEFORE CALL 
R3 HIUL H4VE BINtRY RESULT ON RETURN 



CONBCDI 
010846 
810246 
010446 
812700 
800004 
005046 
012702 CONli 
808804 
885884 

006183 C0N2I 
886104 
005302 
883374 
811646 
806316 
886316 
1162616 
006316 
868416 
885300 
083361 

I 
012603 
812684 
812682 
812688 
808207 



888881' 



MOV 
MOV 
MOV 
MOV 

CLR 
MOV 

CLR 
ROL 
ROL 
OEC 
BST 
NOV 
«SL 
<9L 
«0D 
«SL 

too 

OEC 
BGT 

MOV 
MOV 
MOV 
MOV 
RETURN 

.END 



Re>-(9P) 
R2,-(SP) 
R4,-(8P) 
• 4,R0 

•(SP) 

'4,R2 

R4 
R3 
R4 
R2 

C0N2 

(SP),.tSP) 

(SP) 

HP) 

(SP)»,tSP) 

(SP) 

R4,(SP) 

R8 

CONt 

(8P)»,R3 
(SP)«,R4 
(»P)«,R2 
(SP)«,R0 



tStVE REGISTERS Ra, R2, INO R4 

I ON THE STACK 

|4 BCD DIGITS TO DECODE 

l«CCUMUL<TE AREA 

14 SHIFTS / BCD CH4R 

(CLEAR OUT MORK AREA 
(SHIFT CHAR OUT 

(4 SHIFTS YETT 
(NO I CONTINUE 
(MULTIPLY ACCUMULATED DIGITS BY 10 



(ADO IN NEH DIGIT 

(IS THIS THE LAST BCD CHARACTERT 

(N0( CONTINUE 

(RESULT RETURNED IN R3 
(RESTORE ALL REGISTERS 



(RETURN TO CALLER 
(END OF MODULE 48 



LP8B V01.01 


SYMBOL 


TABLE 


ICC 


888314RG 


BEG • 


888888 


CKCMGN 


800348RG 


CKRPAR 


881366RG 


CONBCD 


881376RG 


DEL • 


888812 


ORSON 


8a8075RG 


ERARG 


8e8362R 


ERPOL 


801346R 


ERRSYNa 


*«***« G 


FAC2 • 


888842 


GET ■ 


888886 


OETOAT 


888756RG 


GETVARi 


•••«•• G 


GET2 


esietsR 


Gl 


BBiJiaR 


INTST 


e8e436RG 


IN3 


e88582R 


NARRATi 


888885 G 


NUMSGNI 


...... G 


POLRtT« 


888134 


R08 


888256RG 


RESTOR 


088426RG 


RETURP 


088638R 


Rl • 


(880881 


Ra a 


(888884 


5AVFAC 


BBB372B0 


SSISAVI 


080024 


STODl 


081164R 


SYNER 


888676R 


T3 a 


000062 


USE2 


000I26R 


VARSAVa 


088822 


.RPAR a 


...... G 


. >BS. 


888808 




881462 


ERRORS 


DETtCTEDi 


FREE CORE: 18142 


.LPiaLPSe 
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BAD a 


000010 


SUFRES 


000640RG 


CKCOMA 


B01352RO 


CKl 


808740R 


CONl 


881412R 


ORSBUF 


888I80RG 


END a 


888002 


ERBUF 


808750RG 


ERRARGa 


••••«• G 


EVAL a 


.«••.. G 


FLOAT 


888544RG 


GETAOD 


001216RG 


GETNUM 


080352RG 


GET8 


88l8iaR 


GET3 


881846R 


HISTON 


888876RG 


INI 


800506R 


LPSAD a 


...... G 


NOROOM 


081282R 


PC a 


(888887 


PS a 


177776 


ROBl 


80e310R 


RESTR2 


000484RG 


RTSON 


080074R6 


R2 a 


(080002 


R5 a 


(000085 


3AVINT 


000376RG 


SS2SAVa 


880826 


STORXT 


801362RG 


SYNERR 


081342R 


USE 


000104RG 


USE3 


808t22R 


(COMMAa 


...... G 



BCDON 


000077RG 


CK8UF 


8807 14R 


CKLPAR 


801326R 


CK2 


00e724R 


C0N2 


801420R 


ORSNPT 


e08tB2RO 


ENTERP 


880620RG 


ERNOR 


000536RG 


ERRPDL" 


*«*«*. G 


FACl a 


000040 


FLOATl 


080606R 


GETBUF 


000702RG 


GETV 


0B0656RG 


GETl 


00le74R 


GET4 


001184R 


INT a 


.*.•** G 


IN2 


080526R 


LPSOR a 


...**. G 


NOMRAP 


08I1S0R 


POLENT 


001324RG 


PUT a 


808004 


REGSAV 


0004I0RG 


RETURNa 


800207 


R0 a 


(000000 


R3 a 


(080083 


9AVER2 


000366RG 


SP a 


(000006 


8T0DAT 


001II8RG 


STOVARa 


...*.. G 


TABLE 


000000RG 


USEl 


000236R 


USE4 


000222R 


•LPAR a 


..*.-.. G 



./ 
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upsi VBi-et 



RT-ii Htcao vHg2.e9 u-ocT-ra atisdse PtSE i 



I 

2 
I 

4 

s 

k 
7 

» 
» 

II 
12 
tl 
>• 
15 
Ik 
17 
IS 
H 
21 
21 
22 
23 
2* 
2S 
2» 
27 
28 
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COPYRIGHT (C) 1973, 1»7« 

DIGITtL EQUIPMENT CORPORATION 
ntVNARO, HlSSiCHUSETTS B|7S« 

THE INPORMtTION IN THIS DOCUMENT 19 SUSJECT TO 
CHINGE HITHOUT NOTICE <N0 SHOULD NOT BE CONSTRUED 
tS 1 COMMITMENT BT DtGITtL EQUIPMENT CORPORATION, 
DEC ASSUMES NO RESPONStBILITT POP ANT ERRORS THAT 
HAY APPEAR IN THIS DOCUMENT, 

THIS SOFTNARE IS FURNISHED TO PURCHASER UNDER A 
LICENSE FOR USE ON A SINGLE COMPUTER SYSTEM ANO 
CAN BE COPIED (UITH INCLUSION OF DEC'S COPYRIGHT 
NOTICE) ONLY FOR USE IN SUCH SYSTEM, EXCEPT AS HAY 
OTHERNISE BE PROVIDED IN HRITING BY DEC, 

DEC ASSUMES NO RESPONSIBILITY FOR THE USE 
OR RELIABILITY OF ITS SOPTHARE ON EQUIPMENT 
NHICH IS NOT SUPPLIED BY DEC, 



NRITTEN BVl RICK HULLY 



FEB., l»71 
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,SBTTL CONTENTS OF MODULE PI 

THE FOLLOHING COMMAND PROCESSORS EXIST IN THIS MOOULEl 

ADC 
RTS 
LEO 



/ 



A / / 



LP91 V8l-ei 



RT«tl Ntcao VMOi.«« U-OCT>T« StISeiSI PtSE ) 



I 

2 

3 

• 

5 

6 
7 
« 
1 

le 
11 
12 
II 

\» 

IS 

16 

IT 

ta 
l» 

28 

21 
22 
2] 

2a 

25 

26 
27 
28 
24 
30 
31 
32 
33 
3a 
35 



.SBTTL PftOGRtM CLOltLS 

GLOBUS RCQUIRtB POP COMMUNICtTION NITH THE BASIC 
INTHEPPCTER, 

.liLOSL ERRPDL>ERRSVN,ERP>'e 

(GLOBL £V«L.SETV«R,STOV<R 

itLOBL INT,,caHHt,,RPAR 

iSLOBl NUNSfiN>,LPtR 

GLOStLS REQUIRED FOR COHHUNtCATIONS MITH THE VARIOUS 
LPS MODULES . 

•GLOBL TABLE.NARRAV. FLOAT 
,GLOBL POLENT>GETADD|GETNUM 

, GLOBL ckcmgn,:ntst,getv 

, GLOBL GETeur>REG9AV,ERN0R 

, GLOBL ST0RXT,CKRPAR,ER8UF 

.GLOBL CKCOHA.ENTERPiSTODAT 

.GLOBL GETDAT.RTSON, ORSON 

.GLOBL SAVCR2,SAVFAC,RE3TR2 

.GLOBL RESTOR.HISTON.BCDON 

.GLOBL CONBCD.BUFRESiDRSNPT 

.GLOBL SAVINT 

GLOBALS REQUIRED FOR COMMAND PROCESSORS 

.GLOBL ADCRTS.LEO 
GLOBALS FOR DEVICE ADDRESSES 

.GLOBL LPSAOiLPSAOB.LPSOR.LPSOMA 

GLOBALS FOR INTERRUPT PRIORITY AND VECTOR DEFINITION! 
.GLOBL LPSIVA.LPSIP 



<;3 
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1 

2 

3 






1 


.SBTTL 


REGISTER ASS 




888888 


1 

Re 




X0 


a 




808001 


Rl 




XI 


5 




808082 


R2 




X2 


6 




808083 


R3 




X3 


7 




88888a 


Ra 




xa 


S 




808885 


R5 




X5 


9 




888886 


5P 




X6 


10 




808887 


PC 




XT 


11 






1 






12 






) GENERAL EQUATES 


11 






( 






1" 




177776 


PS 


a 


• 2 


15 




808287 


RETURN 


■ 


207 


16 




88013a 


POLRET 


a 


13a 


17 






1 






18 






1 BASIC 


USER'S 


EQUATES 


IT 






1 






28 




888022 


VARSAV 


a 


22 


21 




80882a 


SSISAV 


a 


2a 


22 




880826 


SS2SAV 


a 


26 


23 




8880a8 


FACl 


a 


a0 


2a 




8888a2 


fAC2 


a 


a2 


25 




888862 


T3 


a 


62 


26 






1 






27 






1 BUFFER DESCRIPTOR EQUATES 


28 






I 






29 




888888 


BEG 




8 


38 




888882 


END 




2 


31 




88888a 


PUT 




a 


32 




888886 


GET 




6 


33 




880010 


BAD 




10 


3« 




080012 


DEL 




12 


35 






1 






36 






1 LIMIT 


TEST 




37 






) 






38 


88081! 


888828 


KAXAl 


.NORD 


20 


39 


08(^82 


888828 




.WORD 


20 


U0 


888811 


177777 




,KORO 


177777 


HI 


88886 


888817 




.HORO 


17 


a2 






1 






a3 






I INTERRUPT VECTOR SET UP 


ua 






1 






as 






1 






a6 






I N0N-REENTRAN1 


VARIABLES 


a7 






1 






as 


88818 


808088 


RTSSUFt 


.UORD 




a9 












58 


88812 


800000 


RTSNPTI 


.WORD 




51 


888ia 


000000 


RTSSCI 


,»0R0 




52 


88816 


808800 


RTSNSCI 


,HORD 




53 












54 


88828 


888888 


RTSMOOl 


.HORO 




55 


88822 


888888 


RTSENDl 


,HORO 




56 












57 


e882a 


888088 


RTSCSRi 


,HORD 






IGNMENTS AND EQUATES 



|PS a PROCESSOR STATUS NQRO 
(207 a RTS PC 
tl3a a JMP XPa)* 



(VAR SAVE FOR ASSIGNMENT 
tSSl SAVE FOR ASSIGNMENT 
|SS2 SAVE FOR ASSIGNMENT 
IMIGH ORDER FLOATING VALUE 
ILON ORDER FLOATING VALUE 
iSHORT TERM TEMPORARY 



(OFFSET TO BEGINNING OF BUFFER POINTER 

(OFFSET TO END OF BUFFER POINTER 

(OFFSET TO PUT DATA POINTER 

(OFFSET TO GET DATA POINTER 

(OFFSET TO SAD DATA FLAG 

(OFFSET TO DISPLAY DELTA X 



(16 
(16 

(65535 
(17 



(RTS COMMAND (BUFFER DESCRIPTOR 

I ADDRESS) 

(RTS COMMAND (NBR OF POINTS) 

(RTS COMMAND (STARTING CHANNEL) 

(RTS COMMAND (NBR OF SUCCESSIVE 

( CHANNELS) 

(RTS COMMAND MODE 

(RTS COMMAND END ADDRESS FOR 

( DMA OPERATIONS 

(RTS COMMAND CSR SETTING 



x^- 



\ 



~V' 
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(COUNTER USED BY lEO CONHtNO 
itTORteE «RE1 FOR LEO CHtRiCTERS 



5* SMi* tl»t»l CNTI ,NORO • 

5* titit SiegSR LEDRESI .HORO »,»,»,» 

9101! 08agBe 

gegiD 000000 

0003* 000000 

60 00ea0 017 BLANKl ,BVTE tT> IT. 1T> IT, 17, IT. IT IT LED BL<NK CHtRiCTERS FOR PtDOING 

00041 01T 

00042 017 

00043 017 

00044 017 
00B45 017 
0004t 017 

*1 00047 01S niNUSi .BYTE IS (LED HINUS CHtRtCTER 

*2 I 



;!■/ 
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t 
2 

3 

4 
S 

6 
7 
S 



to 
11 

12 
13 
14 
IS 
1« 
17 000SB 

la 00050 

1< 00054 

20 0B05t 

21 00060 
00061 
00062 

22 00063 

23 00064 



24 00072 

2S 
26 

27 

2t 00076 

29 00100 

30 00102 

31 esiau 

32 00106 

33 00112 



36 00130 

37 00132 



38 00136 

39 00140 



4a aai46 

41 00152 



.SBTTL •1DC< COMMtNO PROCESSOR 



•toe CONHtNO PROCESSOR 

BtSIC FORNi CALL •tDC>(CHtN,VtR) 

PURPOSEl tNITItTE AN t/0 CONVERSION FROH THE SPECIFIED 
CHANNEL (B <« CHtN <s IS), HAIT FOR IT TO 
CONPLETE, AND RETURN A FLOATING POINT RESULT 
IN ■VAR> (B <• VAR <• 4a9S) tS THE VtLUE OF THE 
FUNCTION, THE A/D CANNOT BE CURRENTLY IN> 
VOLVED IN A REAL TIHE SAHPLINC (RTS) 
OPERATION, 



AOCI 
105737 
0000006 

001403 

104400 

101 

104 
103 

000 
012765 tOC2l 
000000' 
000062 
0B4737 
000000G 



000000S 
e000ei0G 

00»000G 

(10^106' 

000365 

000042 

005265 

000042 

016537 

000042 

000000G 

004737 

0000006 

0000006 

105737 lOCll 



100375 
013765 
0000006 
000042 

aasass 



BEO 

TRtP 

.tscti 



.BYTE 

NOV 



JSR 



tOC2 

a 

/ADC/ 



•HAXA,T3(R5) 
PCMPOLENT 



«6ETNUM 

♦INT8T 

tCKCOHA 

.*2 

S'AB 

INC 

MOV 



(ENTRY POINT TO PROCESSOR 

(RTS OPERATION CURRENTLY UNOERHAY? 



(N0( CONTINUE 
I IN PROGRESS, 



(FOR LIHIT TESTING OF "CHAN" 



(ENTER POLISH MODE AND CHECK 

( FOR ENOUCH AREA TO HORK 
( KITH AND THAT FIRST TOKEN 
( IS INDEED A LEFT PtRENS, 
(6ET CHANNEL FROH COMMAND STRIN6 
(TEST <> 15, 

(CHECK NEXT TOKEN EQUAL TO A COMMA 
(EXIT POLISH MODE 
(SETUP A/O CHANNEL • 

(INSERT t/O START BIT 



FtC2(R5) 
FiC2(R5) 
FAC2(R5),P«LPSAD (START CONVERSION ON SPECIFIED CHtNNEL 



• 6ETV 
TSTB 



BPL 

NOV 



PCMCNTERP 



•«LPSAD 



(ENTER IMNEOIATE POLISH MODE TO GET 



( VARIABLE ADDRESS, 

(CHECK DONE FLA6 ON THIS CHANNEL 



000137 

000000G 



CLR 
JMP 



ADCl (NOT READY YET 

••LPSA0B,FAC2(RS) (GET RESULT IN FAC 



FACURS) IN09T 9I6NIF, 19 ALN«T9 Z»0 
••STORXT (STORE RESULT IN PREVIOUSLY OPENED 



^ 
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4! 
43 



VtRtASLC, CHECK FOR •)• AND 
RETURN TO TNC BtSIC INTERfRCTER, 



;5 
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1 
2 

3 
II 
5 
6 
7 
9 
9 

la 
11 

12 
13 

la 
15 
It 

17 
19 
1« 
2R 
21 
22 
23 
2« 
25 
26 
27 
29 
29 
30 
31 
32 
33 
31 
35 
36 
37 
39 
39 

ae 
ai 
a2 

43 

aa 
u5 

46 
47 
49 
49 
SB 
51 
52 
53 
54 
55 
56 
57 
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iSBTTL "RTS* COMHtNO PROCESSOR 



"RTS» CO«M»N0 PROCESSOR 

BISIC FORMI CALL •RTS«(BUF,SC>NSC,NPT9.nODE) 

PURPOSEl PERFORH REAL TIHE BUFFEREO/CLOCKED SAMPLINE OF THE 
A/D, THE A/0 CAN BE ENABLED HITH A VARIETY 
OF OPERATIONS DEPENDING ON THE "HOOE" SPECIFIED. 
THE NORHAL MODE OF OPERATION (NaDE*B) CAUSES 
THE A/D TO S4HPLE HHENEVER ST »1 FIRES, 
TO ENABLE OTHER OPTIONS, HERELT ADO THEIR CODE 
NUH6ER TO THE MODE, THE FOLLOHING LIST 
DESCRIBES OPTIONS AVAILABLE (ALL OPTIONS ARE 
NORMULLT DISABLED) I 

CODE OPTION 

41 ENABLE BURST NODE (USED ONLY NITH DMA) 

*2 ENABLE CLOCK AND DISABLE ST 111 

«4 ENABLE DUAL SAHPLE AND HOLD 
«1B ENIBLE ON* (IB OCTAL) 

THE A/D MILL BE STARTED BY A CLOCK OVERFLOH 
OR SCHMITT TRIGGER »l (ST). POINTERS MILL BE 
BE USED TO OETERHINE IF GOOD DATA EXISTS IN THE 
BUFFER ARRAYS OR IF DATA HRAP AROUND OCCURS. 
SINCE DATA IS STORED IN CIRCULAR BUFFERS (EX> 
CLUOING DMA OPERATIONS), POINTERS WILL BE USED 
TO INSURE THAT INCOMING DATA RATE DOES NOT 
EXCEED THE REMOVAL RATE, A BAD DATA INDICATOR 
WILL BE SET WHEN DATA OVER>RUN OCCURS, THE 
BUFFER POINTERS ARE INITIALLY RESET BEFORE THE 
SAMPLING OPERATION BEGINS, 

i/O CHANNELS ARE SAMPLED ON EVERY CLOCK OVERFLOW 
OR FIRING OF ST (1 WITH THE RESULT STORED IN 
CONSECUTIVE DATA CELLS. DAT* IS STORED IN 
IDENTICAL FORHtT AS THAT READ FROH THE A/D. WHEN 
A CLOCK OVERFLOW OR ST OCCURS, THE A/D SAHPLES 
THE FIRST CH«NNEL SPECIFIED BY "8C" AND THEN 
SAMPLES THE NEXT 'NSC •! CONSECUTIVE CHANNELS. 
SAMPLING THEN CONTINUES UNTIL "NPTS" CLOCK OVERFLOWS 
OR ST'S HtVE SEEN RECEIVED, 

IN DUAL SAMPLE AND HOLD MODE, THE "NSC' PARAMETER 
IS THE NUMBER OF PAIRS OF CHANNELS TO REAL PER 
EVENT, 

DMA OPERATIONS HtY/M«Y NOT USE DUAL SAMPLE AND HOLD. 

DM1 tLLOWS DIRECT HiROWtRE STORAGE OF A/D 

RESULTS IN A SPECIFIED BUFFER ARRtY, A MAXIMUM 

OF a««6 SAMPLES MAY BE TAKEN AT ANY 

ONE TIME WITH REMOVAL OF DATA ALLOWED ONLY 

WHEN THE BUFFER IS COMPLETELY FILLED, THE 

•NSC* PARAMETER IS IGNORED AND IS CONSIDERED 
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s« 

kl 

»} gatst 

*« sstst 



ONE, 



IF NPTS IS tlVCN <S ZEROi tNY RTS SAMPLING 
CURRENTLY IN PROSRESS IS OISASLEO, 



71 

71 
72 

71 8I214 

7a 

7$ 

7» ee2i» 

77 01220 

78 

7* 90222 

80 9022a 

et 

>2 0922t 
6J 09230 
S« 00232 
SS 

56 902]'l 

57 0023t 

aa 90249 
a9 

99 092«2 

91 992aa 

92 002at 
93 

9a 90250 
95 90252 

9» 9«2St 

97 0l2t2 

99 a02t* 
99 00279 
109 9272 

191 9276 



912737 

991949* 

990099G 

912737 
999199 

090099G 
9t27»5 
909990' 
900962 

98S937 

9999996 

195917 

999990C 

004737 

909009G 



999909G 

999999G 

999099G 

9900999 

9099990 
909999G 
999999G 

999999G 
999999G 
999099G 

999999G 
9099996 
909999G 

999252' 

016509 

990092 
010067 
177536 
012667 
177529 
00ia2a 
012603 
019367 
177529 
912667 



•A0CIN7,>«I,PSIV« 



NOV 


•309,9«LP8IP 


NOV 


»N»«»,T3(R5) 


etR 


••kPStO 


CLRB 


••RTSON 


JSR 


PC)*»POLENT 



♦BUFRES 
♦StVER2 




♦CKCHSN 
♦INTST 




♦StVINT 
♦CKCHGN 
♦INTST 




♦8»VINT 
♦CKCMGN 
♦INTST 




♦SIVINI 
♦CKCMGN 
♦INTST 




.♦2 

MOV 


F«e2(R5),R0 


NOV 


RiiRTSMOO 


MOV 


(SP)^,RTSNPT 


BEG 

MOV 
MOV 


RTS00 

(8P)^,RS 
R3.RTSNSC 


MOV 


(SP)^,RTS8e 



lENTRT POINT TO PROCESSOR 

ISET INT, SERVICE ROUTINE ENTRY POINT, 

(SET INT, PRIORITY. 

IFOR LIMIT CHECKS ON tLL INTEGERS 

(STOP «NY PREVIOUS RTS OPERATION 

(ENTER POLISH NODE AND CHECK 

I FOR ENOUGH AREA TO MORX 

t HITH ANO THAT FIRST TOKEN 

t IS INDEED A LEFT PARENS, 

IGET BUFFER ADDRESS FROM COMMAND STRING 

I ANO CHECK IT AGAINST THE 

I DEFINITION TABLE, 

IRESET BUFFER POINTERS 

(SAVE R2 ON THE STACK SINCE IT HAS 

t THE DESCRIPTOR ADDRESS, 

iCHECK NEXT TOKEN EQUAL TO A COMMA 

I AND GET 'SC. INTEGERIZE 

I RESULT ANO TEST MU, 

(SAVE INTEGER ON STACK 

(CHECK NEXT TOKEN EQUAL TO A COMMA 

I ANO GET 'NSC', INTEGERIZE 

I RESULT AND TEST <>15, 

(SAVE INTEGER ON STACK 

(CHECK NEXT TOKEN EGUAL TO A COMMA 

( AND GET 'NPTS', INTEGERIZE 

( RESULT AND TEST <>65S35, 

(SAVE INTEGER ON STACK 

(CHECK NEXT TOKEN EGUAL TO A COMMA 

( ANO GET 'NODE', INTEGERIZE 

( RESULT ANO TEST <'17, 

(LEAVE POLISH NODE 

(SET MODE 

(SAVE IT FOR LATER 

(GET NPTS FROM STACK 

(ZERO POINTS MEANS DISABLE SAMPLING 
(GET NSC FROM STACK 
(SAVE FOR LATER 

(GET SC FROM STACK 



;ifc 
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192 9392 

193 9394 

194 9319 

105 9314 

196 9316 

197 9320 
19a 0122 

109 9326 

119 9132 

111 9134 

112 9149 

113 9144 

114 0146 

lis 

116 9352 

117 9356 
ua 9369 
119 9362 

129 9366 

121 9379 



123 9409 

124 0492 

125 9496 

126 9419 

127 9414 
129 9416 
129 9420 

139 9424 

131 9419 

132 0432 
131 

lia 9414 

135 9436 

136 9442 

137 9446 

US 

1 lo Baca 



177512 

912602 

010267 

177509 

912799 

999994 

991491 

996391 

995191 RTS91( 

966793 

177466 

929327 

999917 

991495 

999117 

999999G 

962796 RTS99I 

999996 

999594 

012701 RTS02I 

999199 

916746 

1774J6 

999316 

952693 

932799 

991)994 

991492 

952793 

949999 

912799 RTS93( 

999992 

991993 

9S2791 

999929 

999492 

952793 RTSgai 

999949 

996999 RTS9S( 

193992 

952793 

999919 

932799 RTS96I 

999994 

991444 

«es2g3 

911200 
966790 
177359 
966709 
177344 
912703 
9a0090 



MOV 
MOV 



BEG 
ASL 

DEC 
ADD 

CMP 

9LE 

JMP 



BR 
MOV 



SHAB 

BIS 

BIT 

BEG 
BIS 

BIT 

BNE 
BIS 

BR 

BIS 

ROR 
BCC 
BIS 

BIT 

BED 
INC 

MOV 
ADO 

ADO 

BIT 



(SP)^,R2 
R2,RTSBUF 

•a,RB 

RTS01 
R3 

R3 

RTSSC>R3 

R3,<1S. 

RTS02 
PaERNOR 



RTS10 
«100,R3 



RTSSC,-(SP) 

(SP) 
(SP)+,R3 

•a,RB 

RTS03 
•«0009>R3 

• 2, Re 

RTS04 
«20,R3 

RTS05 
•40,93 

R0 

RTS06 
•10. R3 



(GET R2 (BUFFER DESCRIPTOR ADDRESS) 



(CHECK SC-t^(N8C*DUAL BIT) « 15 

(NOT DUAL 

(DUAL BIT SET, NSC « NSC«2 

(NSC • NSC - 1 

(SC • 1 ♦ (NSC*DUAL BIT) 



RTS09 
B3 



(R2),R0 
RTSNPT,R0 



RT3NP7,R0 
•69900,83 



(MUST BE <>15 



(OK 

(NUH8ER OUT OF RANGE 



(CLEAN UP STACK ANO EXIT 



(R3 MILL END UP HAVING A/D STATUS 

( REGISTER SETTING, 
(STARTING CHANNEL • 



(INSERT SC INTO A/O STATUS 
(DUAL SAMPLE ANO HOLD? 

(NO 

(YESI INSERT INTO STATUS REG, 

(CLOCK ENABLE OR STT 

(CLOCK 
(ST 

(CLOCK 

(NOW GET BURST MODE 

(SET BURST MODE BIT IN STATUS REG 

(DMA RESUESTEDT 

(N0( STATUS REGISTER OK AS IS THEN 
(ADD IN START BIT TO GET THINGS GOING 
( FOR DMA OPERATIONS, 
(MAKE SURE A/D HON'T OVERRUN 
( BUFFER SIZE ALLOCATED, 

(IF DUAL SAMPLE AND MOLD, DOUBLE 
t NVHKR or PtINTSt 



X 



UP01 vet-»i RT-U 


KtCRO 


VM02.09 16-0CT.74 


aii5«i50 ptec 6* 


laa 0it5« 


066700 
177332 


ADD 


RT9NPT,R0 




lai 0a60 


066700 
177326 


400 






|a2 0a6a 


010067 RTS07I 
177JS2 


MOV 


ReiRTSCND 


)aiVC END tODREM 


H3 0470 


026200 
000002 


CHP 


END(R2)|Re 


(EXCEEDED tRRtV StZET 


Ilia 0a7a 


003402 


BLE 


RT900 


(NOl OK THEN 


lUS 01176 


000137 
000000E 


JHR 


••ERBUF 


(DHt EXCEEDS tUPPER SUE 


146 0S02 


012700 RT90tl 
000000C 


MOV 


*LPS<O>R0 


(SETUP STiTUa REGISTER >ND DN< 


147 0506 


012704 
000000G 


MOV 




( REGISTER, 


14« 0512 


012710 

000006 


MOV 


•6i(R0) 


INOM aET UP THE DM* 


149 0516 


011214 


HOV 


(R2),(R4) 


)DM« CURRENT ADDRESS 


150 0520 


012710 

000004 


HOV 


•4,(R0) 




151 0524 


016714 
177262 


MOV 


RTSNPTt(R4) 


iDHA HORD COUNT 


152 0530 


005414 


NE6 


(R4) 


ITMO'S COMPLEMENT 


153 0532 


012710 
000002 


MOV 


•2. (Re) 


lOMt STATUS REGISTER 


154 0536 


012714 
010000 


MOV 


•10000, (R4) 


(DMA ENASkE SIT 


155 0542 


110337 RT909I 

000000G 


MOVB 


R3>P«RT90N 


(INDICATE AN RTa IS IN PROGRESS 


156 0546 


010367 
177252 


MOV 


R3,RT»CSR 


(SAVE CSR SETTING POR INTERRUPT HAN 


157 0552 


010337 
0000006 


MOV 


R3,*«LPS40 


(START UP THE A/D OPERATON 


150 0556 


000137 RTSt0| 

0000006 


JMP 




(CHECK LAST TOKEN EQUAU TO A RIGHT 


15» 








( PARENS AND RETURN TO THE BASIC 


160 








( INTERPRETER, 


161 


1 









^1 



IPSl V01.01 
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1 
2 

3 

4 
5 

6 
7 

a 

9 

10 

11 

12 

13 

14 

15 

16 

17 00562 

IS 00S62 

19 
20 
21 

22 00566 

23 00570 

24 00572 

25 00576 



27 00610 
2S 00612 



29 00616 

30 00622 



.SBTTL "LED' COMMAND PROCESSOR 



"LED" COMMAND PROCEBSOR 

BASIC PORM( CALL 'LED'CVAR) 

PURP0aE( LED HILL DISPLAT THE FLOATING POINT VALUE OF THE 

VARIABLE 'VAR', UP TO 6 POSITIVE OR 5 NEGATIVE 
DIGITS CAN BE DISPLAYED IN THE LEDS, AN OPTIONAL 
DECIMAL POINT MAY ALSO BE INCLUDED, NUMBERS HHICH 
ARE UNABLE TO BE DISPLAYED (VIZ,, "E" NUMBERS AND 
NEGATIVE 6 DIGITS ONES) ARE SHORN BY ALL MINUS 
SIGNS IN THE LEDS, 



LED( 



004737 
000000G 



000000G 

000572' 

005067 

177230 

012765 

000030' 

000062 

004737 

000000G 

000722' 

016500 

000062 

012702 

000036' 

026727 LEDII 

177200 



31 00630 003010 

32 00632 020227 LED2I 

000030' 
33 

34 00636 001413 
35 

36 00640 020027 

000030' 

37 00644 001405 
39 00646 114042 

39 00650 000764 

40 I 

41 00652 012700 LED3I 

000050' 

42 00656 000765 

43 ( 

44 00660 012700 LE04I 

000047' 



JSR 



PC.MPOLENT 



«GETNUM 
,•2 

CLR CNT 



(ENTRY POINT TO PROCESSOR 
(ENTER POLISH MODE AND CHECK 

( FOR ENOUGH AREA TO aORK 
( KITH AND THAT FIRST TOKEN 
( IS INDEED A LEFT PARENS. 
(SET NUMERIC FROM COMHAND CVAR') 
(LEAVE POLIBH MODE 
(CHARACTER COUNTER 



«LEDRES,T3(R5) (HHERE RESULTS HILL END UP 



,HORD 
MOV 



PC,P«NUMSGN 



LEDOUT 
T3(R5),R0 



MOV «LEDRESf6,R2 
CMP CNT,»6 



B6T 

CMP 



BEG 

MOVB 
BR 



LED3 
R2,*LEDRE9 



LED5 

R0,«LEDRES 

LED4 

-(R0),«(R2) 

LEOl 

•MINUS«1>R0 

LED2 

•BLANK«7,R0 



(GENERATE CHARACTER STRING 



(ROUTINE TO PROCESS CHARACTERS 
(GET LAST DIGIT POSITION *1 



((■HERE RESULT HILL END UP «1 
(GOOD • GENERATEDT 



(NOl INSERT A ».» SIGN THEN 
(INSERT NEXT CHARACTER IF SPACE IS 

( AVAILABLE, 

(ALL DONE, NOH PUT THEM UP ON THE 

( LEO'S, 

(GET NEXT CHARACTER IF ONE EXISTS 

(NOl FILL HITH BLANKS THEN 
(COPY ONE CHARACTER OVER 
(HORN ON NEXT CHARACTER 

(INSERT ■•> SIGN FOR BAD NUMBER 



(INSERT LEADING BLANK8 



,'/ 



Lf»l »U.«l 


Kt-U 


HiCRO 


VM«2><« U-OCT-l 


as gitti tetyn 




to 


LE02 


»* 


t 






«r tu*i et27ae 


IE05I 


MOV 


•ke0l«E(«6>lll 


nttw 








as M*7i eeseat 




CLR 


•<9I') 


a« 8t6ra iiaeu 


LED6I 


HOVB 


•(«»), (SP) 


S« ee»7t 211637 




MOV 


(5P),««LP8A0a 


ei0s«ec 








51 9g7l2 e«i7tt 




too 


•a«(,(JP) 


eeeaee 








52 Wt* e2271b 




CMP 


«)Bea,(sP) 


nejeae 








5] 99712 ee237B 




SCE 


kE06 


Sa 017111 0e!72t 




7»7 


(SP)» 


55 gf71t 9)0137 




JM» 


••CKKPM 










56 








57 








S« 


1 







INHERE TO START PUkLINO 

ICIEAP LEO RESISTCR TO START 
(SET CHtNACTER 
lOISPttr CHAR 

IPOZNTS TO NEXT OieiT POSITION 

lALL OONET (3e)S'«««06) 

INOI DO NEXT CHAR 

ICLEAN UP STACK 

(CHECK NEXT TOKEN ESUAL TO A RIOHT 



PARENS AND RETURN TO THE BASIC 
INTERPRETER, 



^^ 
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I 
2 
3 
a 118722 

5 BB0722 

6 809726 

7 BBB739 

B 99a73a 
4 99B736 

19 9B7a2 

11 997U« 

12 99759 
13 

la 90752 

15 99756 

16 99762 

17 99766 

IS 09772 

19 

29 9977a 



22 

23 01906 
2a 91919 

25 91911 



26 01922 

27 91026 
2S 

21 91039 



122700 
909053 

90ia2i 

122700 
0999110 
901916 
122700 
000105 
00|a32 
122709 
099056 
99lail 

9a2700 
177760 
110075 
009062 
905265 
900062 
005267 
17703a 
000207 

112700 

909929 

922765 

999039' 

000062 

001763 
995365 
999962 
152775 
099020 
990062 
095265 
000062 
000297 



I ROUTINE TO SUPPORT lEO CONMANO 

t 

LEDOUTI 



BES 

CMPB 

BEQ 

CMPB 

BEQ 

CMPB 

BEQ 

SIC 

MOVB 

INC 

INC 

RETURN 



LEOXTl 

I 

lEDOTll MOVB 



••♦.RB 

LEOXT 
• • ,RB 

LEDXT 
•'E,RB 

LEDBAO 
•'..RB 

LEOOTt 

•t77760,RB 

R»,»TJ(R5) 

T3(R») 

CNT 

•2aiR9 
«t.EDRES,T3(R5) 



BEfi LEDSTO 

OEC T3(RS) 

BISB •20.«T3(R5) 

INC T3(R5) 

RETURN 



I 



176770 
39 91936 909207 
31 



012767 LEDBADl MOV «7,CNT 
RETURN 



I"*" 7 



ITESI IGNORE 
(IGNORE BLANKS ALSO 



(LETTER ET 

(VESl CAN'T DISPLAY E NUMBERS 
(DECIMAL POINTT 

(VESl CHECK TO SEE IF ITS THE 

I FIRST CHARACTER, 
(RID GARBAGE 

(SAVE CHARACTER 

(BUMP TO NEXT POSITION 

(COUNT IT 

(RETURN TO CALLER 

(CHANGE CHAR TO LED •,• 

("AS THIS THE FIRST CHARACTER 



( RECEIVED? 

(VESl STORE AS SINGLE CHAR 

(BACK UP 1 CHAR POSITION IN ORDER 

( TO INSERT THE DECIMAL POINT, 



(RETURN TO CALLER 

(INDICATE THAT NUMBER IS TOO LARGE 

( TO HANDLE AND RETURN. 



^ 



\ 



LPSi vei-ei 



RT-u HtcRO vM«2>a4 i6*ocT«7« itisaisa piec « 



1 

2 

I 

a 

5 

» eataag 
9 eaieaa 

11 Biasa 



12 aiest 

13 el062 

la 0iet« 

15 01878 

16 0l«7a 

17 01108 



10 

14 01106 

28 01110 



23 01126 
211 

25 01130 

26 811311 

27 0iia0 
20 OllHI 



.SBTTL t/0 INTERRUPT PROCESSING ROUTINE 



00II7S7 



I 
I 

I* 
I 

I A/0 INTERRUPT 

I 

iOCINTi 

JSR 



PROCESSING ROUTINE 



013703 

000800S 

012737 
0000a0 
0080000 
105737 



081006 

085037 tDCe2l 
8088880 
185837 
000000G 
000137 t0C89| 



832767 tOCSil 

088018 

176712 

00iaie 

016702 
1766711 
016762 
176702 



811262 

000806 
000756 



nov 



8NE 
CLR 

CLRB 

JHP 

BIT 



SEO 

MOV 



MOV 
SR 



ei67U6 AOC03I HOV 

176662 

016702 HOV 

176658 

001737 tOCOai JSR 



SIT 



832767 

08e88a 

176616 
801111 
085237 
080088G 

31 01160 105737 «OC06I TSTB 

000000G 

108375 

013703 

008000G 

001737 



2« 01152 
38 81151 



32 81161 

33 81166 



SEO 
INC 



BPL 

HOV 



JSR 



PC.MREGSiV 
••LPStOB>R3 

•18,*|I|.PS«0 



ADC 81 
••kPSAD 

••RTSON 

••RESTOR 

•tO.RTSHOO 



iSAVE R8> R2 AND R3 ON STACK 

IREAD IN SANPLE IN CASE HE 

(NEED IT UA7ER. 

(DISABLE 'CLOCK OVERFLON ENABLE" 

IRTS OPERATION IN PROORESST 

(YES 

(DISABLE A/0 AND EXIT 

((USED PRINARILY BV DHA OPERATIONS) 

(RESTORE REGISTERS AND EXIT 

(DMA REQUEST FINISHED (If ONE HAS 



ADC83 
RTSBUF)R2 



( 

(NO 



PREVIOUSLY STARTED)? 
(DMA IS DONE, ALLOH ARRAY TO BE 
RTSEND#PUT(R2) ( ACCESSIBLE. 



(R2),GET(R2) 

A0CB2 

RTSNSCc(SP) 

RTSBUF>R2 

PC.MSTODAT 

•I.RTSMOD 



ADC05 
••LPSAD 



••LPSAD 



A0C86 
••LPSADBiR3 



PCPHSTOOAT 



(DISABLE A/D AND EXIT 
(NBR OF P0IN7S TO PROCESS 
(HHERE TO STORE RESULTS 
(STORE 1ST SAMPLE 
(DUAL SAMPLE AND HOLOt 

(NO 

(YES( READ IN 2N0 SAMPLE AMD STORE IT 

(HAIY FOR IT 

(SET A/D RESULT 
(STORE IT 



^1 



^^i 



k: 
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35 81176 

36 01208 

37 01202 



39 01211 

10 01216 

11 01222 
12 

13 01221 
11 01226 

15 01232 

16 01231 



17 01212 000711 

10 

19 

50 000001' 



005316 ADCOSt 

003111 

062737 

000101 

000000G 

105737 AOC00( 

0000086 

100375 

013703 

000008G 

000716 

I 
005726 AOC07I 
005367 
176568 
003711 
016737 
176561 



DEC 
BLE 
ADO 



TSTB 



BPL 

MOV 



TST 
OEC 



9LE 
HOV 



BR 
,ENO 



(SP) 

AOC07 

•a81,«*LPSAD 



MLPSAO 



A0C88 

••LPSADSiRS 



(SP)t 
RTSNPT 



AOC02 



(ALL SAMPLES TAKEN? 

(YESi TERMINATE THIS SET 

(GO TO NEX7 CHANNEL AND START CONVERSION 



(HAIT FOR IT 



(GET RESULT 

(STORE IT 

(CLEAN UP STACK 
(ALL POINTS TAKEN? 

(YES( STOP EVERYTHING THEN 



RTSCSR, MLPSAO (RESTORE A/0 STATUS REGISTER 

(RESTORE G.P, REGISTERS AND EXIT 



(END OF MODULE PI 



^ '4, 



LPSl vm-Bi 
SVM80I. TtBLt 



BT-ll M»c»0 yMB2.09 16-0CT-70 mi5»l5? »»ttE '♦ 



toe eeii»st"iG 

ioce: et>iu»»i> 

IDCej 1)111 ITtx 
• OCBt Bflil'"" 
>0C2 UOCt't'lH 

DEC : IfVlluef 
CKCHGNs **•«*• G 
CNT l!»m<26B 

ORSMPTs *»*•«* G 
ENTEHPs •••••* G 

ER»»»G» •••••• G 

EVAL s ****•• G 
FLOAT s ****** G 
GETBUFs ****** G 
GETV s •*••*• G 
INT » ****** G 
UEOolO tifltiM 
LEOOES Jwaf-jn" 
LEOl ilPneiJI 

LEOu 0vi)bbeM 

LP510 » ****** 6 
UPSOH « ****** G 
MAXA (ti!0^tl(1U 

NOHSGNa ****** G 
POUHET* l^t^tnju 
MEGSAVs ****** G 
RETUHha (1K)?P7 
RTSCSB f(HtHaD 
UTSNPT ei^evija 
HTSSC y/Htl«R 
RTSdi CeOJOoP 

RTSOS Hi^^iulaw 
HTS»6 ei-BifJ" 

Rfl sX0(fU(-p>^ 

RJ SXlHlUl-eJ 

SAveH2s *••**• p 
SP sXBt't-i'e* 

STOOATs ****** R 
TABLE s ****** G 

,co**HAs ****** a 



lOCtNT BBltfUeR 
AOC03 0011 JBR 
AOC(}b ABUbBR 

AOCXt JBltlTllR 

9A0 s i)BBfll« 

BLANK BBBBaeR 
CKCOMAS ****** G 
CONHCOs ****** G 
ORSON 5 ****** G 
ERBUF a ****** G 
ERRPDt> ****** G 

FACi : ieieue 

GET > 0pl9Pa6 
GETOATs ****** G 
GETVARs ****** G 
INTST » ****** G 
LtOOTl 0Pa77""R 
LEOSTO l»t)B756R 
LEOa iHileJJR 

LEOS flffBbbbR 

LPSAOba ****** 
LPSIP » ****** G 

xINus oeii«a7R 
PC ixetrnttti 
PS » 17777b 

RESTORE ****** G 
RTS iJB^lSbRG 

RTStND itiWilu 
RTSNSC v*0ifMlbR 
RTSblB 0itvt3aPR 
RTSC} BeaS7«R 
RTSitb BtlBaiUR 

RTSli^ 8H»b<12P 

m »x»eaP!ii 

Ra :>ll(l0f0o 

SAVFACs ****** 6 

ssiSAvs semiu 

STORXTs ****** G 
T'i 3 3till»l,2 

,LPAR s ****** G 



ADC01 BiailSKIR 
ADCOa nttlUBR 
AOCOT aai22llR 
AOCl a«BlJJR 

BCDON s ****** G 
BUFRES* .*»»** G 
CKRPARs ****** G 
DEL : B«<<ltll2 
END > fwen 
EHNOR • ****** G 
EHPSVNs ****** G 

FAC2 • iea^m 

GETAOOt ****** G 

GETNUMs ****** G 

MlSTONs ****** G 

LEO «Hf!5b2RG 

LEDOUT Ba0722R 

LEOXT ()Bfl772R 

LEDJ aMab52R 

LEOb «ii»B67iiR 

LPSOHAS ****** G 

LPSIVAS ****** G 

NAHRAVs ****** G 

POLENTs ****** G 

PUT 3 BflSI0(IU 

RESTR21 ****** G 

BTSHUF a(<«»lfR 

RTSMOO flBB02(<R 
PTSON = ****** G 

RTSlil BaOJJCR 

RTSaa a<>»auiB 

HTSH7 «a»ttb"P 

RTSIB tieilS5bR 
R2 SXIiMHtli 

R% itOllBXeS 

SAVINT« ****** G 
SS2SAVS B.^<)P2b 
STOVARs ****** G 
<ARSAVs 0tltl«22 
,RPAR » ****** C 



. AHS, 4?y0nw^' k*PH 

ERRORS DETECTEO! » 
FREE COPE! llti'SO, i"ORns 

,LP!«LPS1 



.30 



LPSJ vei-ai RT-ii MicKo vmbj-b? u-oct-to gameijB p»ce i 



1 

2 

3 

4 

s 

6 

7 

9 

9 

ID 

11 

12 

U 

10 
15 
10 
17 
1» 
19 
20 
21 
22 
23 
2a 
25 
26 
27 
26 



TITLE U»'S2 VBl-ai 
.S8TTL LPS "OOULE «2 



0EC-11-LSEX«.B-L»J 



BASIC KEHNEL Vil2-01 
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DEC ASSUMES NO RESPONSIBILITY fOB ANY ERRORS THAT 
HAY APPEAR IN ThIS DOCUHENT. 
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.SBTTL CONTENTS OF HOOULE •2 
THE FOLLO"ING COMMAND PROCESSORS EXIST IN THIS MOOULEl 

SETR 
SETC 
HIST 
•NAIT 



3> 



LPtl V(t>ll 



RT-11 MtCIIO VHI2>B« U*0CT-7« a2i«ii>a p«ec > 



I 

2 

> 

a 

s 

» 

7 

a 

9 

la 
tl 

12 
13 

la 
IS 
16 
17 

la 
11 
2a 

21 
22 
23 

2a 

25 
2t 
27 
2a 
24 
38 
31 
32 
33 

3a 

35 

36 



,aBTTL PRoeixM eioatLS 

SlOatka DESUIRED FOR COMHUNICtTJON HITH THE aiaiC 
INTRERRETER. 

iCLOai ERRPOL<ERRSril.ERR*Re 

.SLOBL EVtL.GCTVtR.STOVtR 

,GL08L INTi,CQMH«,,RPlR 

iSLOei NUNaSN,,LPtR|i:R>SMkR 

.GCOBU iPOLSH 

CLOe«ua REQUIRED FOR COHMUNICATlONa WITH THE VtRIOUa 
UPa H00ULE3, 



.GLoat 
.eLoai. 
.cioaL 

.GLOai 

.Gkoau 

.GCOaL 
.SLOBL 
.GLOai 
.GkOaL 

.cioaL 
.SLoai 



TtaLE 

POLENT 

CKCHGN 

GETeuF 

STORXT 

CKCOMA 

GETO*T 

9«VER2 

REBTOR 

CONBCD 

StVINT 



NtRRir.FLOiT 
'.GETtOOiGETNUH 
1,1NT5T,GETV 
,REG9ly,ERN0R 
,CKRP1R,ERBUF 
iENTERP,9T0D<T 
,RT80N,DRaON 
<.S«VF*C,REaTR2 
l,HZ8T0N,BCDaN 
'.aUFREBiDRBNPT 
(ORBBUr 



CLOBtLB REQUIRED FOR COHHtNO PROCESBORB 

iGLOBL SETR.BETC,HIST,H«IT 
GLOatLB FOR DEVICE «DDREB8EB 

iGLOBL LPBCKS,LP8PB,LPBDR8<kPSDIB 

GL0B«I.8 FOR INTERRUPT PRIORITY *ND VECTOR DEFINITION, 
iClOBL CKLIVt.CKLIP 



LP82 Vai-Bl 



RT>|1 KtCRO VHe2-a« l6-0CT-7a 8218(138 PtGE « 



1 
2 
3 

a 

5 

6 

7 

8 

9 

18 

11 

12 

13 

la 

15 

16 

17 

18 

14 

28 

21 

22 

23 

2a 

25 

26 

27 

2a 

24 
30 

31 
32 
33 
3a 
3S 
36 
J7 
IB 
34 8888(1 

aa 88882 
ai 888ea 
aj 
as 
aa 
as 

aa 88886 
aT 88818 
aa 

aa 88812 
88813 
58 



888888 
888881 

888882 
888883 

88888a 
888885 
888886 
888887 



177776 
888287 

aeaisa 



) ,8BTTL REGI8TER «8StGNHENTS «ND ESUtTES 

I 

R8 • >8 

Rl • >1 

R2 • X2 

R3 • X3 

Ra • xa 

R5 • X5 

SP • X6 

PC • X7 



888822 

88882a 
888826 
8888a8 
88e8a2 
8888a6 
888862 



t GENER'L EaU«TE8 

I 

PS • -2 

RETURN > 287 

POLRET • 13a 

I 

I BtSIC U8ER'8 EOUtTEB 

I 



VtRBtV 
SSlStV 
SS2S1V 

F»C1 
FAC2 
RISAVE 
T3 



22 

2a 
26 

as 
a2 
a6 

62 



I BUFFER DESCRIPTOR EQUATEB 



888888 BEG 
888882 END 

aaaeaa put 

888886 GET 
888818 BAD 
888812 DEL 

I 

I LIHIT 

I 

MAXCl 



888887 
177777 



,HOR0 
,l<ORD 
I'ORD 



2 

a 
6 
18 
12 



7 
7 
177777 



I 
I 

I NON-REENTRANT VARIABLEB 
I 

BSTNPTi .HORO a 
HSTBUFt ,>IORD I 

CKSTFGi .BTTE 8<a 



tPB • PROCEBBOR STATUS kORD 
(287 ■ RT8 PC 
lUa • JHP ((Ra)* 



IVAR SAVE FOR ABBIGNHENT 
ISSI SAVE FOR ASSIGNHENT 
1882 SAVE FOR ASSIGNMENT 
(HIGH ORDER FLOATING VALUE 
ILO* ORDER FLOATING VALUE 
IRI SAVE LOCATION 
(SHORT TERM TEMPORARY 



(OFFSET TO BEGINNING OF BUFFER POINTER 

(OFFBET TO END OF BUFFER POINTER 

(OFFBET TO PUT DATA POINTER 

(OFFSET TO GET DATA POINTER 

(OFFSET TO BAD DATA FLAG 

(OFFSET TO DISPLAY DELTA X 



(7 
(7 
(65535 



(HIST COMMAND (NBR OF POINTS) 

(HIST COMMAND (BUFFER DESCRIPTOR 
( AD0REB8) 

(CLOCK/STai FLAGS FOR HAIT COMMAND 



3^ 



y- 



LRS2 V0t-01 
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I 
2 
} 
« 
5 

7 

a 

9 

10 

11 

12 

1} 

la 

15 

16 
17 

la 
n 

20 
21 
22 
23 
2« 
25 
26 
27 

2a 

29 

30 

31 
32 

33 

34 
35 

36 

37 
38 

39 

•0 

«1 

42 

13 

ait 00014 

«S 00014 



46 liiU 

47 00030 



48 

49 08036 



,8BTTL "aETR* CONHtNO PROCEiSOR 



012737 
000540* 

00e000C 

012737 

000240 

000000G 

012765 

000000' 

000062 

004737 



■SETR" COMMAND PROCESSOR 

B»81C FORMI CAtt "SETR'tRATt, MODE, PRESET) 

PURPOSEl SET CLOCK RATE WllL SET TME CLOCK RUNNINS AT THE 
OESIGNATEO "RATE" AND IN THE SPECIFIED 
■MODE'i THE 'PRESET' VALUE IS THE CLOCK COUNTER 
VALUE. THE INTERRUPT ENABLE NILL ALMATS SE 
SET TO A ONE. 

VALUES OF "RATE" 

NO RATE SELECTED 

1 1 MHZ 

2 100 KHZ 

3 IB KHZ 

4 1 KHZ 

5 100 HZ 

6 SCHMITT TRISSER •! (MEANINSFUL ONLY 

FOR HIST OPERATIONS), 

7 LINE FREOUENCr (50 HZ OR 60 HZ) 

VALUES OP "NODE" 

SINGLE INTERVAL MODE, COUNTER COUNTS FROM 

PRESET VALUE TO OVERFLON AND STOPS, 

1 REPEATED INTERVAL HOOE, COUNTER COUNTS FROM 

PRESET VALUE TO OVtRFLOK, TRANSFERS 
BUFFER/PRESET TO COUNTER, AND BEGINS 
AGAIN. 

2 EXTERNAL EVENT TIMING MODE. THE COUNTER IS 

FREE RUNNING, AND A PULSE FROM ST 42 HILL 
TRANSFER CONTENTS OF COUNTER TO BUFFER/ 
PRESET AND THEN CONTINUE COUNTING, 

3 EVENT TIMING FROM ZERO BASE HODE IS THE 

SAME EXCEPT THAT tlHEN THE TRANSFER OF THE 
COUNTER TO THE BUFFER/PRESET IS DONE, 
THE COUNTER IS CLEARED AND THE COUNT BEGINS 
FROM ZERO, 
MaDE*4 START CLOCK ONLY HHEN ST't FIRES. 

lENTRV POINT TO PROCESSOR 
»CKLINT,»«CKLIVA (INTERRUPT ENTRY POINT. 



•240,P«CKLIP (PROCESSOR PRIORITY. 

•MAXC,T3(R5) (FOR LIMIT TESTS ON RATE, MODE, AND 



SETRl 



PC,»«POLENT 



t AND PRESET, 

■ENTER POLISH MODE AND CHECK 



FOR ENOUGH AREA TO IIORK 



\ 



^ 



LPS2 V0 


-0! 










S3 00042 


0000000 


54 00044 


0000000 


55 00046 


000000G 


56 (10050 


000000G 






58 00052 


0000000 


59 0ee54 


e00000G 


60 00056 


000000G 


61 00060 


000000G 


62 00062 


000064' 


63 00064 


205037 
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64 00070 

65 00074 

66 

67 00102 

68 00104 

69 00106 

70 00110 

71 00112 

72 00116 

73 00122 

74 00124 

75 00130 

76 00134 

77 0B1J4 

78 00140 

79 00142 

30 00146 

81 
82 
83 



005465 
000042 
016537 
000042 
0000006 

012600 
012602 
006302 
000300 
052700 
000101 
032700 
002000 
001404 
042700 
002001 
052700 
020000 

105067 
177652 
050002 
010237 

000000G 

000137 

000000G 



SETRll 



♦GETNUH 
UNTST 
tSAVINT 
tCKCMGN 

♦INT3T 

•SAVINT 

tCKCMCN 

UNTST 

,*2 

CLR "LPSCKS 

NEG 



FAC2(RS) 
FAC2(R5),P«LPSPB | 



I HITH AND THAT FIRST TOKEN 

I IS INDEED A LEFT PARENS. 

(GET "RATE" IN COHMAND 

lINTEGERIZE IT AND TEST <>7 

(SAVE IN ON THE STACK 

(CHECK NEXT TOKEN EOUAL TO A COHMA 

( AND GET NEXT NUMERIC ("MODE") 

(INTEGERIZE IT AND TEST <>7 

(SAVE RESULT ON THE STACK. 

(CHECK NEXT TOKEN EQUAL TO A COHMA 

( GET NEXT NUMERIC, AND TEST <a65535. 

(LEAVE POLISH HODE 

(TURN OFF CLOCK MOMENTARILY 

(TAKE TWO'S COMPLEMENT OF THE PRESET 



VALUE AND ENTER INTO THE BUFFER 



MOV 
MOV 
«SL 

SNAB 
BIS 


(SP)»,RO 

(SP)*,R2 

R2 

R0 

•101, RB 


BIT 


•2000, R0 


BEO 
BIC 


SETRl 
•2001, R0 


BIS 


•20000, R0 


CLRS 


CKSTFG 


BIS 
MOV 


R0,R2 
R2,MLPSCKS 


JHP 


••CKRPAR 



I PRESET REGISTER, 

(GET MODE 

(GET RATE 

(NORMALIZE TO BITS 01-03 OF UORD 

(PUT MODE IN LEFT BYTE 

(ASSUME NO ST«1 CLOCK STARTS 

(ST •I REQUESTED? 

(NO 

(CLEAR OUT ST BIT AND START BIT 

(ADD IN REAL ST BIT IN STATUS REGISTER 

(CLEAR CLOCK FLAG BEFORE STARTING 

(COMBINE MODE * RATE * ST»1 « START 
(NOH START UP CLOCK 

(CHECK LAST TOKEN EOUAL TO A RIGHT 

( PARENS AND RETURN TO THE BASIC 
( INTERPRETER, 



33 



kPS2 vat>«i 



RT-U NtCRO VM(i-B9 t6-0CT-;a (JiMlla R4CE » 



1 
2 

> 

« 

* 
7 

a 

» 

le 

II 

12 

>l 

14 
IS 
It 
IT 

la 
1» 
2a 

21 
22 
23 
2<l aai52 

2S gaiS2 



27 aBt66 



2a aaiT* 

2« 

3a 

31 

32 ea2aa 

33 aa2a2 

3« aa2a« 
3S aa2a6 

3« 

37 

3a aa2ia 
3* aa2i2 

•a ea2t6 



112 aa226 
m aazja 



•a 88231 
as 88236 



.saTTk Mere* coNHtNo pRoccaaoR 



>9ETC* CONMANO RRoceaaoR 

BtSIC FORHl C«kL •aErC'(R«TE,TIHC) 

PURPOSEl SET CLOCK TO THtT SPECIFIED BY 'RiTE' tNO •TtXE', 
THE CLOCK STtTUS REEISTER IS SET TO 'RtTE' AND 
WILL RUN FOR 'TINC SECONDS, « CLOCK INTERRUPT 
NILL THEN OCCUR HHICH N«y BE USED TO INITIiTE 
ANT OF THE CLOCK CONTROLLED FUNCTIONS, THE 
TINE ARGUHENT IS EVALUATED AS TICKS ■ TINE IN SECS 
TINES CLOCK RATE SPECIFIED IN ■RATE', E,e, IF 
CLOCK RATE HAS I8KHZ, THEN TICKS p TIHE IN SECONDS 
TINES IBKHZ, THE 'TICKS' ARE ENTERED INTO 
THE CLOCK PRESET/BUFFER REGISTER, THE CLOCK 
ALNATS RUNS IN NODE ZERO, 

LEGAL VALUES OP RATE AREl 4, S, AND 7 CSEE SETR 

FOR EXPLANATION OP NODES), 



812717 

8885118' 

888888G 

812737 

8882118 

8888880 

8127t5 

888882* 

8aaat2 

884737 

aaaaaaG 



aaaaaaG 

aaaaaac 
aaaaaaG 

8888880 



888212' 
8lai6S 
88884* 
885837 

aaeaaae 

821t27 

eaaaaa 

882451 
821627 
888886 
881446 
886316 



8ETCI 



NOV 



•CKLINT,8»CKLIVA 



pENTRV POINT TO PROCESSOR 



NOV •24aiMCKLIP 
NOV •NAXC*2,T3(R$> 
JSR PCPtPOLENT 



«GETNUN 
♦1NT8T 
tSAVINT 
tCKCHGN 




• •2 

NOV 


RI.RtSAVE(RS) 


CLR 


••LPSCKS 


CNP 


(SP),»« 


BLT 
CMP 


ERARG 
(SP),«6 


SEO 
• SL 


ERARG 
(SP) 



(LIMIT TESTING OP "RATE" AND "TINE" 



(ENTER POLISH MODE AND CHECK 

I FOR ENOUGH AREA TO MORK 

( WITH AND THAT FIRST TOKEN 

I IS INDEED A LEFT PARENS, 

(GET 'RATE' FROM COMMAND 

lINTEGERIZE AND TEST <• 7 

(SAVE RATE ON STACK 

ICHECK NEXT TOKEN EOUAL TO A 

I CONHA AND GET NEXT NUNERIC 

I FROM COMMAND STRING, ('TIME'), 

(EXIT POLISH MODE 

tPERSERVE Rt 

ITURN OFF CLOCK MOMENTARILT 

IRATE MUST BE NODES 4,S, OR 7 

(ILLEGAL RATE SPECIFIED 
(RATE OP k IS ALSO ILLEGAL 



(RATE • RATE • 2 (TO POSITION IN PLACE 
( FOR THE CLOCK STATUS REGISTER). 






4, 
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47 88248 
4S 08242 
49 882U4 

58 88258 

51 88254 

52 88268 

53 88262 

54 88264 

55 88278 

56 88272 

57 88274 

SB 88388 
54 88382 

68 88384 

61 88318 

62 88314 

63 88328 

64 88322 



66 

67 88334 

68 88336 

64 88342 

78 88346 

71 
72 
73 
74 
75 88352 



811682 

885846 

816246 

888346' 

816546 

888842 

816546 

888848 

881885 

885726 

8e4li}7 

88e888G 

888e88G 

888274' 

8841137 SETCll 

8888880 

8888880 

888384' 

812665 

888848 

812665 

888842 

884737 

8888880 

888888G 

885465 

888842 

816537 

888842 

8888880 

812682 
812788 
888181 
816581 
888046 
888167 
177562 



MOV 
CLR 

MOV 

MOV 

MOV 

BNE 
TST 

JSR 

«SIR 
,*2 

JSR 

tSMLR 
.*2 

MOV 

MOV 

JSR 

•INTST 
NEG 



MOV 
MOV 



(SP),R2 (CONVERT CODE TO A FLOATING POINT NUMBER 
"(SP) (2ND HALF OF FP« IS ALHAVS ZERO 

FPNBR.la(R2).-(SP) 



"OV 

JHP 



888137 ERARG) JMP 



88356 842572 FPNBRI 
88368 841718 
88362 888888 



76 
77 
78 
79 

Ba 

SI 88364 841518 

82 

S3 

B4 

S5 

S6 



,MORO 
,ENDC 
.IFDF 
.MORD 
,ENDC 



FAC2(RS),>(SP) 

FAC1(R5),-(SP) 

SETCl 
(SP)» 

Ra,P4SP0LSH 

R4,««SP0LSH 

(SP)«,FAC1(RS) 
(SP)«,FAC2(RS) 
PCMENTERP 



(PUT "TIME" ON STACK 



(TIME IS ALREADY FLOATED 
(FLOAT 'TIME" 



(EXIT POLISH MODE 



(MULTIPLY 'TIME' • "RATE' 
(EXIT POLISH MODE 
(PUT RESULT IN FAC 



(INTERGIZE AND NEGATE NUMBER 



FAC2(R5) 

FAC2(RS),P«LPSPB (PUT INTO BLOCK BUFFER/PRESET 



(SP)»,R2 
'lai.Ra 



R1SAVE(R5),R1 

SETRl 



••ERRARG 



( REGISTER, 

(GET 'RATE" 

(CLOCK * INTERRUPT ENABLE BITS 

(RESTORE Rl 

(START UP CLOCK AND CHECK LAST 



TOKEN EOUAL TO A RIGHT PARENS, 
THEN RETURN TO THE BASIC 
INTERPRETER, 



.MORD 
,>IORD 
,NORD 
,IFNDF CYC5B 



842572 

841718 



a«i5ta 



CYCSa 
aaisaa 



(ILLEGAL ARCUHENT 

(FLOATING POINT 1888 
(FLOATING POINT laa 
(FLOATINC POINT I 

(FLOATING POINT 68 
(FLOATING POINT SB 



JV 



\ 
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I 
2 
> 
a 
5 
6 
7 

a 

9 
IS 

u 

12 
13 

Id 
IS 

u 

19 00166 



I* 00174 

20 

21 00400 

22 
23 

24 

2! 00404 

26 

27 

28 00406 

24 00410 

30 00412 

31 

32 

33 00414 

34 00416 

35 00420 



36 00426 

37 00412 
30 00436 

3* 

40 
41 



.9BTTI 'HIST* COKHtND PROCCSSOR 



I 
> 
I 
I 
I 
I 
I 
> 
t 
I 
I 
I 
I 

m 

012765 

000004' 

000062 

10S067 

0000006 

004737 
000000S 



•HIST" COMHINO PROCESSOR* 

BASIC PORHI C«LL "HlST'tSUP.NPTS) 

PURPOSEI H18T0GR«H - TINEO SCMMHT TRIGGER, THE MIST FUNCTION 
INPUTS "NPTS" V»LUEJ FROH THE CLOCK PRESET/BUFFER 
INTO THE SPECIFIED SUFFER, BUF, NHEN ST «2 FIRES, 
THE CLOCK NODE MUST BE PUT IN 2 OR 3 TO BE MEANINGFUL, 
THE RDS FUNCTION IS USED TO RETRIEVE THE DATA, 
THE BUFFER IS ALWAYS CIRCULAR AND THE DATA POINTERS 
INITIALLY RESET BEFORE THE SAMPLING BEGINS, 



0000006 

000420' 

016S67 

000042 

177360 

012667 

177J56 

105267 

000000G 

000137 

000000G 



»MAXC»4,T3tR5) 



HISTON 



PC,»«POLENT 



«SETBUF 



«BUFRES 
«SAVER2 

»CKCMGN 



♦INTST 
.♦2 

MOV 



(ENTRY POINT TO PROCESSOR 
IFOR LIMIT CHECKS ON NPTS 



iTURN OFF ANY PREVIOUSLY INITIATED 



) HISTOGRAM SAMPLING, 
(ENTER POLISH MOOE AND CHECK 



I FOR ENOUGH AREA TO HORK 
I HITH AND THAT FIRST TOKEN 
I IS INDEED A LEFT PARENS, 
(GET BUFFER ADDRESS FROM COMMAND 
I AND CHECK IT AGAINST THE 
I DEFINITION TABLE, 

(RESET BUFFER POINTERS 
(SAVE BUFFER ADDRESS 
(CHECK NEXT TOKEN EQUAL TO A COMMA 
( AND THE NEXT NUMERIC FROM 
( FROM THE COMMAND, ("NPTS") 
(INTERGIZE RESULT AND TEST <>6553S 
(LEAVE POLISH MODE 
FAC2(RS),HSTNPT (SAVE •NPTS* 



MOV (SP)«,HSTBUF 
INCB HISTON 
JNP (aCKPRAR 



(GET BUFFER DESCRIPTOR ADDRESS 

(ARM TIMED SAMPLING 

(CHECK NEXT TOKEN EQUAL TO RIGHT 

( PARENS AND RETURN TO THE 
I BASIC INTERPRETER, 



LPS2 V01-01 



^ 
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1 
2 

3 

4 
5 

6 
7 
8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 00442 

19 00442 012765 



20 00450 



,9BTTL "UAIT" COMMAND PROCESSOR 



'WAIT* COMMAND PROCESSOR 



( BASIC FDRMI 

I 

t PURPOSE 



CALL "WAIT*<N) 



WAITl 



DISABLE FURTHER PROGRAM EXECUTION AND WAIT UNTIL 

THE SPECIFIED EVENT "N* OCCURS, "N" IS DEFINED 
AS FOLLOWS) 

NS0 WAIT FOR CLOCK OVERFLOW 
N»l WAIT FOR ST «1 TO FIRE 
N>2 WAIT FOR N'0 OR N't 
N>0,1,2 RETURNS IMMEDIATELY 



000062 
004737 
000000G 



0000006 

0000006 

000462' 

026527 

000042 

000002 

101015 

012702 

000012' 

016500 

000042 

eemu 

005202 

006000 

103407 

005767 WAIT3I 

177274 

001775 

005067 

177266 

000137 WAIT4I 



»M4XC«4,T3(R5) 



PC,»»POLENT 



21 
22 

23 

24 00454 

25 00456 

26 80460 

27 00462 



28 00470 

29 00472 

30 00476 

31 90502 

32 00504 

33 00506 

34 00510 

35 00512 

36 00516 

37 00520 

38 00524 



39 
40 

41 90530 105712 WAITII 

42 00532 001776 

43 00534 105012 

44 00536 000772 

45 I 



tGETNUM 

♦INTST 

>*i 

CMP FAC2(R5),»2 



BHI 
MOV 



BEQ 
INC 
ROR 

acs 

TST 

BEQ 
CLR 



WAIT4 
•CKSTF0,R2 

FAC2(R$),RB 

WAITl 
R2 

R0 
WAITl 

CKSTFG 

WAIT3 

CKSTFG 



rSTB (R2) 

BEG WAIT! 

CLRB (R2) 

BR W4IT4 



(ENTRY POINT TO PROCESSOR 
(FOR LIMIT TESTS ON N 



(ENTER POLISH MODE AND CHECK 

( FOR ENOUGH AREA TO WORK 

( WITH ANO THAT FIRST TOKEN 

I IS INDEED A LEFT PARENS, 

(GET "N« 

(INTEGERIZE IT 

(LEAVE POLISH MODE 

(N>2 ALWAYS RETURNS IMMEDIATELY 



(ADDRESS OF CLOCK/ST FLAG 

(GET "N* 

(N61 MEANS CLOCK OVERFLOW 
(ASSUME ST FOR NOW 
(N«l MEANS ST OVERFLOW 

(Na2 MEANS ST OR CLOCK OVERFLOW 

(CLEAR ALL FLAGS NOW 

(CHECK NEXT TOKEN EQUAL TO A 

I RIGHT PARENS ANO RETURN TO 
I THE BASIC INTERPRETER, 
(WAIT FOR SPECIFIED FLAG ONLY 

(CLEAR FLAG FOR NEXT TIME 



3^ 



\.: 



.^ 



UPSJ VBl-»l «T.ll N4CH0 vnii.lf lk.0CT>7« MKItlt PikGE ♦ 



1 
i 

i 

» 
5 

k 

7 «eB5«) 

8 g0«s«0 

9 sees*' 



tl eessa 

12 ee55» 

13 ees6e 



15 e*ST2 

It ees7« 



t7 eiMi 

ta e«te6 

t* eette 

M let I a 

21 ««t2e 

22 eet2<i 

23 eei3e 

2a eetjz 



2t 0et«2 
27 aetaa 



2a eekS2 
2« eat5b 

3e aet62 

31 eetta 

32 aetre 

33 eet7a 
3« ea7ae 



,SI7TL UM CLOCK INTERRUPT ROUTINE 



LPS CLOCK INTERRUPT ROUTINE 



CKUINTI 
eeilT37 

aaeeaac 

0l27ae 

aeeeii' 

1B5737 

eeaeeeG 

leaiiai 

ee«2ee 

is27ie cLKei 
eeaeet 

B32737 

eeiaaa 
eeeeeefi 
eetei3 
ea2737 

eB1717 
BBBBBBC 

taS7t7 CLK4I 

BBBBBBG 

BB|a|3 

B137B3 

BBBBBBG 

ait7B2 

177170 

eB«737 

BBBBBBG 

B0S367 

177156 

0BIB02 

lB5Bt7 

BB00B0e 

1B5737 CLKll 

BBBBBBG 

iBe023 

052737 
0B0BB2 
BBBBBBG 

B137B3 

BB00S0e 

105737 

0000BeS 

001BB2 

BBa737 

BBBBBBG 

ei37B2 CLK3I 

0000006 

B0«737 

B00000G 

005337 

0000000 



JSR 

HOV 

rSTB 

BMI 
INC 
BIBS 

BIT 



BNE 
SIC 



TBTB 

BEG 

MOV 

MOV 

JSR 

DEC 

BNE 
CLRB 



BPL 
BIB 



MOV 

TBTB 

BNE 
JBR 

MOV 

JBR 

DEC 



PCiMREGBay 

•CK8TFG,RB 

••LP8CKS 

CLKB 

RB 

•l.(RI) 



)81VE Ra> R2, <ND R3 ON BTACK 

IBET ST/CLOCK PL<G 

(HtB THIS k CLOCK OVERPLOM? 

tVEBl BET CLOCK FLAG 

)8ET 8T FLAG 

iBET APPROPRIATE FLAG 



•t«B8>PBLPaCKB (MOOE ZERO OPERATIONT 



CLKt 
«I71T>*«IP3CKS 



HISTON 

CLKI 
••kPSPB.R] 

HBTBUF,R2 

PCPfBTOOAT 

H8TNPT 

CLKI 
HISTON 

••ORSON 

CLK2 
•2<^^LPS0RS 

••LPSDI«>R] 

••BCOON 

CLKS 
PC.PtCONBCO 

••0RSBUF.R2 

PC.P«ST0OAT 

••ORSNPT 



INO 

»rEBl DISABLE CLOCK THEN 

(HIST OPERATION IN PROGRESSt 

tNOl TEST DRS THEN 

tREAO PRESET/BUFFER REGISTER 

(GET HIST BUFFER ADDRESS 

(STORE DATA IN USER'S SUFFER 

)ALL POINTS TAKENT 

I NO 

(CLEAR HIST DONE FLAG 

(ORB OPERATOR IN PROGRESST 

(NOl EXIT 

(READ DIGITAL INPUT REGISTER 



(CONVERT TO BCD? 

(NOl TREAT AS A PURE BINARY NUMBER 
(CONVERT TO BCD 

(GET DRS BUFFER ADDRESS 

(STORE DATA IN USER'S SUFFER 

(ALL POINTS TAKEN 



•]v 
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35 BB7B* BeiBB2 
3t 0070b 105037 

0000006 
37 00712 000137 CLK2I 

BBBBBBG 
30 ( 

34 000001' 



BNE 
CLRS 



,END 



CLK2 
••ORSON 



(HO 

(CLEAR DRS DONE FLAG 



(RESTORE REGISTERS AND EXIT 

(END OF MODULE •2 



^ 



I-.' 



SYHSOk TtBLE 

BAD • MW19 
BUFRESa •••••• 6 

CKtiNT geesuBR 

CKRPAR* •••••• 6 

CLKt eae6}6i) 

CLKii aesteiR 

DR9sur> •••••• G 

END • geeeez 

ERSUF • •••••• S 

ERRPOLs •••••• S 

Ftci • eeeeiie 
FPNSR g0g}5*H 



SETBUFa 


•*•«** G 


GETV • 


*•*««* 6 


HISTON* 


••••*• G 


INT I 


•••••• G 


UPSDIBi 


««**** 6 


H«<C 


BBBSBBR 


PC ■ 


leeBBBT 


PS • 


177776 


RESTORl 


•**•** G 


RTBON • 


****** G 


RlBtVEi 


leeeub 


R« • 


iBBesga 


SlVFtC* 


****** G 


SETCl 


BB02TaR 


SP • 


iBBaset 


STOOtTi 


****** G 


TtBLE • 


****** G 


««IT 


eBBoazRG 


NtlTa 


esasiaR 


SPOLSHa 


****** G 


.RPtR a 


****** 6 


, »B8. 


aBeBB0 




Bee7i6 


ERRORS 


DETECTEOl 


FREE COREl 181»7 
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BEG a aeegaa 

CKCOHta ****** G 
CKk2Vta •*•••• G 

CLKa ggasMR 
ckKJ gggtrgR 
OEt • ggggi: 

ORSON a ****** G 

ERtRG gagjssR 

ERRARGb ****** G 
EVAt a ****** G 
FLOAT a ****** G 
GETADDa *•«*«* 6 
GCTNUNa *••••• G 

HtST geg3t6RG 
HSTNPT gggggbR 

LPSCKSa •«••*• G 
LPSPB a •*•••* G 
NUNSGNa *•*••* G 
POlRETa gagi]« 
REGSAVa ****** G 
RETURNa gggzgT 
Rl atggggei 
R3 axggggg} 

SAVERaa •***•• G 

SETC ggetsjRG 
SETRt gggtJoR 

SSZSAVa gggeik 

STOVARa •*•••* G 

VARSAVa ggggzz 

MAIT3 gggstiR 

SNLR a *••••• 6 
iLPAR a ••*«*• G 



BCOON • 


•••••< S 


ckchgnI 


***«•• G 


CtcUIP a 


****** 6 


CKSTFG 


ggggi2R 


CLK2 


ggg7i2R 


CONBCDa 


****** G 


ORSNPTa 


****** G 


ENTERPa 


****** G 


ERNOR a 


*•**•• G 


ERRSYNa 


****** G 


FAC2 a 


ggaeaa 


GET a 


gggge6 


GETOATa 


****** G 


GETVARa 


****** G 


HSTBUF 


ageaigR 


tNTST a 


****** G 


LPSORSa 


****** G 


NARRAVa 


****** G 


POLENTa 


****** G 


PUT a 


gggggo 


RESTRia 


****** G 


Rg a 


igggggg 


R2 a 


i0gggg2 


R5 a 


uggggs 


SAVINTa 


****** 6 


SETR 


gggaiaRG 


SSlSAVa 


ggggza 


STORXTa 


****** G 


TJ a 


g00e*2 


HAITI 


0g0Sj0R 


SIR a 


****** G 


iCOMHAa 


***•<* G 
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LPSi voi-ai 
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• 

* 

7 
S 
9 

te 
u 

12 
13 
la 
IS 
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17 

la 

19 
28 
21 
22 
23 
2« 
2S 
26 
27 
26 
29 
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31 
32 
33 
3a 
35 



I ,SBTTL PROGRtN GLORiLS 

I 

I GLOSttS REQUIRED FOR COHHUNICATtON WITH THE BtSIC 

I INTREPRETER, 

I 

.GLOBL ERRROL>ERRSrN,ERRtRG 

■GkOeL EV«L,GCTViR,STOV<R 

.GkOSL INT,,CONHl,,RPtR 

, GLOBL NUH9GN,,LPtR 
( 

I GLOBtLS REOUIREO FOR COHNUNICATtONS KITH THE VARIOUS 
I LPS HODULES. 
I 

.GLOBL TtBLE,N<RR<T, FLOAT 

, GLOBL P0LENT>GET«0Di6ETNUH 

.GLOBL CKCHGN.INTST.GETV 

.GLOBL GETBUF,REGStV,ERNOR 

.GLOBL STORXT.CKRPIR.ERBUP 

.GLOBL CKCOMA.ENTERPiSTODtT 

.GLOBL GETDATiRTSON, ORSON 

.GLOBL SAVER2,S>VFAC,RESTR2 

.GLOBL RESTOR.HISTON.BCDON 

.GLOBL CONBCDiBUFRES.DRSNPT 

.GLOBL SAVINT,0R9BUF 

GLOBALS REQUIRED FOR COHHAND PROCESSORS 

.GLOBL OIR, DOR, DRS, REL 
GLOBALS FOR DEVICE ADDRESSES 

.GLOBL LPSDRS.LPSOIB.LPSDOR 

GLOBALS FOR INTERRUPT PRIORITY AND VECTOR ADRESS. 
.SLOBL ORSIVA.DRSIP 
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.JBTTU 


RESUTf 


eoeeoe 


1 

R0 






a 


geeeai 


Rl 






s 


aeee02 


1)2 






6 


ezeaa] 


RJ 






7 


eaeeeti 


PI 






a 


eeegs5 


R5 






9 


eeeest 


SP 






10 


e«eea7 


PC 






11 




1 






12 




( OENER»L EQUATES 


u 




1 






u 


177776 


RS 




•2 


15 


800227 


RETURN 




207 


16 


00013a 


ROLRET 




13« 


17 




1 






16 




1 BiStC 


USER'S 


EQUATES 


H 




( 






it 


000022 


ViRStV 




22 


il 


000024 


SS13«V 




2a 


22 


000026 


SS2StV 




26 


23 


000010 


MCI 




«0 


2a 


000012 


F*C2 




12 


25 


000056 


Tl 




56 


26 


000060 


T2 




60 


27 


000062 


T3 




62 


2a 




1 






29 




1 BUFFER DESCRIPTOR EQ 


M 




1 






]1 


000000 


BEG 


■ 





32 


000002 


END 


■ 


2 


33 


000001 


PUT 


a 


a 


3< 


000006 


GET 


■ 


6 


IS 


000010 


BAD 


a 


10 


36 


000012 


DEL 


a 


12 


37 




1 






3a 




1 LIMIT 


TEST 




39 




1 






ae 


00000 177777 


MAXOl 


.HORO 


177777 


«1 


00002 000002 


HAXRl 


,«OHD 


2 


a2 




t 







REGISTER tSSIGNKENTS tN» ESUtTCS 



|PS a PROCESSOR STATUS NORO 
(207 a RTS PC 
1131 • JHP ((Ra)* 



)VAR SAVE FOR ASSIGNMENT 
ISSI SAVE FOR ASSIGNMENT 
|SS2 SAVE FOR ASSIGNMENT 
IMIGN ORDER FtOATING VALUE 
ILOH ORDER FLOATING VALUE 
ISHORT TERM TEMPORARY 
iSHORT TERM TEMPORARY . 
)SHORT TERM TEMPORARY 



(OFFSET TO BEGINNING OF BUFFER POINTER 

(OFFSET TO END OF BUFFER POINTER 

(OFFSET TO PUT DATA POINTER 

(OFFSET TO GET DATA POINTER 

(OFFSET TO BAB DATA FLAG 

(OFFSET TO DISPLAY DELTA X 



(6S535 

(2 
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1100737 
000000G 



I 
( 

DIR( 



7 

a 

9 
10 
11 
12 

13 
11 
IS 
16 
17 
18 
19 

20 S0001 

21 00001 

22 
23 

21 

25 00010 

26 00012 

27 00011 
26 00016 

29 00020 

30 00022 

31 00021 



32 00032 



33 00036 052626 
3a 00010 001002 

35 00012 001767 

000000G 

36 00016 001737 DIRll 

000000G 

37 000S2 001737 

00e000G 
36 00056 001737 



.SBTTL "D!R> COMMAND PROCESSOR 



I "DIR" COMMAND 

I 

( BASIC FORM) 

( 

iPURPOSEl READ 

I 



000021* 

052737 

000002 

000000G 

013703 



39 20062 000000G 

10 ^0061 0IR2I 

11 30061 813733 



12 00070 0IR3t 

13 00070 001737 

000000G 
11 00071 00('l37 

000000G 
15 
16 



tGETNUM 
•SAVFAC 
tCKCOMA 

♦ GETV 
tCKCOMA 

• •2 
BIS 



CALL 'DIR'CN.VARfNEMCSR) 

DIGITAL INPUT REGISTER, IF Na0, INPUT IS 
FOUR BCD DIGITS CONVERTED TO FLOATING POINT, 
IF N«0, THEN THE BINARY RESULT READ FROM THE 
REGISTER IS DIRECTLY CONVERTED TO A FLOATING 
POINT NUMBER, THE REGISTER READ IS ACCOM* 
PLISHEO VIA AN •INTERNAL LOAD' REQUEST AND 
DOES NOT RESPOND TO INTERRUPTS, THE RESULT IS 
PLACED IN "VAR", «MERE <a VAR «a 6553S, 

THE NEM CSR REGISTER SETTING IS RETURNED IN NENCSR, 

(ENTRY POINT TO PROCESSOR 
(ENTER POLISH MODE AND CHECK 

( FOR ENOUGH AREA TO HORK 

( WITH AND THAT FIRST TOKEN 

( IS INDEED A LEFT PARENS. 

(GET "N" IN COMMAND 

(SAVE FAC ON STACK 

(CHECK NEXT TOKEN EQUAL TO A COMMA 

(CALCULATE ADDRESS OF •VAR< 

(CHECK NEXT TOKEN EQUAL TO A COMMA 

(LEAVE POLISH MODE 

(ISSUE AN INPUT LOAD COMMAND 



PC>>«POLENT 



BIS 
8NE 
JSR 



JSR 
♦ GETV 
MOV 

JSR 



•2,P«LPS0RS 

••LPSDIB,R3 

C5P)«,(SP)» 

OIRl 
PCCONBCD 

PC,»«FLOAT 

PC.FaSTOVAR 

PC,»«ENTERP 

•aLPSDRS.R3 

PC,»«FLOAT 
•aSTORXT 



(READ DIGITAL INPUT REGISTER 

(MAS NaSt (I,E, READ BCD?) 
(NOl READ STRAIGHT BINARY 
(CONVERT BCD TO BINARY 

(FLOAT RESULT 

(STORE RESULT IN "VAR- 

(GET ADDRESS WHERE STATUS REGISTER 

( HILL END UP, 

(GET STATUS REGISTER 

(FLOAT IT 

(STORE RESULT, CHECK LAST TOKEN EQUAL 



3? 



TO A RIGHT PARENS AND RETURN 
TO THE BASIC INTERPRETER, 



LPS] v«f)t »^•^l MtcRO VHij-e* u«aeT«7a Hiiztit rue i* 



LPH v«i-ai RT«ii Mtc*a vHei-e« ik«ocT>T« aziiziti p*oe k 



I 

2 

3 

« 
5 

t 

7 

S 

9 

t« 

It 

12 

13 

ta 

15 

16 98188 

IT 881B8 



IS 88186 

19 
28 
21 

22 88112 

23 881111 
20 88116 
25 88128 
26 

27 

28 88122 

29 8812a 

38 88126 

31 88132 

32 88131 

33 88136 

34 88102 

35 aeiua 

36 88158 

37 88151 

39 88156 

39 88162 

as 



,»TTL 'OOR* COMMtNO PROCES«OR 



"OOP* COHHINO PP0CE9S0P 

BtaiC POPHI CALL. •DOP>(M,N,NEHOaP) 

PUPPOSEl NPtTE DielTil. OUTPUT PESISTEP, SELECTED BIT3 IN 

THE REGISTER H<y BE (ET OR CLEtRED. IP mt, SET 
SITS IN REGISTER, IP H*e, CLEtR SITS IN 
REGISTER, 'N* IS THE BIT PATTERN TO SET OR CLEAR, 
THE NEN RESULT IN THE REGISTER IS RETURNED «S > 
FLOATING POINT NUHBER IN NEHDOR, 



DOR I 



812765 

888808' 

888862 

880737 
888888G 



8888881 
8888880 
8888880 
8888880 



8888886 

888126' 

816583 

888802 

852626 

881883 

858337 

8888886 

888082 

808337 DORll 

8888886 

880737 00R2I 

8888886 

8888886 

813783 

8888886 

888167 

177782 

r 



NOV »HAXO,TJ(RS) 

JSR PCMPOLENT 



tOETNUH 
«SAVF«C 
fCKCMON 
♦INT5T 



tCKCOHA 
,«2 



BIS 
BNE 
BIS 

BR 
SIC 

JSR 

♦ 6ETV 
HOV 



FAC2(RS)>R3 

(SP)«,(SP)» 

DORt 

R3>P«LPSD0R 

DORZ 
R3,P«LPSe0R 

PC.MENTERP 



•*LPSDOR,R) 

DIR3 



(ENTRY POINT TO PROCESSOR 
IPOR LIHIT TEST OF "N" 



(ENTER POLISH NODE AND CHECK 

I FOR EN0U6H AREA TO HORK 

I HITH AND THAT FIRST TOKEN 

I IS INDEED A LEFT PARENS, 

(GET •H* IN CONNAND 

(SAVE FAC ON STACK 

ICHECK NEXT TOKEN EOUAL TO A 

I COMNA AND GET 'N* IN COHHAND, 

I INTE6ERIZE RESULT AND TEST 

I <6SS}S, 

(CHECK NEXT TOKEN EBUAL TO A COHHA 

(LEAVE IN POLISH MODE 

(GET "N« 

(H<8T EI,E, SET BITS IN REGISTER?) 
(BNE HEANS CLEAR BITS 
(BEO HEANS SET BITS 



(CLEAR BITS 

(GET ADDRESS OP NENDOR 

(RETURN NEN OUTPUT REGISTER SETTING 
( AND CLEANUP, 



V^ 



■\! 



'; A 
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I 

] 

a 
5 

6 
T 

a 

9 

IS 

11 

12 

IS 

tl 

15 

16 

17 

18 

1» 

20 

21 

22 

23 

2a 

2S 
26 

27 
26 
29 

30 

31 00166 

32 00166 



33 001T1I 
3a 00202 

35 00210 

36 0021 a 

37 00222 

30 

39 

40 

HI 00226 

112 

43 

a* 00230 

a5 00232 



(SeTTL 'Dll}* CONMANO PROCCSSOU 



012737 

000646' 

B000006 

012737 

000200 

0000000 

01276S 

000000' 

000062 

105037 

000000G 

042737 

000100 

000000C 

004737 

000000G 



000000G 

000000G 
000000G 

47 00234 000000G 



46 



«DRS* CONNtNO PROCESSOR 

B«8IC PORMi C«tL •0RS«(BUF.HaDC|NP7S,n,NCNCSR) 

PURPOSEl 0IGI7*!. READOUT SAMPLING. StHPLES THE DIGITAL 
INPUT REGISTER IN A SIMILAR PASHION AS THE 
RTS FUNCTION, MHEN Ha0, EACH TIME THE CLOCK 
FIRES (OR ST, MHICH CAN TRIGGER THE CLOCK), 
THE DIGITAL INPUT REGISTER IS READ, POSSISLV 
CONVERTED FROM BCD TO BINART (DEPENDING ON THE 
■MODE*), AND STORED IN THE CIRCULAR BUFFER BUF, 
THE CIRCULAR BUFFER POINTERS ARE INITIALLY RESET 
BEFORE THE SAMPLING OPERATION BEGINS. 

IF THE DPS IS NOT CLOCK DRIVEN, M<>0, IT HAT BE 
DRIVEN Br DIGITAL INPUTS, I.E. KHENEVER A NEH 
VALUE IS RECEIVED BY THE INPUT REGISTER, THE VALUE 
IS READ AND STORED IN THE BUFFER BUF. 

IF THE •MODE*>«, THEN READ BCD OTHERUISE READ BINARY 
DIRECTLY. IF 'NPTS' IS GIVEN AS ZERO, DISABLE 
THE SAMPLING. 

THE NEW SETTING OF THE DIGITAL CONTROL STATUS 
REGISTER IS RETURNED IN NEHCSR. 

ISl (ENTRY POINT TO PROCESSOR 

A lINT, ENTRY POINT, 



(AND PRIORITY. 
(FOR LIMIT CHECKS ON <NPTS> 
ISTOP ANY PREVIOUS DRS OPERATION 

(ENTER POLISH NODE AND CHECK 

( FOR ENOUGH AREA TO HORK 

( KITH AND THAT FIRST TOKEN 

( IB INDEED A LEFT PARENS 

(GET BUFFER ADDRESS FROM COMMAND STRING 

( AND CHECK IT AGAINST THE 

( DEFINITION TABLE, 

(RESET BUFFER POINTERS . 

(SAVE R2 ON STACK SINCE IT HAS THE 

( BUFFER DESCRIPTOR ADDRESS, 

(GET 'MODE* AND SAVE ON STACK 



MOV 


•DRS!NT,P«DRS 


MOV 


•200,P«DRSIP 


NOV 


•MAXD,T3(R5) 


CLRB 


••ORSON 


BIC 




J8R 


PC,P«POLENT 



O,!^ 



«GETBUF 



tBUFRES 
tSAVER2 



'^- 
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68 00302 001420 

69 00304 105037 

e00000G 

70 00310 052626 

71 00312 001402 

72 00314 105237 



00236 000000G 
00240 000000G 

00242 000000G 

00244 000000G 
00246 000000G 

00250 000000G 
00252 000000G 
00254 000000G 
00256 000260' 
00260 052626 
00262 001403 
00264 112700 

000001 
00270 000402 
00272 012700 DRS01I 

177777 



73 00320 012667 DRS03I 



74 00324 110037 

0000001 

75 00330 100403 

76 00332 052737 

000100 
000000G 

77 00340 000167 I>RS04I 

177520 

78 810344 062706 0RSB5I 



tSAVFAC 
*CKCMGN 



tSAVINT 
tCKCMGN 

tSAVFAC 
tCKCOMA 
♦ OETV 

<♦* , 

BIS (SP)*,(8P)« 

BEQ DRS01 

MOVB •1,R0 



BR 
MOV 



00276 012667 DRS02t MOV 

BEG 
CLRB 

BIS 

SEQ 
INCB 

MOV 

MOVB 

BHI 
BIS 

JHP 
ADO 

79 00350 000773 BR 

80 I 



DRS02 
••1,R0 



(SP)«,ORSNPT 

DRSB5 
••BCDON 

(SP)»,(SP)* 

ORS0S 

•PBCDON 

(SP)«,DRSBUF 

R0,«*OR3ON 

DRS0a 
«100,'«LPSDRS 

DIR2 

>6,SP 

DRSB4 



(CHECK NEXT TOKEN EQUAL TO A COMMA 
( AND GET NPTS AND INTEGERIZE 
( MAX ALLONABLE NBR POINTS IS 
( 65535, 

(SAVE NPTS A3 AN INTEGER ON THE STACK 

(CHECK NEXT TOKEN EQUAL TO A COMHA AND 

( GET "M", 

(SAVE IT ON THE STACK 

(CHECK NEXT TOKEN EQUAL TO A COMMA 

(GET VARIABLE ADDRESS OF NEHCSR 

(LEAVE POLISH HODE 

(M*0? 

(YEBl DRS IS CLOCK DRIVEN 

(BET ORSON ON EXIT EQUAL TO PLUS NON- 

( ZERO VALUE. 

(M60, SET DRS ON EXIT EQUAL TO NEGATIVE 

( NON>ZERO VALUE INDICATING DIGITAL 
( INPUT LOADING. 
(NBR OF POINTS TO TAKE 

(IF ZERO, DISABLE SAMPLING 
(ASSUME BCD HODE 

(GET HODE (BCD/BINARY) 

(BCD 

(READ BINARY 

(SAVE BUFFER DESCRIPTOR ADDRESS 

(SET DRS OPERATION GOING 

(CLOCK DRIVEN? 

(YES( ENABLE INPUT INTERRUPT ENABLE 

(RETURN STATUS REGISTER TO CALLER 

(CLEAN UP STACK 

(RETURN STATUS REGISTER TO CALLER 
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t 

2 

) 

• 
i 

i 
7 

a 

9 

ta 
11 

12 

l> a«3$2 
I a at3S2 



IS se]»a 

16 
17 

la 

14 eai»a 

2a aiit6 

it aa37a 

22 •a372 

23 
2* 

25 aa37« 

26 aa376 

27 

2a aaae2 
24 ea«a« 

3a aaoat 

31 eaoie 

32 aaxti 

33 

3« aasto 



35 aa«22 

36 e0a2<i 



37 a*«3a 
3a ea«32 



•a 

•I 

<i2 aaa«2 



.aatTL ■DEL" CONNtNO MOCUtOK 



■DEL* COMNANO PROCESaoa 

ataiC FORHi CiU 'REL'tS.OIR) 

PURPOSE) CLOSE OR OPEN REktV '*•, THE COHMDND OPENS RELAY 
•S> (S > t OR 2) tP 'OIR' U EQUAL TO ZEROt 

othern:se it closes it. 



RELl 



el276S 

«88aa2' 
aaaa62 

aaa767 
aeaaaas 



aaaeaas 
aaaaaac 
aiaaeao 
aaaaaas 



aaesTb' 

ai2Ta3 

aaeaasG 

at26a2 

aa3«i6 
ee6aa2 
lasiai 
BgS2a3 

856565 RELl I 

8a8e<i2 
aaasaa 
aataas 

152713 

aaaaai 

888192 
1<12T13 REL3I 
888881 

8aai]7 REL2I 

aaaaaaG 



808137 ERARGl 

asaaaac 



•MA«R,T3(R5) 



PC.POLENT 



«GETNUN 
♦INTST 
tSAVINT 
tCKCMGN 



.♦2 

MOV 



MOV 
RLE 

ROR 

acs 

INC 
SIS 



SEO 
SISB 



BR 

aica 



JMP 



•LPS0Ra,R3 



t8P)«,R2 

ERAR6 

R2 

RELl 
R3 



lENTRT POINT TO PROCESSOR 
tPOR LIMIT CHECK ON 'S' 



(ENTER POLISH NODE AND CHECK 

I FOR EN0U8H AREA TO DORK 

I HITH AND THAT FIRST TOKEN 

) IS INDEED A LEFT PARENS, 

ISET NUMERIC FROM COMMAND CS*) 

lINTESERIZE AND TEST M2 

ISAVE "S" ON THE STACK 

iCHCeX NEXT TOKEN EQUAL TO A COMMA 

I AND GET NEXT NUMERIC FROM 

I COMMAND STRING, 

(LEAVE POLISH MODE 

(ADDRESS OF LPS DIGITAL I/O 

( STATUS REGISTER, 

(SET RELAY NUMBER CS') 

(AR8 ERROR I RELAV NUMBER NOT I OR 2 

(RELAY *l SELECTED 

(RELAY •21 POINT TO LEFT BYTE IN 

( STATUS REGISTER 



FAC2tRS),FACl(R5) (SET OR CLEAR FLAG? 



REL3 

•l.(R}) 



REL2 

*I><R3) 



PRCKRPAR 



••ERRARG 



(CLEAR 

(SET RELAY 'S* 



(RESET RELAY 'S* 

(MAKE SURE LAST TOKEN IS A •)• 

( AND RETURN TO THE BASIC 
( INTERPRETER, 
(ARG ERROR 
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1 
2 

3 

a 
5 

6 

7 8880116 

8 8880116 

9 888052 
18 88056 

11 88062 

12 88060 

13 88078 

10 88072 

15 88076 

16 88582 

17 88586 

18 88512 

19 88510 

28 88528 

21 88526 

22 88532 



23 88508 

20 

25 



,3BTTL DR8 INTERRUPT ROUTINE 



DR8 INTERRUPT ROUTINE 



DHSINTl 
880737 JSR 
(1888886 

813783 NOV 
8888e8G 
185737 ISTB 



SLE 
TSTB 

9NE 
JSR 

MOV 

JSR 

DEC 

BNE 
CLRB 



883010 

185737 

8888880 

881882 

880767 



816782 DRSII 

eaaaaac 

880737 
888888G 

885367 

88B888C 

081087 

18S837 DRSOi 

0888881 

802737 

888188 

8888880 

888137 DRS3I 



852737 DRS2( 
888188 
8888886 
888772 

I 
888881' 



JMP 
BIS 



BR 

lENO 



PCMREGSAV 

••LPSDIB,R3 

••ORSON 

ORSO 
••SCDON 

DRSl 
PC.CDNBCD 

DRSBUF,R2 

FOtSTOOAT 

0R8NPT 

DRS2 

••ORSON 



(SAVE Ra> R2, AND R3 ON STACK 

(READ DIGITAL INPUT REGISTER 

(DRS OPERATION IN PROGRESS? 

(NOl DISABLE INTERRUPTS AND EXIT 
(CONVERT TO BCD1 

(NOl TREAT AS A PURE BINARY NUMBER 
(CONVERT BCD TO BINARY 

(STORE DATA IN USER'8 SUFFER 



(ALL POINTS TAKEN7 

(NO 

(CLEAR ORSON DONE FLAG 



BIC •laa.F^LPSDRS (DISABLE OIR INTERRUPT ENABLE 



••RE8T0R (RESTORE REGISTERS AND EXIT 
•iaa,^*LPSDRS (RE-ENABLE INTERRUPT ENABLE BIT 

DRS3 (RESTORE REGISTERS AND EXIT 

(END OF MODULE »i 
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UPSj vai-ei RT.n 


M4CR0 VH02.e» 16"0CT*7« 


8210211 


PAGE »♦ 


SYMgOt 


rtSLE 










8*0 • 


esBeia 


BCOON • 


****** e 


BIS • 


888088 


eUPRESi 


•••••• G 


CKCMSNl 


****** G 


CKCOMts 


****** 6 


CKRPAaa 


•••••• G 


CONBCOP 


****** 6 


DEL • 


000012 


DID 


0e0e«aRG 


OIRI 


00e0ii6R 


0IR2 


000Bb«R 


DIR3 


eeeeTeR 


DOR 


000t00R6 


DORl 


000 HUR 


0002 


eesissR 


ORi 


000U*Ra 


DRtBUFi 


****** G 


0R9INT 


«eaaa»R 


DRSIP > 


****** G 


ORSIVta 


****** G 


0R3NPT> 


•*«*»* G 


ORSON I 


****** G 


DRS0t 


0002T2R 


0RS82 


eseZTtR 


DRS0I 


000320R 


DRtBU 


SBBlueR 


DRSas 


eee3aaR 


ORSl 


eaeiiTbR 


0R92 


0e0532R 


DR83 


eeaS26R 


DRSa 


00a514R 


END • 


000002 


ENTERPa 


•••••• G 


ERtRS 


00011 <I2R 


ERBUF • 


****** G 


ERNOR • 


•••••• G 


ERR«RG« 


****** G 


ERRPOLp 


****** 6 


ERRSVNi 


•**•*« G 


EVtt • 


****** e 


rtci ■ 


000010 


P<C2 > 


ee0ga2 


rLO«T • 


****** 


SET • 


00808k 


GETADOp 


•ft**** G 


GETBUr. 


****** G 


GETD«Ta 


****** 6 


CETNUMs 


.*••*• G 


SETV • 


****** G 


SETVtRa 


****** G 


HISTON. 


**•••* G 


INT • 


****** G 


INTST a 


****** 6 


kPSOIBi 


****** G 


tPBDORp 


****** 6 


LPSDRSa 


****** 6 


NtXD 


aeeeeoR 


MtXR 


000002R 


NtRRtra 


****** 6 


NUHiGNa 


****** 6 


PC ■ 


1008007 


POUNTa 


**•*•• e 



POLRET* 800t}a 
REG9tV> •*•*•* G 
REL2 000«3*R 
RESTR2a ****** G 
R0 a«00B800 
R3 B«000e03 
StVER2B ****** G 
SP at008006 
BTODATa ****** G 
TABLE a ****** G 
T3 a 000862 
aLPAR a ****** G 

, ABS, aeeeee 

Bea5a2 

ERRORS DETECTEDl 
FREE COREl 17906. 

tPS3,LPl*LP83 



PS a 177776 
REL 000352R6 

REL3 080«32R 
RETURN* 000207 
Rl BI00000I 
Rll a(80080« 
SAVFACa ****** S 
SSlSAVa 08882a 
STORXTb ****** G 
Tl a 0888S6 
VARSAVa 880822 
,RPAR a ****** 6 



*** 6 



PUT a 808884 
RELl 888«t'R 
RESTORa ••*•** G 
RTSON a *••• 
R2 a>800002 
RS a(B00005 
SAVINTa ****** 
SS2SAVa 888026 
STOVARa ****** 
T2 a 808068 
iCOMNAa ****** 
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1 
2 

3 

A 

5 

6 

7 

S 

9 

10 

11 

12 

13 

lO 

IS 

16 

17 

IS 

19 

20 

21 

22 

23 

20 

25 

26 

27 

26 



TITLE LPS« vei-ei 

.SBTTL LPS MODULE (a 



OEC-U-LSEXA-B-LAS 



BASIC KERNEL V82«01 



COPYRIGHT (C) 1973,1979 

DIGITAL EOUIPMENT CORPORATION 
MAYNARD. MASSACHUSETTS 01754 

THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO 
CHANGE alTHOUT NOTICE AND SHOULD NOT BE CONSTRUED 
AS A COMHITHENT BY DIGITAL EQUIPMENT CORPORATION, 
DEC ASSUMES NO RESPONSIBILITY FOR ANY ERRORS THAT 
MAY APPEAR IN THIS DOCUMENT, 

THIS SOFTWARE IS FURNISHED TO PURCHASER UNDER A 
LICENSE FOR USE ON A SINGLE COMPUTER SYSTEM AND 
CAN BE COPIED (HITH INCLUSION OF DEC'S COPYRIGHT 
NOTICE) ONLY FOR USE IN SUCH SYSTEM, EXCEPT AS MAY 
OTHERHISE BE PROVIDED IN KRITING BY DEC, 

DEC A3SUHES NO RESPONSIBILITY FOR THE USE 
OR RELIABILITY OF ITS SOFTMARE ON EQUIPMENT 
kHICH IS NOT SUPPLIED BY DEC, 



•RITTEN BYI RICK HULLY 



FEB,, 1973 



VJ 



LPS* V»l-(t IIT>U MtCRO VH(2>e9 t*-OCT>T« «2l0}|Jt PlkQt I 



,SITTL CONTENTS OP MODULE •« 

THE rOLLOalNS COMMtND PROCESSORS EXIST IN TNtS MOOULEl 

CLRO 
PUTO 
DIS 

F8H 

oxr 



LPsii yet-ai 



RT-lt MICRO VHa2«(9 t»-OCT-Ta Mll3llt PtSE S 



1 

2 

} 

« 

5 

6 

? 
s 

te 
It 

12 
13 

la 

IS 

u 

IT 
18 
19 
2S 
21 
22 
23 

2a 
2S 
26 

27 
2S 

29 
30 
31 
32 
33 
3' 
3S 
36 
37 



,S8TTL PROSRtM GLOBiLS 

GLOBtLS REQUIRED FOR COMMUNICATION 

INTREPRETER, 

,SLOBL ERRPDL>ERRSYN,ERRtRe 

,CLOBL EVtL.eETV«R>STOVtR 

.6L0BL tNT,,COMMt,,RPtR 

.GLOBL NUMSGN,,LP«R>>IR 

.GLOBL SNLR>SDVRiSPOLSH 

.GLOSL OISPLV 



IITH THE BASIC 



GLOBtLS REOUIREO FOR COMMUNICATIONS HITM THE VARIOUS 
LPS MODULES, 

.GLOBL TABLE, NARRAV, FLOAT 

, GLOBL POLENT,GETADO,SETNUM 

.GLOBL CKCMGN.INTST.GETV 

.GLOBL SETBUF.REGSAV.ERNOR 

.GLOBL STORXT.CKRPAR.ERBUF 

, GLOBL CKCOMA.ENTERPiSTODAT 

.SLOBL GETOAT.RTSON, ORSON 

.GLOBL 9AVER2,SAVFAC(RESTR2 

.SLOBL RESTOR.HISTON.BCDON 

.GLOBL CONBCD.BUFRES.DRSNPT 

.GLOBL SAVINT 

GLOBALS REGUIRED FOR COMMAND PROCESSORS 

, GLOBL CLRD.PUTO.DIS.FSH.OXr 
GLOBALS FOR DEVICE ADDRESSES 

.GLOBL LPOISS,LPDISX,LPDIST 

GLOBALS FOR INTERRUPT VECTOR AND PRIORITY. 
.GLOBL LPSIVA.LPSIP 



/ , 



ijl^ 



-V 



v 



LPSo vet-0t 
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I 
2 
3 
a 
5 
6 
7 

e 

9 

le 
U 
12 

13 
1' 
15 
It 
IT 
It 
lO 

2e 

21 
22 

23 

211 
2S 
26 

27 
2« 

29 
39 
31 
32 
31 
3a 

35 

36 
37 

3a 

39 



iSBTTl RECtSTCR tSSIGNMCNTS tW CaUtTES 



aaeeag 


fl0 






eaeeei 


Rl 






e^Boei 


112 






9eeee3 


R3 






eeeseu 


Rl 






Beeees 


R5 






eaeest 


8P 






eaeee7 


PC 








1 GeNERlL ESUATES 


177776 


1 

PS 


s 


«2 


ege2B7 


RETURN 


■ 


2«T 


e0ei3a 


POtRET 


a 


130 




1 BASIC 


USER'S 


E9UATES 


eaee22 


VARSAV 






eaeeztt 


SSISAV 






000026 


S92SAV 






0000110 


rAci 






000012 


FAC2 






0000aa 


R0S1VE 






000016 


RlSAVE 






000050 


R2SAVE 






000052 


R3SAVE 






000056 


Tl 






000060 


T2 






000062 


T3 








1 SUFFER DESCRIPTOR EQUATES 


000000 


SEG 







000002 


END 






000001 


PUT 






000006 


GET 






000010 


SAD 




10 


000012 


DEL 

1 




12 



|PS a PROCESSOR STATUS MORO 
|2»7 a RTS PC 
1136 a JHP HHt)* 



tVAR SAVE FOR ASSIGNNENT 
(SSI SAVE FOR ASSIGNMENT 
|SS2 SAVE FOR ASSIGNMENT 
(HIGH ORDER FLOATING VALUE 
ILOH ORDER FLOATING VALUE 
|R« SAVE LOCATION 
fRt SAVE LOCATION 
tR2 SAVE LOCATION 
tR3 SAVE LOCATION 
(SNORT TERM TEMPORARY 
ISMORT TERM TEMPORARY 
(SHORT TERM TEMPORARY 



(OFFSET TO SEGtNNING OF BUFFER POINTER 

(OFFSET TO END OF BUFFER POINTER 

(OFFSET TO PUT DATA POINTER 

(OFFSET TO GET DATA POINTER 

(OFFSET TO BAD DATA FLAG 

(OFFSET TO DISPLAY DELTA X 



'y^ 
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1 
2 

3 

<l 

5 

6 

7 

6 

9 

10 

11 

12 

13 

la 

15 

16 

17 

IS 

19 

20 

21 ( 

22 00000 000000 RESDISi 
00002 000000 



( 

( DISPLAY TABLE EQUATES 



000000 


OSTY 




000002 


DSTX 




000001 


OPTY 




000006 


DPTX 




000010 


OTNPTS 




B00012 


DLNPTS 




000011 


DSk 




200015 


OSX 




000016 


ONPTI 




000020 


ONPTR 




000022 


DISINC 




000021 


DENOY 1 




000026 


DENOX 
1 






( DISPLAY 


TABLE FO 



(BUFFER START ADDRESS FOR Y 

(BUFFER START ADDRESS FOR X OR 

( X POSITION ON FACE OF CRT. 

(BUFFER POINTER FOR Y 

(BUFFER POINTER FOR X OR X INCREMENT 

(NBR OF POINTS (TOTAL) 

(NBR OF POINTS (RUNNING) 

(DISPLAY ON/OFF SNITCH 

(SNITCH FOR X INCREMENT OR X BUFFER 

(INITIAL 'N* (NBR OF POINTS PER CALL 

(RUNNING VALUE FOR "N" 

(Y/(X) BUFFER INCREMENT ON DATA 

(END OF ARRAY Y 

(END OF ARRAY X 



FOR •DIS* AND *DXY« COMMANDS 
0>0t0>0>0>0 



00010 


000000 










00012 


000000 










23 00011 


000000 




.HORD 


0>0t0,B.0 





00016 


000000 










00020 


000000 










00022 


000000 










00021 


000000 










00026 


000000 










21 




1 








25 




( DISPLAY TABLE 


FOR "FSM" 


COMMAND 


26 




( 








27 00030 


000000 


NONRESI 


,HORO 


B.BiB.BtB 





00032 


000000 










00031 


000000 










00036 


000000 










00010 


000000 










00012 


000000 










28 00011 


000000 




,»0R0 


0,0,0,0,0 





00016 


000000 










90050 


000000 










00052 


000000 










90051 


»00000 










00056 


000000 










29 




t 








30 




r LIMIT 


TESTS 






31 




1 








32 00060 


007777 


MAXDl 


,WORD 


7777 


(1095 


33 00062 


007777 


MAXCI 


.NORD 


7777 


(1095 


31 00061 


177777 


HAXPl 


,HORD 


177777 


(6SS35 


35 




I 









^5 



.^ 



\ 



{.m vai>ii 
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I 

2 

) 

• 
5 

k 
7 
9 

9 

la 
11 

12 
13 

1« 

IS 

t* 

IT 

la 
i» 

2* 
21 
22 
21 
2* 
25 
2* 
27 

2a 

24 

>a 

)i 

32 8««*6 

33 aiat* 



3' aaa7« 

35 
3» 

37 

3a aeiee 

39 

aa 

•1 aaia2 
«2 a6ie« 
•3 aaiat 

• 4 

•5 aaiia 

a» aait2 

«7 aaita 
aa 

a9 aaut 

5a aai2a 

51 90122 



.SSTTL 'CLDO* COHMIND PROCESSOR 



•CURD* COMHtND PROCESSOR 

BtalC FORHi CALL 'CLRD'taUFiaUEiSCALE} 

PURPaSEl DEFINE OtSPLAV SUFFER HAVING FIXED DELTA X VALUES, 

"aUF" IS THE NAHE OF THE SUFFER TO BE DtSPLATED, 
AND CONTAINS SINGLE NORO VALUES, VALUES HHICH 
FALL IN THE RANGE I>a95 >• VALUE >• B ARE DIS- 
PLAYED HHILE VALUES OUTSIDE THIS ARC NOT, 
THE "SIZE" OF THE SUFFER IS THE NUHBER OF T 
POINTS TO DISPLAY AND HUST BE <• TO THE NUHBER 
DEFINED IN THE USE AND DIN COHHANOS, THE DELTA X 
IS CALCULATED AS aaVa/'SIZE* AND HAY BE FRACTIONAL, 

IF 'SCALE* • a, CLRD HILL SET ALL BUFFER VALUES 

TO -1 (NON.DISPLAYABLE VALUES), IF *BCALE* DOCS NOT 

•a, CLRD DOES NOT CLEAR THE ARRAY AND THE ORIB« 

INAL DATA IS HULTIPLIED BY *SCALE>, IN EITHER CASE, THE 

PUTD POINTERS ARE RESET TO POINT TO THE 

BEGINNING OF THE ARRAY, DATA IS ENTERED INTO THE 

ARRAY THROUGH THE PUTD FUNCTION, HOHEVER, A 

CLRD HUST BE ISSUED BEFORE DATA IB INITIALLY 

TRANaFERRED TO THE ARRAY, 

A CLRD HUBT BE ISSUED AT LEAST ONCE BEFORE 
ISSUING THE PUTD, DIB, OR FSH FUNCTIONS, 



112765 

eeaa«2' 

aB«737 
aaaeaaG 



aaaaeaG 
aaaaaac 
aaaaaac 

aaaaeaG 

aaaaeaG 
aaaaeaG 

aaaaasG 

aaai22' 

al2t6S 



CLRDi 



•NAXe>T3(R5) 



PC,»«POLENT 



•GETBUF 



tSUFRES 
*aAVER2 

tCKCHGN 

«INTST 

tSAVINT 

•CKCHGN 

SAVFAC 

,«2 

NOV 



52 aai26 ai2b65 

aeaest 



(SP)«,T2(RS> 
(8P)»,T1(RS) 



lENTRY POINT TO PROCESSOR 

IFOR LIHIT TESTING OF *BIZE* 



lENTER POLISH NODE AND CHECK 

t FOR ENOUGH AREA TO NORK 

I HITH AND THAT FIRST TOKEN 

I IS INDEED A LEFT PARENS, 

IGET BUFFER ADDRESS FROH COHHANO STRING 

I AND CHECK IT AGAINST THE 

I DEFINITION TASLE, 

(RESET BUFFER POINTERS 

ISAVE R2 ON THE STACK 

ICHECK NEXT TOKEN EBUAL TO A COHMA 

I AND GET NUMERIC FROM COMMAND (•SIZE*) 

tINTERGIZE RESULT AND TEST <« aa45. 

)BAVE 'Size* 

iCHECK NEXT TOKEN EQUAL TO A COMMA 

I AND GET NUMERIC FROM COMMAND (*MO0E*) 

■SAVE 'SCALE* ON STACK 

ILEAVE POLISH MODE 

(GET 'SCALE' ANO SAVE IT 



7^ 



<0^ 
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53 aai32 

sa aai3« 

55 8ai36 

56 aaiae 

57 eeiii2 

5a aei«6 
59 eai52 



61 eei62 

62 aai66 

63 aei7e 

611 08172 

65 aai7a 

66 eai76 

67 ae2a2 

68 88286 

69 

7a 80218 

71 88214 

72 88228 

73 88222 

74 

75 88224 

76 88226 

77 88238 
79 88232 
79 88234 
98 88236 
81 08248 
92 80242 

83 88246 

84 08258 

95 

96 88254 



98 00264 



98 08274 

91 88276 

92 88388 



812688 

883428 

812682 

811283 

010065 

000044 

810165 

800046 

010265 

008050 

018365 

888852 

816246 

000082 

168316 

806216 , 

020026 

003482 

880137 CLRD0I 

080088S 

828827 CLRDI I 

810880 

103828 

012746 
010000 

084437 
0B000aC 

aaaaeaG 

888466' 



MOV 
BLE 
HOV 
NOV 
HOV 



HOV 
HOV 



(BP)*,Ra 

CLRD8 
(9P)«,R2 
(R2),R3 
Ra>RaSAVE(R5) 

R1,R1SAVE(R5) 

R2,R28AVE(RS) 

R3|R3SAyE(R5) 

EN0(R2),-(SP) 



SUB 


Rl.CSP) 


ASR 


(SP) 


CHP 


R8,(BP)* 


BLE 


CLRDI 


J HP 





0088080 



800474' 

000000G 

008454' 

000000G 

008242' 

016500 

000042 

001002 

012700 CLRD3I 

880010 

016502 CLRD2I 

008850 

810862 

016546 
000060 
016546 
880856 
801085 
005T26 
084437 



93 00304 0000008 



CMP 

BHIS 

MOV 

JM 

*>IR 
«PUSHR0 

«SIR 

•aovR 

tPUSHB 

♦ $HLR 

♦TRAFAC 

♦INTST 

.♦2 

HOV 

BNE 
MOV 

MOV 

MOV 

MOV 

MOV 

BNE 
TST 
JSR 

taiR 



Re. (4896, 
CLRD3 

•4096,, -(SP) 
R4,*«aP0LBH 



FAC2(R5),Ra 



CLRD2 

•a,,Ra 



R2SAVE(RS),R2 

Ra,0EL(R2) 

T2(R5),-(SP) 

T1(R5),-(SP) 

CLROa 
(SP)» 
Ra,P«SPaLBH 



IGET "SIZE" 

ISIZE <• e IS ILLEGAL 

|R2 POINTS TO BUFFER DESCRIPTOR ADDRESS 

(GET START ADDRESS OF BUFFER 

(SAVE RB THRU R3 FOR LATER USE 



(CALCULATE SIZE OF BUFFER 

I (END ADDRESS • BEGINNING AD0RES3)/2 

)"81ZE' <■ BUFFER SIZE? 
lYESi CONTINUE 
I'SIZE' TOO LARGE 

lis 'SIZE* >• 4096? 

lYESi SET DELTA X 41 ANO FRACTION 

I 'a, 

14896 POINTS ON X SCALE OF SCOPE 

(CALCULATE (4B96,/'SIZE')>a, 

(FLOAT 4896, 

(NOH PUT 'SIZE' BACK ON STACK AND 

I FLOAT IT, 

((8UF BIZE/'SIZE') 

(PUSH A FLOATING POINT 9, ON STACK 

l«9, 

(TRANSFER RESULT TO THE FAC 

(INTEGERIZE RESULT IN FAC 

(LEAVE POLISH HODE 

(IF INCREMENT 48, SET al 



(BET INCREMENT "l (1«9, KITH A FRACTION 

I OF ZERO) 

(SAVE DELTA X FOR THIS BUFFER 



(PUT 'SCALE* FACTOR ON STACK 

(IF AN INTEGER, FLOAT REBULT 
(FLOAT 'SCALE' FACTOR 



Ij^ 



V 
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018310' 

eutub CLRDai 

0166116 

egtaS0 
ei7S0} 

000052 

000737 

0000001 

016!1I6 

000012 

0165«6 

000000 

00100S 

005726 

00<l«37 

000000G 

000000G 

0003S6' 

01276S CLf)D7l 

000060' 

000062 

000037 



90 00306 
4S 01310 



«7 00320 

98 

49 00322 

100 0326 

101 0332 

102 0336 

103 0302 
100 0300 
t0S 0306 

106 0352 

107 0350 
100 0356 

109 0360 



110 0370 008000G 
HI 0372 000050' 

112 0370 000000S 

113 0376 000000' 

110 0000 016575 CLRG6I 

000002 

000052 
115 0006 062765 



116 0010 

117 0020 



110 0026 

119 0030 

120 0032 

121 0036 

122 
123 

120 0002 

125 0000 



126 0052 

127 

128 0050 



• *2 

NOV 

HOV 
BEQ 

MOV 
JSR 
MOV 
MOV 

ant 

T»T 
JSR 

*IIR 

• *2 

NOV 

JSR 



2tSP),-(SP) 
2(SP),.<8P) 

CLRDS 
•R38tVC(R5)>R3 

POmriotT 

PtC2(RS)>*(SP) 

FAC1(R5))>(SP) 

CLRB7 
UP)* 
R0,P9tP0L8H 

•M«XP,73(R5) 
RO,««)Pai.aH 



iLEiVE POLISH NODE 

iStVE t 2ND copy or ISCILE' ON 

I THE ITtCK, 

f'SClUE* PtCTOR )I*S EQUtl TO ZERO, 

) CLEAR OUT tRRtr, 

INULTIPLT 0»T« BY •8C»LE" FACTOR 

tPLOAT IP DATA IS 16 BITS, 

IPUT OATA ON STACK IN STANDARD 

I FLOATING POINT FORH, 

(DATA ALREAOy FLOATED 
(FLOAT NUMBER 



IRESET INTEGER TEST 



(ENTER POLISH NODE 



000052 
016502 
000050 
026562 
000052 
000002 
101730 
022626 
016501 
000006 
0B0137 
000000G 

I 
022626 CLRDS I 
012765 
177777 
000002 
000752 

I 
012665 TRAFICI 



♦•MLR (MULTIPLY OATA BY •SCALE* FACTOR 

•TRAFAC (TRANSFER RESULT TO THE FAC 

♦INT8T (INTEGERIZE IT 

,«2 (LEAVE POLISH NODE 

MOV FAC2(R$),*R3SAVE(R5)( SAVE NEN DATA 



ADO •2.R3SAve(R«) (POINTS TO NEXT DATA POINT 

MOV R2SAVE(R8),R2 (ARRAY DESCRIPTOR ADDRESS 
CHP R3SAVE(R5>,END(R2) (ENO OF ARRAY? 



BLOS CLRDO (NOl CONTINUE 

CMP (SP)*,(SP)* (CLEAN UP STACK 
HOV R1SAVE(R5),RI (RESTORE R| 



JMP 



CMP 
MOV 



(SP)«,(SP)* 
»-l,FAC2(R5) 



(HAKE SURE LAST TOKEN IS A •)• AND 

( RETURN TO THE BASIC INTREPRETER, 

(IGNORE 'SCALE* ON STACK 

(SET OATA ELEMENT o-l (NON DISPLAYABLE) 



BR CLRD6 

MOV (SP)«,FACI(R5) (POLISH ROUTINE TO TRANSFER STACK 



>^ 
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129 

130 0060 012665 HOV 

000002 

131 0060 000130 POLRET 

132 ( 

133 0066 016506 PUSHR0( HOV 

000000 
130 

135 0072 000130 POLRET 

136 ( 

137 0070 016706 PUSH8I MOV 

000010 

138 0500 016706 MOV 

000002 

139 0500 000130 POLRET 

100 ( 

101 0506 001000 rPS( ,UORD 
0510 000000 



I 



DATA TO FAC, 



(SP)*,FAC2(RS) 

(RETURN IN POLISH MODE 
R0SAVE(R5),>(SP) (POLISH ROUTINE TO PUSH R0SAVE (SIZE) 



FP8»2,-(SP) 
FP8,><SP) 



( ON THE STACK, 
(RETURN IN POLISH MODE 

(PUSH FLOATING POINT 8, ON STACK 



(RETURN IN POLISH HOOE 
(FLOATING POINT 8, 



m 



ii< 



LPSlI vgi>>t RT-ll MtCRO VM(2>g9 U«OCT>r« M|«I|3I PtCE 7 



1 
i 

I 

« 

s 

t 

7 
t 

9 

It 

12 

13 

la 8(512 

IS MS12 



It ae52e 

17 

la 
I* 
zt giS2« 

21 
22 
23 0«S26 

2> aessa 

2S 

2t eg5>2 

27 aisia 

29 21536 

29 905110 

30 00Sa« 

31 005S0 



,9»TTl •PUTO* COHMtND PNOCCiaOR 



■PU7D* COHNIND PROCESSOR 

tlSIC PORMi CiUU 'PUTD'CBUPtr) 

PURPOSEI PUT 0»T» POINT "Y" INTO SUP IN StOUfNTHl. OROtR, 

HHCRC »5535 » V » 01 Th:S FUNCTION DOCS NOT 
INITIATE > DISPLty, BUT RtTHER JUST ENTERS k 
' OITA POINT INTO THE SPECIPtED tRRtV, 



012765 

00006a' 

000062 

a00000S 



000000G 

aaaaeao 



e00000e 

000540' 

016503 

B00e«2 

086737 

0000080 

000137 



MOV 



JSR 



•t<*XP,TJ(R5) 



PC,»«POLENT 



*StVER2 

tCKCMGN 

UNTST 

«RESTR2 

.♦2 

NOV F1C2(R5)|R3 



J9R 

JMP 



PC,*a9T00<T 
MCKRPtR 



32 

33 



(ENTRY POINT TO PROCESSOR 
ifOR tlMT TESTING OP "Y" 



(ENTER POLISH MODE «ND CHECK 

I POR ENOUGH tRE< TO NORK 

I KITH «N0 THiT FIRST TOKEN 

I IS INDEED < LEFT PtRENS, 

(SET BUFFER UDDRESS FROH COHHAND STRING 

I AND CHECK IT AGAINST THE 

I DEFINITION TABLE, 

(SAVE R2 ON THE STACK 

(CHECK NEXT TOKEN EQUAL TO A COHNA 

( AND GET NUMERIC FROH COHHANO (•Y*) 

tINTEGERIZE RESULT AND TEST <« 6553S, 

(RESTORE R2 

(EXIT POLISH HODE 

(STORE RESULT HON 



(HAKE SURE LAST TOKEN IS A •)• AND 
( RETURN TO THE BASIC INTREPRETER, 



LPS* VBl-OI RT-ll HACRO VM02>0« tfOCT>7« 02103131 PAGE S 



1 
2 

3 

4 
5 

6 

7 

B 

9 

10 

11 

12 

13 

1« 

15 

16 00554 

17 00554 



IS 00562 

1 9 00566 

20 00572 

21 00576 

22 00602 

23 00604 

24 

25 aatia 

26 aa«i2 

27 00616 

20 aa62a 

29 00620 

30 00624 

31 
32 

33 



.SBTTL ■OtS* COHHANO PROCESSOR 



012765 
000572' 
000056 
005065 



( 'DIS' COHHANO PROCESSOR 

( 

( BASIC FORMI CALL •OIS*(BUP,N> I) 

( 

( PURPOSEI DISPLAY DATA FROH BUF HHENEVER BASIC IS IDLE, THE 
I _ _ 

( 
( 
( 
( 

( 
DISi 



000167 

000216 

012703 DIStI 

000000' 

B04767 

000270 

005723 

012713 

000004 

012323 
016513 
000042 
006313 



062706 
000004 
000137 
0000000 



DI33I 



CLR 

JHP 

MOV 

JSR 

TST 
MOV 

MOV 
MOV 

ASL 

ADD 

JMP 



POINTS DISPLAYED START HITH THE NTH POINT IN 
THE BUFFER AND PROCEED IN INCREHENT8 OF 1, 
IP I'll CONSECUTIVE POINTS STARTING NITH THE NTH 
ONE IS DISPLAYED, IP I«2< EVERY OTHER POINT 
IS DISPLAYED, ETC., 



•0IS1,T1(R5) 

T2(R5) 

DISPAR 

«RES0IS,R3 

PCDSETUP 

(R3)t 
»4,(R3) 

(R3)t,(R3)t 
FAC2(R5)>(R3) 

CR3) 

»4,SP 
••CKRPAR 



(ENTRY POINT TO PROCESSOR 
(RETURN PC FOR ARGUHENT PARSER 



(INDICATE "DIS" ACTIVE 
(NOH PARSE LINE 
(SETUP DISPLAY TABLE 

(R3aR3t2 

(ASSURE 4 P0INT9 PER CALL TO 

( DI9PLAY ROUTINE 

(GET Y INCREHENT BETNEEN CHANNEL9 

(CONVERT TO A HORD OFFSET 

(CLEAN UP STACK 

(HAKE SURE LAST TOKEN IS A •)• 



AND RETURN TO THE BASIC 
INTERPRETER, 



^i 



b' 



LPSa Vai-Bl RT-U HACRO »M»8.»9 U.OCT.TH 02ie}|]t R«se « 



7 

a 

9 

IB 

It 00619 

12 B06J0 



tJ 00636 

14 00642 

15 00646 

16 00652 

IT 00656 
la 00660 

l» 

20 00664 

21 00666 

22 00672 

2} 00674 

24 00700 

25 00704 
26 

27 

2a 

2» 



.aairi 'raH* coMHtNO ^ROccasoR 



BtaiC FORHI 
PURPOaEl I 



FSHI 
012765 
B0B646' 
000056 
00S06S 
000060 
00B167 
0BB142 

012703 F3H1I 
000030' 
0B4767 
000214 
005723 
016313 
177772 

012323 

016513 

000042 

006313 

012702 

000030' 

004767 

000266 

000745 



CLR 

J MR 
MOV 
JSR 

T8T 

HOV 



MOV 
MOV 



Aat 

MOV 



JBR 
BR 



CALL 'FaM'CBUP.Nd) 

KNTICtL TO Ola EXCEPT THE 0«T> POINTB IN BUF «RE 
DtaPtlTED ONLY ONCE, THE NEXT BtBIC BTITE* 
MENT IS THEN EXECUTEB, 

tENTRT POINT TO PROCEBSOR 
•FaHt,Tl(R5) IRETURN PC FOR ARGUMENT PARSER 

T2(RS) 
OISPAR 

•NaNRES,R3 

PCOSETUP 

(R3)» 
-6(RS).(R3) 



IR3)<»((R3)* 
FAC2(RS),(R3) 



(R3) 

•N0NRES,R2 



PCDSPkr 
DIS3 



(INDICATE •FSH> ACTIVE 
(NON PARSE LINE 
(SETUP DIBPkAV TABLE 



|R3aR3«2 

IDISPLAV ENTIRE SMEEP ON EVERY CALL 



t TO THE DISPLAY ROUTINE. 
(GET T INCREMENT BETNEEN CHANNELS 



(CONVERT TO A HORD OFFSET 
INOH FLASH UP A COMPLETE SHEEP 



(GET V INCREMENT BETNEEN CHANNELS, 

I CLEAN UP STACK, DISPLAY DATA, 

) AND RETURN BACK TO THE BASIC 

t INTERPRETER, 



LP86 V0t.01 RT-U MACRO VM02.09 16-0CT«7» 02I03I3I PAGE 10 



1 
2 

3 

4 
5 

6 
7 
S 

9 

10 

11 

12 00706 

13 00706 



14 00714 

15 00720 

16 00724 

17 00730 
le 00734 

19 00740 

20 00744 

21 00746 

22 00752 

23 00754 



,SBTTL 'DXYK COMMAND PROCESSOR 



012765 

000724' 

000056 

010565 

000060 

000167 

000064 

012703 



004767 
000136 
052723 
000400 
012713 
000004 

012323 
016513 
000042 
006313 
016602 
000004 
016263 



25 00766 

26 00772 

27 0B774 

28 0B776 

29 01080 

30 01004 

31 01006 
32 

33 



000004 
162703 
000020 
011213 
061613 
005313 
011363 
000004 
005726 
000704 



BASIC FORHI "DXY"(BUF1,BUF2,N,I) 

PURPOSE! DISPLAY DATA FROM BUFt AND BUF2, SUFI AND BUF2 

HAVE THE X AND Y VALUE8 RESPECTIVELY, NO DELTA 
X IS USED FROM THE CLRO, OTHERMISE 
DXV IS IDENTICAL TO DIS AND FSH, 

'Yl (ENTRY POINT TO PROCESSOR 

(RETURN PC FOR ARGUMENT PARSER 



(INDICATE "DXY" ACTIVE 
(NON PARSE LINE 
(SETUP DISPLAY TABLE 

(SET DSX ACTIVE 

(ASSUME 4 POINTS PER CALL TO 

( DISPLAY ROUTINE 

(GET Y INCREMENT 6ETHEEN CHANNELS 

(CONVERT TO A NORD OFFSET 

(GET X BUFFER DESCRIPTOR ADDRESS HON 

(END ADDRESS OF ARRAY X 

(RESET TABLE ADDRESS 

(INITIAL START ADDRESS OF X ARRAY 
(ADD IN STARTING CHANNEL -1 



(POP OFF TOP STACK ELEMENT, 

( REST IS CLEARED OFF IN DIS 

( ROUTINE, 



MOV 


•0XY1,T1(R5) 


MOV 


R5,T2(R5) 


JMP 


OISPAR 


MOV 


•RESDIS,R3 


JSR 


PCDSETUP 


BIS 


•400, (R3)* 


MOV 


'4,(R3) 


MOV 

MOV 


(R3)t,CR3)» 
FAC2(R5),(R5) 


A8L 

MOV 


(R3) 
4(SP),R2 


MOV 


END(R2),4(R3) 



MOV 
ADD 
DEC 

MOV 

TST 
8R 



•20, R3 

(R2),(R3) 
(SP),(R3) 
(R3) 
(R3),4(R3) 

C3P). 
DISS 



H^ 



( .■ 



>\' 



jfi 



LPS« vei-It RT-lt MtCRO VN«2>«« t**aCT-T* IZltJiII Utt It 



I 
2 
1 

« 
S 

* 
7 

a 
» 
ta 
11 

12 aiata 

13 ataia 



1* aiait 

15 
Ik 
IT 

la 11122 

l» 

20 

21 aia2a 

22 ai02a 

23 aia3i 

211 01032 

2! 0103< 

26 0103t 

27 

26 010«0 

24 010a2 
30 01019 
31 

32 0104* 

33 gt0S0 
3« 01052 

35 

3k 010Sk 

37 010k2 
3a 0106a 

3« 01070 



.aarri oiaPLAr conh<no rtRsn for oia> r»», »nd »»t 
KouTXNe TO PtntE coMii«No L:Ne ro* dis, fsn <no the D«r commandi, 

CiCkl 

XOV IRETURN, TICKS) 

CLR T2(R5) ' tfO» Oia «ND FSN| MOV RS>T2(II5) 

I FOR Dxy 
JMR OiaPtR 
RCTURNI NEXT IN8TRUCTI0N 



012765 

a0aa60' 
00a062 

00aT37 
000000G 



DiaPARl 



jaR 



•M»«D>T3(R5) 



RCMROIENT 



0000006 

001056' 
000000G 

0000006 

O00000G 
000000E 

0000000 
0000000 

000000G 

000000G 
001052' 
000175 
000056 

I 
005765 TSTDXYI 
000060 
001002 
0627011 
000006 
000134 TSTll 

I 



*aiyER2 

♦TaToxr 

tCKCOM* 
«GETBUF 
*aAVER2 
«CKCNGN 

♦INTBT 

tatVINT 

tCKCMGN 

♦INTST 
.t2 

JHR 



TST 



BNE 

too 



T2(R5) 



TJTl 
•6.R« 



(FOR LINtT TEBTa ON H <N0 I 



lENTER FOLlaH NODE AND CHECK 

I FOR ENOUGH AREA TO MORK 

I HtTH AND THAT FIRaT TOKEN 

I Xa INDEED A LEFT PARENS, 

ICET SUFFER ADDRESS PRDN COMMAND 

I ANO CHECK IT AGAINST THE 

I DEFINITION TAaU. 

ISAVE R2 ON STACK 

ITEBT FOR DXr COMMAND 

(CHECK NEXT TOKEN E0UAL TO A COMMA 

(GET NEXT BUFFER ADDRESS AND CHECK IT 

laAVE IT AUSO 

ICHECK NEXT TOKEN EQUAL TO A COMMA 

I AND GET NUMERIC FROM COMMAND, 

lINTEGERIZE RESULT ANO TEST <«777T. 

ISAVE "N* 

iCHECK NEXT TOKEN EQUAL TO A COMMA 

I ANO GET NUMERIC FROM COMMAND, 

lINTEOERIIE RESULT ANO TEST ««7777, 

(LEAVE POLiaH MODE 

(RETURN TO CALLER 



POLRET 



(DXy COMMANDT 



(VESl RETURN IMMEDIATELY 
(BYPASS ANOTHER BUFFER PROCESSING 



(RETURN IN POLISH MODE 



LPaa y0f01 RT-11 macro yH02.0« U«0CT-74 02I03(31 PAGE 12 



1 
2 
3 

a 

5 
6 
7 

a 

9 

10 01072 

11 01072 

12 01076 

13 01100 



15 01112 

16 01U>' 

17 01116 

la 01122 

14 01126 

20 01130 

21 01134 

22 01140 

23 01142 

24 0U44 

25 01146 

26 01152 
27 

20 
24 
>0 

31 01154 

32 01154 

33 01156 



.SSTTL aETUP DiaPLAY TABLE 

ROUTINE TO SETUP A DISPLAY TABLE 

CALLI 

MOV tADDRESS OF TABLE>R3 

JBR PCDSETUP 

R3 ON RETURN POINTS TO DSH IN TABLE 



DSETUPl 
016602 
000004 
011213 
016263 
000002 
000024 
066613 
000002 

005323 

005023 
016323 

177774 
016223 
000012 
001002 
000137 
000000G 
016213 DBETll 
000002 
161213 
006213 
012323 
012713 
1 



4{SP),R2 



(GET BUFFER OESCRIPTOR ADDRESS 



HOy 
MOV 



DEC 
CLR 
HOY 



SHE 
JMP 



SUB 
ASR 

HOY 
HOY 



(R2),(R3) (INITIAL START ADDRESS OF ARRAY 
END(R2),DEN0Y(R3) (END OF ARRAY 



2(SP),tR3) 

tR3)» 
(R3)* 
•4(R3)f(R3)« 



(ADD IN STARTING CHANNEL -1 



(AsauHE oia OR fsh command 

(RESET BUFFER PONTERS 



0EL(R2),(R3)t (DELTA X DEFINED IN "CLRD" 

DBETl 
••ERRARG 



EN0(R2),(R3) 

(R2),(R3) 
(R3) 

(R})«,(R3)« 
•1<(R3) 



000207 



RETURN 



(ZERO VALUE IS ILLEGAL HERE 
(CALCULATE NBR OF POINTS TO DiaPLAY 



(SET DISPLAY ACTIVE 
(RETURN TO CALLER 



( ENTRY POINT FROM BASIC DURING IDLE LOOP IN ORDER TO REFRESH 
( THE DISPLAY, 



OISPLYl 
010246 MOV R2,>(aP) 
012702 HOV «RESDIS,R2 
000000' 

34 01162 004767 JSR PC<DSPLY 
000004 

012602 MOV (SP)*,R2 
000207 RETURN 



35 01166 

36 01170 
37 



( 



(SAVE R2 ON THE STACK 
(RESIDENT DISPLAY TABLE 



(DISPLAY SOME POINTS 



(RESTORE R2 

(RETURN FROM BASIC'S IDLE LOOP 



B^ 



^ 



'^ 



LPs« vgi-ei RT>ii NiCRO VM««.«« ifOCT'Ta gtifsiji ptec ts 



J 

2 

1 

a 

5 

6 
7 
B 

u eint 
12 ai2ee 



13 ei296 

ID 0(2ia 

15 01216 
It 01222 
17 0122* 

1« 0123a 

I' 012110 
20 012«2 



21 01250 

22 01252 



RaU7I 
CtkLl 



DSPtn 

105762 

000011 

001506 

016262 

000016 

000020 

026262 DSl 

000001 

000024 

101102 

017216 

000001 

011637 

0000001 

066262 

000022 

000001 

105762 

000015 

001116 

026262 

000006 

000026 

101010 

017216 



,»TTL tCTUtL OltPlUr ROUTINC 
NE TO 0I3Pkir 1 SCR!C9 OF POINTS ON TNC CRT, 



R2 POINTS TO DISPIAY TttH 
J9R PCDSPLT 



23 01256 011637 
21 01262 



25 01270 

26 01272 

27 01271 
20 01276 

2« 01302 

30 01306 

31 01312 

32 01316 

33 01320 



31 01326 
35 01330 



066262 

000022 

000006 

000127 

005726 D*! 

000152 

016216 D2l 

0000^2 

016216 

000006 

016216 

000022 

162716 D12I 

000002 

003101 

066266 

000006 



0007T1 
005726 Dill 



SCO 

NOV 



CHP 



0HI 

NOV 



NOV 



BEQ 

CMP 



SHI 
N0» 

NOV 

too 

BR 

TST 

BR 

HOy 

NOV 

MOV 

SUB 

BLE 

too 



BR 
1ST 



0SN(R2) 



iDISPLtr ONt 



01 INOI EXIT IMMEDItTELT 

0NPTI(R2)i0NPTR(R2) iRESET NBR OF POINTS PER CtLL 



oPTr(R2),oeNor(R2) ih<s r buffer been exh«ustedi 



07 lYESl IGNORE POINT 

•DPTytR2)>>(SP) lOET NEXT T VALUE 



(SP),*0LPDISV 

OISINC(R2),0PTr(R2) fSUHP TO NEXT V 



DSX(R2) 



)X INCREMENT OR X BUFFER OtTAT 



02 rX INCREMENT 

0PTX(R2),0EN0X(R2) (HAS X BUFFER BEEN EXHtUSTED? 



01 lYESl IGNORE POINT 

•DPTX(R2),>(SP) (SET NEXT POINT 



(SP),P*LPOISX IX BUFFER 0«T« 
0ISINCtR2),DPTX(R2) IBUNP TO NEXT X 



(IGNORE POINT AND CLEAN UP STACK 



03 

(SP)» 

07 

0STX(R2)f(SP> IGET X INCREM AND DIVIDE BT S, 

0PTX(R2),-(8P) 

0ISINC(R2),>(SP) tSET INCREM FROM Y AND USE TO 

•2.(SP) I MODIFY X, 

Dll 
0PTX(R2)>2(SP) 



D12 
(8P)« 



-r-o 



LPS1 vai-01 
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36 01332 062662 



37 01336 006216 

38 01310 006216 
34 01312 006216 
10 01311 011637 

000000G 
41 01350 022627 D3l 
007777 

12 01351 101020 

13 01356 022627 

007777 
41 01362 101006 

45 01364 052737 

000001 
000000G 

46 01372 105737 D4I 



47 01376 100375 

49 01400 005362 061 

000012 
44 01101 003106 

50 01406 005362 

000020 
51 

52 01412 003275 

53 01114 000207 Dll 

54 01116 005726 D10I 

55 01120 000767 

56 01122 016262 D7| 

000000 



57 

58 01130 016262 
000010 
000012 

54 01136 105762 
000015 

60 01142 001003 

61 01444 005062 

000002 

62 01450 000207 

63 01432 016262 DSl 

000002 



64 01460 000207 

65 

66 000001' 



ASR 
ASR 
ASR 
MOV 



BHI 
CMP 



BHI 
BIS 



BPL 
DEC 



SUE 
DEC 



BGT 

RETURN 

TST 

BR 

MOV 



CSP)*,DSTX(R2) lUPOATE X AXIS 

(SP) 
(SP) 
(SP) 
(SP),*PLPOISX 



(SP)t, 67777 



010 
<SP)*,«7777 



06 
•1>P«LPDISS 



••LPDISS 



04 
0LNPTS(R2) 



07 
DNPTR(R2) 



INOH TO THE X REGISTER 
|X VALUE IN RANGE? 



INOI IGNORE POINT THEN 
(HON ABOUT THE Y POINT? 



INOI INGORE POINT 
(INTENSIFY DATA POINT 



(HAIT FOR POINT TO GET UP THERE 



lALL POINTS UP FOR A COMPLETE SHEEP? 

lYESi RESET COUNT AND RETURN 
l>N> POINTS UP BEFORE RETURNING 

I TO CALLER? 

iNOl 00 ANOTHER 

(RETURN TO CALLER 

(IGNORE POINT AND CLEANUP STACK 



(SP)« 

06 

DSTY(R2),DPTY(R2) (RESET DISPLAY PARAMETERS AFTER EACH 



( SHEEP, 

HOV 0TNPTS(R2).DLNPT8(R2) 



TSTB DSX(R2) 



BNE OS 

CLR 0STX(R2) 



(IF X INCREMENT ACTIVE, SET X AXIS60, 
(NO 



RETURN (RETURN TO CALLER NOH 

MOV DSTX(R2),DPTX(R2) (RESET X POSITION 



RETURN 
,ENO 



(RETURN TO CALLER NOD 
(END OF MODULE 1 



5l 



X 



/ 



-^ 



init v0t-0t 

SYH80L TtBLE 

Bio > e0«ei8 

BUFRES* •••••• G 

CKRPtR> •••••• S 

CkRoi tm»i» 

CLRDa BBBSIBR 
CLRD7 B0035«R 
DENOX ■ Bea02» 

oisiNCi aeeB22 

DI«I BeB572R 
ONPTI I 080016 
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BRTY • 


00000a 


OBCTUR 


00t072R 


DSTX • 


000002 


BSX > 


000B1S 


BXYl 


0e072llR 


Dlt 


gei3]eR 


03 


00I3S0R 


D» 


00ia00R 


D* 


001272R 


ERBUP a 


•••••• G 


ERRRDL. 


•••••• 5 


FtCl I 


0000110 


FPB 


e00S0tR 


SET • 


00000* 


GETOATa 


•••••• c 


GETVtlO 


••*••* G 


INTST • 


•***•* G 



LPOISYi •••••• G 

HtXC 0B0062R 
NiRRiYa •••••• G 

PC all000007 
P8 a J77776 
PUT a 00000a 

RESDis ge0e0aR 

RETURNa 000207 
R09iVEa 00B0a« 
R2 a>000002 
R3S«VEa 000052 
9AVER2a •••••• C 

SP al00000» 
STODATb •*••** G 
TiBLE a •••••• e 

TBTt 00>BT0R 
TJ a 000062 
SIR a ***«*« G 
iCOHXta •••••• G 

, iBI. 000000 000 
001«62 001 
ERRORS DETECTEDl 
FREE COREl 17734, NOROS 

IPSa.LPiaLPSa 



BCOON a 


•••••• G 


CKCMGNa 


••*•«• G 


CkRO 


000066RG 


CtR02 


80025aR 


CkROS 


B00«42R 


CONBCOa 


****** G 


OENOY a 


00002a 


0ISP4R 


00101BR 


0IS3 


0Be620R 


ONPTR a 


000020 


ORSNPTa 


****** G 


OSETl 


00ii3aR 


OSTY a 


000000 


OTNPTSa 


000010 


01 


00iaiaR 


012 


001312R 


0« 


B013T2R 


07 


00ia22R 


END a 


000002 


ERNOR a 


****** G 


ERRSYNa 


****** 6 


FtC2 a 


0000(2 


F8H 


00063BRe 


GETtOOa 


*••*•• 6 


GETNUMa 


****** 6 


HISTONa 


**•*•• G 


LPDISSa 


****** G 


IPS IP a 


****** 6 


HiXO 


0B0060R 


N0NRE9 


080030R 


POUENTa 


****** 6 


PU9HR0 


000a66R 


PUTO 


0B«S12R6 


RESTORa 


•*•••* G 


RT90N a 


****** G 


Rl a 


(000001 


R2S<VEa 


000050 


R« ■ 


(000004 


SAVFtCa 


****** G 


SStStVa 


000024 


STORXTa 


**••** G 


TR«F»C 


000454R 


Tl a 


0000S6 




000022 


9HLR a 


****** G 


,LP«R a 


****** G 



BEG ■ 


000000 


CKCOHta 


****** G 


CkROB 


B00176R 


CLRD3 


S002S0R 


CLRD6 


aoBaoBR 


OEL a 


000012 


DZS 


000554R6 


DUPLY 


00USaRG 


Dt.NPT9a 


000012 


DPTX a 


000006 


ORSON « 


****** G 


OSPtY 


001172R 


09M a 


000014 


OXY 


000T06RG 


010 


00tai6R 


02 


001276R 


OS 


001206R 


06 


0014S2R 


ENTERPa 


****** G 


ERRiRGa 


****** G 


EV»L a 


****** e 


FI.04T a 


••«••* G 


FSHI 


i00646R 


GETBUFa 


****** G 


GETV a 


****** G 


INT a 


••*••• 6 


kPOIBXa 


****** G 


LPBIVta 


****** G 


H4XP 


000064R 


NUHSGNa 


****** G 


POLRETa 


000134 


PU9M 


0004T4R 


REGStVa 


****** G 


RESTR2a 


****** G 


R0 a 


(000000 


RlStVEa 


000046 


R3 a 


(000003 


RS aX00000J 


SJVlNTa 


****** G 


9929tVa 


000026 


9T0ViRa 


****** G 


T8T0XY 


0010S6R 


T2 a 


0B0060 


SOVR a 


•••*.* G 


tPOkSHa 


****** G 


,RPAR a 


****** G 
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1 
2 

3 

4 
5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

la 

19 
20 
21 
22 
23 
24 
25 
26 
27 
29 
24 
30 
31 
32 
33 
34 
35 
36 
37 
39 
34 
40 
41 
42 
43 
44 
US 
46 
47 
48 
»•> 
50 

51 
52 
53 
5a 
55 
56 
57 



TITLE PERP4R -- PERIPHERAL 9UPP0RT P»CK»GE P»R»METER MODULE, 

DEC-U-LBPtt-t-Lt BASIC KERNEL V02-01 

COPYRIGHT CO 197a 

DIGITAL EGUIPHENT CORPORATION 
HAYNARD, HA99ACHU9ETT9 0175a 

THE INFORMATION IN THIS DOCUMENT 19 SUBJECT TO 
CHANGE HITHOUT NOTICE AND 9H0ULD NOT BE CONSTRUED 
AS A COMMITMENT BY DIGITAL EQUIPMENT CORPORATION, 
DEC A99UME9 NO RE9P0N9IBILITY FOR ANY ERRORS THAT 
MAY APPEAR IN THIS DOCUMENT, 

THI9 9aFTHARE 19 FURNI9HED TO PURCHA9ER UNDER A 
LICENSE FOR USE ON A SINGLE COMPUTER SYSTEM AND 
CAN BE COPIED (KITH INCLUSION OF DEC'S COPYRIGHT 
NOTICE) ONLY FOR USE IN SUCH SYSTEM, EXCEPT AS NAY 
OTHERNISE BE PROVIDED IN HRITING BY DEC, 

DEC A99UMES NO RE9PaN9IBILITY FOR THE U9E 
OR RELIABILITY OF IT9 90FTHARE ON EQUIPMENT 
MHICH 19 NOT 9UPPLIE0 BY DEC, 

THE C0N0ITI0NAL9 CONTAINED IN THI9 MODULE AFFECT THE A99EMBLY 
OF THE FUNCTION TABLE MODULE "FTBL.MAC", 
TO OBTAIN THE DESIRED CONDITIONAL OEFINITION(S) , 
REMOVE (U9ING AN EDITOR) THE 
9EMI>C0L0N APPEARING BEFORE THE CONDITIONAL, 
jSDISKaB lOEFINE FOR RT-11 

,IFNDF 90ISK 
000000 tSTRNGaB |D0 NOT DEFINE FOR PTS BASIC NITHOUT 

(STRINGS,* DEFINED FOR PTS V01 HITH STRINGS 
,ENOC I 



0000)10 ILPS*0 

|SVa0 

I 

I 



000000 SAOCa0 
000000 9CLKa0 
000000 lOIOaO 
000000 SOISaB 

I 

I 

000000 SVTlla0 



■IFOF 9LPS 



lOEFINE FOR LP9 

(DEFINE FOR LPS HITH VECTORS STARTING 

I 

I 

I 

t 

I 



AT 300, DEFAULT SETTING IS VECTORS AT 
3a0, SET 9V a ANY OTHER DISPLACEMENT IF 

VECTORS START AT DISPLACEMENTS 

OTHER THAN OR a0 FROM 

VECTOR 300 



,ENDC ilLPS 



(INCLUDE A/O ROUTINES, 

(INCLUDE CLOCK ROUTINES, 

(INCLUDE DIGITAL 10 ROUTINES 

(INCLUDE DISPLAY ROUTINES, 



(FOR GTas (GT44) 



S^ 
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St 
5» 

*l 
tl 

a 

b4 
6S 

66 
67 
6t 
69 
78 
7» 
72 
73 
7* 
7S 
76 
77 
7S 
79 
S0 

ai 
«i 
>] 
»a 
as 
a6 

87 
88 
84 

98 
9J 
92 

93 
9a 
95 

96 

97 

98 

99 

188 

181 

182 

183 

18a 

18S 
186 
187 
188 
189 
118 
111 
112 
113 
ll« 

lis 



888888 iCLOCKM 



.iroF jyTii 

,ENOC 
,EOT 



(FOR arSTEH CLOCK (KNtlL) 



.TITLE GTB V81-81 BtatC • ST ROOT MODULE 

DEC - 11 • LaPG8 • t • L« State KERNEL V82>81 

CTB,H«C TtPE t OF a 

THE INFORM«TION IN THIS LISTING IS SUBJECT TO CH4NGE WITHOUT NOTICE 
»ND 8H0UL0 NOT BE CONSTRUED AS » COHMITHENT BY DIGITAL ESUIPHENT 
CORPORATION, DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY 
FOR ANY ERRORS THAT MAY APPEAR IN THI8 LIBTINB, 

THIS aOFTHARE IS FURNIBHEO TO THE PURCHABER UNDER A LICENBE 
FOR USE ON A SINGLE COMPUTER SYSTEM AND CAN BE COPIED (WITH 
INCLUSION OP DIGITAL'S COPYRIGHT NOTICE) 0NL7 FOR UBE IN 
SUCH SYSTEM, EXCEPT AB MAY OTHERHIBE BE PROVIDED IN WRITING BY 
DIGITAL. 

DIGITAL ESUIPHENT CORPORATION ABBUMEa NO ReBPONBIBILITY FOR THE 
USE OR RELIABILITY OF ITB BOFTWARE ON EQUIPMENT THAT IB NOT 
SUPPLIED BY DIGITAL. 

COPYRIGHT (C) t973it97l|> BY DIGITAL EQUIPMENT CORPORATION. 

AUTHORl OR, STEPHEN R. ALPERT AUGUST 1973 

,IFDP aOISK 

.SBTTL GLOBALSi EQUATES 



.ENDC 

SLPB'B 

,IFDP 

.GLOBL 

.ENDC 

.IFNDF SO 

tDEPTHPlB. 

.ENDC 



I GLOBAL FROH BABICH OR BABICL FOR INTERRUPT 
.GLOBL U3RAREA 



I TAKEN CARE OF BY OTNLPB 
SLPS 

NARRAY.TABLEiFLOAT 



I 18. CALLS DEFAULT 



I SLOBALB FROM BABICL 



.GLOBL 

.GLOBL 

.GLOBL 

.GLOBL 

.GLOBL 

.GLOBL 

,IFDF 

.GLOBL 

.ENDC 



t SLOBALB FROM FPMP 



DBTOP.DIBEND.ACTENO.BEG 

DCRAaH,HDItW02,0LDM0D 

, COMMA,, LPAR,.RPAR,.E0L 

EVAL.ERRSYN,ERRARS,INT 

GETVAR.STOVAR 

NUM0UT,M3G 

SDISK 

IGNORE 



K' 
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116 




117 




118 




119 




128 




121 




122 




123 




12a 




125 




126 




127 




12B 




129 




138 




131 




132 




133 




13a 




135 




136 


888822 


137 


88e82a 


138 


MMZb 


139 


eezeae 


lag 


liieu! 


lai 


080818 


ia2 


080812 


ia3 


8008ta 


taa 


8888aa 


las 




|a6 




ia7 




lag 




ia9 


000180 


158 


1775a6 


151 




152 




153 




15a 




155 




156 




157 




158 




159 




168 




161 




162 




163 





, GLOBL SIR,SMLR,SDVR,SADR,Sa8R,>ERVEC 

I GLOBALS FOR INTER-MODULE COMMUNICATION 
GLOBL NSTSK,INSRTF,TAS1,ACTST,DISEND 
SCAL.VECT, ROOT, APNT, STAT, TEXT 
0N,OFF,NOSC,TAGeND,ADSTK,BUFTST 
SUBP,ESUB,LPEN,TRAK,ERA3,C0NTA,CKE0L 
INIT,INITA,D3TP,ST0PA,C0NT,XGRA,YGRA,AGET,APUT 
FIGR,FPUT,FIX8,FIX3P,FIX 
DPC,DaR,DI3X,DISY,GTVECT 
SCLOCK 
TIHE.TIHR 



,GL08L 

.GLOBL 

.GLOBL 

, GLOBL 

, GLOBL 

, GLOBL 

,IFDF 

, GLOBL 

.ENDC 

,IFOF 

.GLOBL 

.ENOC 

.GLOBL 



SDISK 
SAy2a,SAVERT,CL0SALL,FREE8,FREE 



SC.USC,TAG3RH,SCL.X,3CL.Y,AB3.F 



t EQUATES FROM BASIC USER AREA 

VARSAV«22 

S31SAV>2a 

SS2SAV>26 

FlClaaB 

FAC2«a2 

ARRAYSalB 

HIFRECP12 

LOFREE'ia 

RBSAVEiaa I FOR FPPSAV, FPPRE8 
) THE FOLLOWING DEFINITION PAIR IS LEGITIHATE (IE, NOT 
(IN THE VECTOR DEFINITION HODULE C"PERVEC"J) SINCE THEY 
rARE FIXED, THEY CANNOT FLOAT, 

,IFOF SCLOCK 
LKV>108 ICLOCK INTERRUPT A0RES3. 
LKS«1775a6 ICLOCK STATUS REGISTER 

.ENDC ISCLOCK 



THE FOLLOWING IS TO INSURE THAT THE ORIGINAL 
STACK POINTER DOESN'T CLOBBER ANYTHING IMPORTANT 
,IFOF SDISK 



.ASECT 

.•a2 

.WORD 

.CSECT 

,ENOC 

,IFOF 



I REPLACE 20888 IN BASIC 



J3 



\. 



V 
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.SBTTL tSSlGNMENTS 




1 


,EN0C 




1 REGISTER iSSIGNMENTS 




»9»t»» 


Rg«g 






t»ee»\ 


Rl«»l 






gasen: 


R2*X2 






eeeog} 


R3K} 






Beeggi 


Raaxa 






egeass 


RSK5 






gggggb 


JP»k 






egggg7 


PCRXT 
















1 MtSCELLtNEOUS 


tS9ISNMENT> 




ITTTTb 


n»**i 


t PROCESSOR STtTUS RORO 




gggiST 


RETURNaig? 


1 • RTS PC 




gggim 


ROlRETalJH 


1 • JMP •(R«)» 




gggzeg 


PRaajgg 


1 PRIORITY a 




ggesng 


PRTiSOg 


( PRIORITY 7 












ugggg 


OJHP>i«g«gg 


1 DISPLAY JMP 




iTiagg 


SDINT'tTI'M 


1 STOP OISPUY IND INTER 


it 








25 




itPDF IDItK 
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iSSTTL MISCEUltNEOUS ROUTINES 
,ENOC 

t MISCELLANEOUS ROUTINES 



» gggggg 

7 gggggg 

s ggggga 

9 

10 

11 

12 
13 

14 
15 

16 ggggb 

17 egggb 

i« gggi2 

19 gggib 
2g gggag 

21 »iill 

22 

23 

20 

25 ggg26 

2t Beg26 

27 ggg32 

29 ggg36 

29 gggag 
3g gggiig 

31 eggii4 

32 eggii6 

33 gggS2 
in 

35 gggju 

36 ggg56 

37 



gi65a6 

ggggit2 
gggn* 



MOV 
POLRET 



FtC2(R5)i><SP) 



t SAVE 1-HORD INTEGER 
I > JMP PCRl)* 



t ROUTINE TO INTEGERIZE THE F«C TO A SINGLE HORO 
I INTEGER, HILL CRA3M IF ARGUMENT TOO LARGE 
t RESULT ALSO IN FAC, DESTROYS Re 



INTEORl 



JSR 

TST 



Bgu767 

ggggggo 
ga5765 
ggggag 
eaiggt 

gggnu 

eBei67 INTEGOt JMP 



8NE 
POLRET 



PC, INT 

FACURS) 

INTEGG 

ERRARG 



t GO TO 'INT' OF BASICL 

I DID ME SUCCEED? 

I BR IF > 32767 

t ARGUMENT ERROR, TOO LARGE 



PLOOPi 
0121167 MOV 
iiggg22 

gtgu67 MOV 
Bggg2g 
gggi3it polret 

ELOOPI 
ge5367 DEC 

ggggig 

003182 BLE 

gi67e« MOV 

egeggu 

gggisn eloopbi polret 

eggggg loopcti ,aoRO e 
gggggg lpadri ,»ord o 



(R«)«,LOOPCT 

nu.LPADR 



LOOPCT 



ELOOPg 
LPADR,R« 



t GET COUNT, INOT REENTRANTI 
I SAVE LOOP ADDRESS 



I DECREMENT LOOP COUNT 



I BR IF DONE 

I GET LOOP ADDRESS 



) NUMBER OF TIMES TO LOOP 
I ADR OF START OF LOOP 



5'/ 



/. 
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SETOPTl 



8 ^^^^^^ 

9 

1« 088711 

U 

12 

U 

la 
15 
16 
17 
1« 
H 

2a 

21 

22 08876 

23 88876 

2a 8ei8B 

25 88181 

26 eet86 

27 88112 

28 881 la 

2« 88128 

38 88122 
II 88121 

32 28138 

3} 88131 
30 88136 

35 88136 

36 88112 

37 88111 

38 88116 



885867 

888818 
888131 

818667 
888882 
888131 



888888 OPtRGFi 
I 



CUR OPtRSF 

P0LRE7 

MOV SP.OPtfteF 

POLRET 

,HORD 8 



t CLEM OPTIONiL tRE, PlAG 

I SET OPTIONAk tRG, FLAG 

I OPTIONit ARGUMENT FLAG (•! IF OPT) 



( ROUTINE TO CK •," AND GET NEXT ARGUMENT INTO THE FAC 

I IF OPTIONAL ARGUMENT FLAG U SET AND ARGUMENT IS NOT 

I PRESENT, 8 MILL BE RETURNED. 

I BECAUSE OF "EVAL" PROM SASICLi USES ALL REGISTERS 

I ON ENTRYI Rl MUST POINT TO HHERE COMMA SHOULD BE. 

( ••• NOTE THAT Rl HERE 18 POLISH PC AND NOT THE 

t STACK SIZE THAT EVAL EXPECTSIl 



GETNUMI 
112182 
128227 
8888886 
881110 
B8S767 
177762 
881115 
128227 
8888880 
881812 
885381 

885865 ZERNUHi 
888818 
885865 
888812 
888131 



GETONEl 
881767 
8888880 
183183 
888131 
888167 GETSTNl 



H0V8 

CMPB 

BEO 

TST 

BEO 
CMPB 

BNE 
DEC 
CLR 

CLR 

POLRET 

JSR 

BCS 

POLRET 
JMP 



34 88152 888167 GETARGI JMP 



(R1)*,R2 
R2,«, COMMA 

GETONE 

OPARGF 

GETSYN 
R2,I.RPAR 

GETSTN 

Rl 

FACURS) 

FAC2(R5) 



PCEVAL 
GETARG 
ERRSVN 
ERRARG 



I GET NEXT TOKEN? 
f IS IT A COMMA? 



t TES> GET A NUMBER 

I NO* NAS ARG, OPTIONAL? 



I NO- ERROR 
I rES> IS IT A 



I N0> ERROR 

I YES. POINT AT IT 



I PUT 8 INTO FAC 

I EVALUATE EXPRESSION 

I ERROR IF STRING 

I SVNTAX ERROR 

I ARGUMENT ERROR 



18 

«l I 

12 
13 
11 

15 88156 ENTERPt 

16 88156 812781 HOV 

888166' 



) IMMEDIATE POLISH FOR ONE ROUTINE 



^ 



•RETURPiRI 



\ 
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17 88162 


017607 

888808 


MOV 


•(8P),PC 


1 GO TO ROUTINE 


19 88166 


080170'RETURPl 


.♦2 




1 RETURN HERE FROM ROUTINE 


«■> 88178 


862716 

880802 


ADO 


<2,(SP) 


1 ADJUST FOR POLRET 


58 88171 


888287 


RETURN 






51 










52 


1 








53 










51 88176 


NEGSTKI 








55 88176 


862716 

188888 


ADD 


•108888, (3P) 


1 NEGATE STACK 


56 88282 

57 

58 


888131 


POLRET 






1 








59 










68 
61 

62 88281 




1 ROUTINE TO TEST IF BUFFER ALLOCATED 


012716 BUFPOLI 


MOV 


•POLENT,-(SP) 


I FAKE JSR PC 




808278' 








63 88218 


BUFTSTi 








61 88218 


805767 
818376 


1ST 


DCRASH 


1 BUFFER ALLOCATED? 


65 88211 


801181 


BEO 


BUFT0 


1 NO* DO IT 


66 88216 


026727 
800111 
177777 


CMP 


DI3END,P*1 


( INIT BEEN DONE? 


67 88221 


081082 


BNE 


.»6 


( YES. BRANCH 


68 88226 


801767 BUFT8I 
802252 


JSR 


PCINITA 


I INIT AND ALLOCATE BUFFER 


69 88232 

78 

71 88231 


880287 


RETURN 






PUSHI 








72 80231 


816516 
888812 


MOV 


FAC2(R5),.(SP) 




73 88218 


816516 
888818 


MOV 


FAC1(R5),-(SP) 


1 PUSH FAC TO STACK 


71 88211 


888131 


POLRET 






75 80216 


PUSHll 








76 88216 


885816 


CLR 


•(SP) 




77 88258 


812716 
818288 


MOV 


•18200, -(SP) 


( PUT 1.0 ON STACK 


76 88251 


808131 


POLRET 






79 88256 


POPI 








88 88256 


812665 

888818 


HOV 


(SP)*,FAC1(R5) 




91 80262 


812665 

080812 


MOV 


(SP]t,FAC2(R5) 


) POP STACK TO FAC 


82 80266 


888131 


POLRET 







SB 
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1 

2 

3 

« 

5 000271 

6 000270 

7 000272 



I 000}02 
10 00S0a 

II 00]06 

12 

1} 00)12 

in 00312 

15 0031' 

16 

17 

la 

I* 
21 

21 

22 00316 

23 0*316 

2« 00322 

25 0032< 

26 0032' 

27 00330 
21 01332 
2« 

30 

31 

32 

33 

3' 

35 

36 

37 00332 

38 

34 00334 

«• 
• 1 
•2 

'3 
" 
•5 

«6 

'7 00360 
'0 00310 
«4 003«2 

50 003" 

51 003«6 



I ROUTINE TO STtRT POLXiH >N0 CHECK fO* LErt P'REN. 



POLENTi 
01260' 
005067 
177576 

122127 CKLPiRi 
0000006 
001001 
000)3' 

000167 CKLSYNl 
000000C 



01260' 
00013' 



122127 
000000S 

00100' 

C 
121127 
000000S 
001001 



000167 CKI)Pt0| 
000000S 



nov 
CLP 



BNE 

POLPET 

JHP 



(»P)»,R' 
OPtRSF 

(PlJ».».tP»R 

CKLSTN 

ERPSYN 



aiKPOLI 



MOV (9P)*,R' 
POtflET 



I SET UP POLISH PC 

I SET tRC, NECESS«RV FL66 

I FIRST TOKEN » •{■ t 

I N0> ERROR 

I SYNTIX ERROR 



I SET UP POLISH PC 

I tND ENTER POLISH HOOE 



t SENERtL EXIT ROUTINE HHICH CHECKS FOR RIGHT PtREN 
I CALLED ST I JHP CKRPAR 



CKRP6RI 



CHPB 

SNE 

CHPB 

BNE 

,IFOF 

TST 

NOV 

HOV 

NOV 

JHP 

■ ENDC 

.IFNOF 

RETURN 

• ENDC 

JHP 



(RUt.P.RP'R 
CKRPt* 
CRD.'.EOL 
CKRP6B 

SDISK 

(SP)« 

(SP)1.,R5 

(SP)«,R« 

(SP)t,Rl 

IGNORE 

SOISK 
ERRSTN 



I t RIGHT PARENT 

I BR IF NOT 

I 'NO ENO-OF LINET 

I HO' ERROR 

) CLE6N STACK 



I RESTORE BASIC REGISTERS 

I EXIT THRU SASICR 



I SYNTAX ERROR 



I ROUTINE TO SKIP AN ARGUHENT IN CALLING SEQUENCE 
t Rl POINTS TO FIRST TOKEN OF ARGUHENT ANO ROUTINE 
I SEARCHES FOR A ".COHHA", EXIT POINTING TO "," 



SKPARGI 
0100'6 
005000 

005700 SKPA3I 
001003 



OV^ 



NOV R*,-<SP) 

CLR R0 

TST R0 

BNE SKPA' 



I SAVE R0 ON STK 

t ASSUHC NO PARENTHESES 

( ANY PARENTHESES YETT 

I YES« BRANCH 



'\' 
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52 00350 


121127 
000000C 




CHPB 


(RD.P.COHNA 1 


DID HE FIND A COHHAT 


53 0035' 


001'16 




BEQ 


SKPAB 1 


YES- EXIT 


S' 00356 


121127 
000000G 


SKPA'i 


CHPB 


(R1),«.LPAR ) 


A •(•? 


55 00362 


001001 




BNE 


SKPAt t 


N0« KEEP LOOKING 


56 0036' 


005200 




INC 


R0 1 


YES- INCREHENT NEST DEPTH 


57 00366 


121127 
000000G 


SKPAll 


CHPB 


(R1),«.RPAR 1 


A •)•» 


58 00372 


001002 




BNE 


SKPA2 , 


NO- BRANCH 


59 0037' 


005300 




DEC 


RG ) 


DECREHENT NEST COUNT 


60 00376 


100a05 




BHI 


SKPAB 1 


BRANCH IF EXTRA •)• 


61 00'00 


122127 

000000G 


SKPA2I 


CHPB 


(R1)*,»,E0L 1 


END OF LINE T 


62 00'0' 


001357 




SNE 


SKPA3 1 


NO- LOOK SOHE HOPE 


63 00'06 


000167 

000000G 




JHP 


ERRSYN 1 


YES- ERROR 


6' 00'12 


012600 


SKPA0I 


HOV 


(SP)«,RB 1 


RESTORE R0 


65 00'ia 
66 


00013' 




POLRET 




RETURN IN POLISH 


67 
68 




1 


POLISH 


REGISTER SAVE ANO 


RESTORE 


60 






1 FPP3AV CALLED BY JSR R4 




70 
71 
72 00«16 






1 FPPRES CALLED IN POLISH 


HOOE 




FPPSAYl 








73 00116 


062705 
0000" 




ADD 


•RBSAVE.RS 1 


POINT TO SAVE AREA 


7' 00'22 


010025 




HOV 


RS,(R5)« 




75 00'2' 


010125 




HOY 


Rlf (R5)* 




76 001126 


010225 




HOV 


R2>(R5)* 




77 00'30 


010325 




HOV 


R3>(R5)* 




78 00'}2 


012625 




HOV 


(SP)«,(R5)« 




7<» 00«3' 


162705 
000056 




SUB 


•R0SAVE«12>R5 




80 00"0 

81 

82 00"2 


00013' 




POLRET 


1 


ENTER POLISH HODE 




FPPRESt 








83 00a'2 


062705 

0000" 




ADO 


«R0SAVE,R5 




8' 00"6 


012500 




HOV 


(R5)«,RB 




85 00650 


012501 




MOV 


(R5)«,R| 




86 00452 


012502 




HOV 


(R5)*,R2 




87 00'5' 


012503 




HOY 


(RS)*,R3 




88 00«56 


0125" 




"OV 


(R5)»,.<SP) 




89 00660 


162705 
000056 




SUB 


«R0SAVE»I2,RS 




90 0046' 

91 

92 


000204 




RTJ 


R4 I 


RETURN IN cue MODE 






• IFDF 


SDISK 





y^ 



v; 



/ 



CTe v«i-et eisic • gt root hod DT>ti ntcRo VMii«e4 i6<acT-Ta g!ie6igT p>ge 6 



t 
2 
I 
« 
s 

6 
7 
S 

1 

IB 
II 
12 

11 0«a66 
la egatk e22767 
eieki0' 



15 eeii7ii 

16 ge«7b 



.SBTTL 
.ENDC 



STOP BlSPUr INTfPBUPT ROUTINE 



) ROUTINE TO PROCESS 'SOINT« PROM OPU 

I CiSE II C<IL TO SUBPICTURE, THEN CONTENTS OF X 

I (IN DPC) IRE SREATER THAN X*2 

I X IS THE lODRESS OP THE "ORO AFTER "SOINT" 

I CASE 2l EXIT PROH SUSP, THEN CONTENTS OP X • g 

I CASE II ADO ON AT END OP FILE. THEN 

I CONTENTS OF X < X«2 



DISINTI 



17 agsgu 
IS egsg6 

l« 00S1O 

20 easi2 

21 00516 
22 

23 00520 
2a (10522 

25 00521 

26 00526 



27 egsja 

28 005«0 

29 00541I 
S0 00546 

31 00550 

32 00552 

33 00556 



IS eesT0 

36 00572 



17 00576 
3t 00602 



I? 00606 

a0 00610 



001000 

0U767 

160000 

010102 

000002 

010016 DIS0I 

010216 

016700 

000000S 

012002 

001111 

020002 

101022 

062767 

000002 

000626 

010077 

000622 

011067 

000000C 

012602 suati 

012600 



017700 sue0i 



162767 

000002 

000576 

011067 

0000000 

000765 

016710 SUB2t 

000111 

016710 

000116 

016700 

000030 

005710 

010067 

000021 



8NE 
MOV 



R7I 
MOV 
MOV 
MOV 



8E0 

CMP 
BHI 
ADO 



MOV 
MOV 
RTI 
MOV 



8R 
MOV 



TST 
MOV 



•OSTOP.DPC 



DIS0 
•0JMP,08T0P-2 



RSi-(5P) 
R2,-(SP) 
DPC.RS 

(R0)*.R2 

SUB0 

R0iR2 

SU82 

II2.ADSTK 



R0,*ADSTK 
(R0),OPC 



(SP)»,R2 
(3P)«,R0 



«2,ADSTK 



•(R0),DPC 



SU81 
WD2>-<R0) 



HOI, •(Re) 
DISEND>R0 



•(R8) 

R0,ACTEND 



I DID ME STOP IN TIEHT kOOPT 



N0« CONTINUE 
RESTORE PILE 



YES- DON'T RESTART IT, EXIT 
SAVE R0 
SAVE R2 

HHERE DID DPU STOP? 

R2 CONTAINS CONTENTS OP X 

R0 CONTAINS X«2 

BR IF CASE 21 END OF SUBPICTURE 

COMPARE X»2 MITH (X) 

BR IF CASE 31 ADD TO DPV PILE 

INCREMENT DPT ADR STK PTR 



STORE X«2 IN STACK 

START DPC GOING IN SUBPICTURE 

RESTORE R2 

RESTORE R0 

AND RETURN FROM INTERRUPT 

PUT X»2 INTO R0 

DECREMENT OPT ADR STK PTR 

PUT (X) INTO DPC 

AND EXIT 
INSERT HORO 2 

INSERT «ORD t 

GET NE" END OF DPY FILE ^2 

POINT AT ACTUAL END 
STORE IT 



\ 



aA 
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00611 005710 
00616 010067 

i!0e01'l 
00622 00S067 

eeeeeb 

00626 001767 

002036 

00632 000711 



00631 000000 INSRTFi .kORD 

00636 177777 DISENDl .HORO -1 

00610 000000 ACTENDl .KORD 

00612 000000 ACTSTi .KORD 



TST 

MOV 


•(»0) 

R0,OISENO 


CLR 


INSRTF 


JSR 


PC,INIT3 


SR 


SUBI 



,IFDF IDISK 



I POINT TO NEH DISENO 

) STORE IT 

I CLEAR INSERT PENDING FLAG 

I RESUME THE DPU 

I AND EXIT 

) INSERT PENDING FLAG (HHEN SET) 

I POINTER TO NEM SLOT IN DPY FILE 

I POINTS TO END OF RUNNING OPT FILE 

( LO-END OF OPT FILE 

I PRECEDED BY I OR 2 NOROS 

I (2 IF SDISK DEFINED) 



^7 



/.v 



^ 



'^- 



6TB vai>ei B<s:c • gt root noo kt>ii Ntcno VN«2«a« tk«0CT>r« Kiititr net t 



t 
i 

] 

a 
5 

* 
7 

a 

9 

le 
11 
U 
U 

t« 

15 
16 

w 

IS 

1» 
za 

21 
22 



iSSTTl INSCaTION INTO Oft FILE KOUTtNES 
,ENOC 



I DOUTINE TO INSEBT NOROa INTO O^Y FILE. THE FIRaT THO NOROa 

t >RE SAVED IN NDl, tNO K02, TO OVERUtf THE LiST THO ENTRIES 

I IN THE RUNNING DISFKY FILE. 

I CALLED BTl JSR PC.FUTHD 

I WORD TO BE INSERTED NUST BE IN RB 



23 
2a 
2S 
2k 
27 
2B 
2» 

}a 

31 

32 

33 
3a 



aebaa nenputi 
aataa aase67 
aauta 
ga65« PUTHDi 
aatsa eia2at 

get52 912782 PUTSI 

aee»36' 

aatSk 126712 
BBTTSa 

aa662 ie3e«3 

aa66a DFOERRi 

aa66a iBaate 

aa66k laa 
ea667 ia6 

B86Ta 117 



08676 

ea7aa 
aa7aa 

01796 
00710 



3S aa7t« 



aa720 

00722 

00726 

00710 
00732 



000 

0B5767 PUT7I 

177736 

00I37S 

026712 PUT6I 

177736 

101007 

00taii 

010072 

000000 

062712 PUT3I 
000002 
012602 
000207 
010067 PUTtI 
000010 
000771 
010067 PUT2I 



ai 00736 000766 

42 

«3 00740 000000 HDll 

aa 00742 000000 W02I 

4S 

46 ) 



NOV 
NOV 



CMP 
BHIS 



OLDHOD 



R2.-(SP) 
•0ISEN0,R2 



DCR*SHi(R2) 
PUTT 



I SO NEXT SON HILL BE INSERTED 



I SAVE R2 ON STK 

I GET CURRENT END OF DPT FILE 



I END OF DPV FILE 
I NO- CONTINUE 



TRAP a 
.IFNDF SLONGER 
.ASCII /DFO/ 



.ENDC 

,IFOF 

•ASCII 

,ENDC 

.BYTE 

.EVEN 

T8T 

BNE 

CHP 

BHI 
BEO 
HOV 



NOV 

RETURN 

MOV 

BR 
NOV 



SLONGER 

/DISPLAY FILE OVERFLOH/ 





INSRTF 



PUI7 
ACTEND.(R2) 

PUT I 
PUT2 
Ra,*(R2) 

•2>(R2} 

(SP)«,R2 

Ra.Hoi 

PUT3 
Ra.HDZ 



,a0R0 
,HORD 



I IS THERE AN INSERT PEN0IN6T 

I YES. HAIT UNTIL IT IS FREE 

I HAVE HE INSERTED ANY HORDS YETT 

I NO- STORE IN HDI 

I VES- ONE- STORE IN tlD2 

I MORE THAN TNO, PUT IT IN LINE, 

I INCREMENT DPY END PTR 

I RESTORE R2 

I EXIT 

I STORE IN NORO 1 

t AND EXIT 

I STORE IN HORD 2 

I AND EXIT 

I FIRST TEMPORARY HORD 

I SECOND TEMPORARY NORO FOR DPY FILE 



iV 



r 
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47 
as 
44 
50 
51 
52 
53 
54 

55 

56 

57 

SB 

59 
60 

61 

62 

63 

64 



I ROUTINE TO SET UP THE INSERT INTO THE DPY FILE. 

I THIS ROUTINE HILL BE CALLED BY EACH ROUTINE AFTER IT 

I HAS DONE ALL OF ITS •PUTND*. IT IS USUALLY FOLLONED BY 

I A JUMP TO CKRPAR, CALLED BTl JSR PC, INSERT 



00744 INSERTl 
B07aa 005777 TST 

000402 
00750 001015 8NE 
00752 012700 MOV 

160000 
00756 004767 JSR 

177666 
00762 016702 MOV 

177652 
00766 011200 MOV 
00770 004767 JSR 

17765a 
00T7a 010667 MOV 

17763a 
01000 0127a2 MOV 

17J400 
0100a 000207 INSXITi 



RETURN 
.IFDF 



•NSTSK I HON ARE ME DOING ON 9UBPT 

INSXIT I NOT 8- STILL IN A SUSP 

•OJMP.Re I PUT DJMP INTO R8 

PCPUTND I STORE AT END OF DPY FILE 

ACTEND,R2 I GET LOOP ADDRESS 

(R2),Ra I KEEP THE POINTER TOO 

PCPUTND I STORE IT AT NEM END OF DPY FILE 

SP, INSRTF t SET INSERT PENDING FLAG 

•SDINT,-(R2) I PUT SDINT AT OLD END 

I ■ RT8 PC 



W 



i\- 
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,9BTTk 
• CNBC 



■SUSP* ROUTINE 



io aieae 

21 eieoi 

22 tieot 

21 01S52 

2a ai05a 

25 91056 

26 01062 
2T 01066 
20 01072 

29 01076 

30 01100 
SI 01102 

32 01106 

33 OHIO 
3« 01112 

35 01120 



36 01126 

37 0U3O 



38 01136 



10 



016602 SUBPOI 

000002 

003773 

00«767 

000302 

005700 

001367 

012700 

1731100 

0011767 

177562 

016700 

1775I14 

062700 

000010 

012602 

011646 

010266 

000002 

001022 

005020 

062767 

000002 

000272 

022767 

0OUt2' 

0OO26« 

101907 

016777 

177502 

00025a 

062767 

000002 

177072 

000013 



I ROUTINE TO HiNOLEl 

I CALL "SUSP" (T t.Tll) 



01006 SUBPl 

01006 000767 
177172 

01012 000136' 

01010 000006' 

01016 000000' 

91020 000066' 

01022 000076' 

91020 000006' 

31026 000000' 

11030 001032' 

91032 002002 

91030 000167 SUBPII 



BGC 

JHP 



BLE 
JSR 

T8T 

BNE 
HOV 

J8R 

HOV 

too 

MOV 
HOV 
HOV 

BNE 
CLR 

too 



BLOS 

HOV 



too 

BR 



PCBurPOL 

♦GETONE 
*tNTE0R 
♦84VINT 
♦3ET0PT 
tGETNUN 
«INTEGR 
♦84VINT 

8U8P0 

ERRARC 

2(8P),R2 

BUBPt 
PCfTAGSRH 

RO 
SUBPt 

'80INT.ro 

PC.PUTNO 

0I8EN0>R« 

«1O>R0 

(8P)»,R2 

(SP),-(8P) 

R2,2(SP) 

8UBP2 
(R0)« 
•2>N«TBK 



) ENTER POLISH AND CHECK >(• 

I GET P1R8T PARAMETER 

I INTEGERIZe TO 32767 OR LESS 

I SAVE INTEGER ON STACK 

I Tl IS OPTIONAL ARGUMENT 

) CHK "," AND GET Tl (ELSE 0) 

I INTEGERIZE TO 32767 OR LESS 

» SAVE Tl ON THE STACK 

I AND EXIT FROH POLISH HOOE 

I BR IP Tl » 

I ARGUHENT ERROR 

I MOVE T TO R2 

t BR IF T » 

I LOOK FOR T IN FILE. BETTER NOT FIND IT 



) ERROR- TAG ALREADY IN USE 



I PUT IN SDINT FOR SUSP CALL 



I ADR OF THE 8UBP 

I PUT Tl INTO R2 

) HOVE T DOHN ONE PLACE 

) PUT Tl BACK ON 8TK 

I BR IF 2 PARAMETER CASE 

I ZERO HORD BEFORE SUSP 

I ADD 2 TO CALL SUSP PTR 



•NSTSK.NST8K | ARE HE POINTING TO OURSELVES? 

NSTERR I rES> OVERFLOH STACK DEPTH 

0ISEND.PN8T8K I NO- SAVE PTR FOR REST-OF-FILE PTR 

»2.0I8ENO I BUMP PTR PAST THAT HORO 

SU8P3 I CONTINUE 



/ ■/ 






\: 
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01 01106 


NSTERRI 






02 01106 


IOOOO0 


TRAP 





03 




.IFNOF 


SLONGER 


00 01150 


111 


.ASCII 


/IN8/ 


01151 


116 






01152 


123 






05 




,ENOC 




06 




,IFDF 


SLONGER 


07 




.ASCII 


/IMPROPERLY Nl 


08 




.ENOC 




09 01153 


000 


.BYTE 





SO 




• EVEN 




51 








52 OllSO 


000767 SUBP2I 
177070 


JSR 


PC.PUTNO 


53 01160 


000767 
000230 


JSR 


PC.TAGSRH 


50 01160 


BOSTOB 


TST 


RO 


55 01166 


001722 


BED 


SUBPl 


56 01170 


016000 
177770 


HOV 


•O(R0),RO 


57 01170 


000767 SU8P3I 
177050 


JSR 


PC.PUTHD 


58 01200 


016777 
177032 
000230 


MOV 


DI8END.PTAGENI 


59 01206 


012600 


MOV 


(8P)t,R0 


60 01210 


000767 
177030 


J8R 


PC.PUTNO 


61 01210 


016767 
177016 
000210 


MOV 


OISEND.TAUENO 


62 01222 


005000 


CLR 


RO 


63 01220 


000767 
177010 


JSR 


PC.NEMPUT 


60 01230 


000767 
177510 


JSR 


PC. INSERT 


65 0123O 


012600 


MOV 


(SP)*>RO 


66 01236 


001002 


BNE 


.»6 


67 01200 


000767 
177000 


JSR 


PC.PUTHD 


69 01200 


000167 
177006 


JHP 


CKRPAR 


69 




.IFOF 


SDI8K 



I PTR TO REST OF FILE 
I FIND Tl. HOPEFULLY 



I FAILED TO FIND IT- ARG, ERROR 
I GET START ADR OF SUSP 

I PUT AOR INTO DPY FILE 



I GET TAG T 

( INSERT IT INTO DPY FILE 

I FIX PTR TO END OF LIST 



; NEXT TAG PTR'O/ NEH SSH 

I INSERT IF 2-PARAM CALL 

I GET Tl AGAIN 

I 2 PARAM, CASE- BRANCH 

I ELSE INSERT A ZERO 

t AND EXIT 



Si 
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t 
i 
] 

a 
5 

7 

8 eeusg 

18 012Sa 
II «li*« 

li ei2t« 

)} 8t2«t 

la ei!72 

IS 11276 

It gi>a« 

17 «I10* 

la «t]i2 
I' »iJi» 

2( 0132a 

21 0t}}0 

22 

23 

2< 

2S 

2k 

27 

20 

29 

30 

31 

32 01334 

33 

3a 01362 

3S 0136a 

36 

37 0HI2 

38 



.SBTTU 
,ENDC 



•CSUS> ROUTINE 



I ROUTINE TO HANDLE I 
I CALL •E8UB> 



0ea767 
17673« 
012780 
173a0B 
00a767 
17736a 
00S000 
081767 
177356 
816700 
1773a0 
017767 
000110 
177332 
001720 
0Ba767 
177332 
810067 
177320 
162767 
000002 
800066 
006767 
I77aia 
000167 
176770 



JSR 
MOV 
J»» 

CLR 

J»R 

HOV 
NOV 



BEQ 

jaR 



MOV 
SUB 



J8R 

esxiTi jMP 



PCBUFTBT 
•SDINT.RB 
PC.PUTMO 

R0 

PCPUTWO 

OiaENO>R0 
*NtTSK.DISENO 

NSTCRR 
PCNEHPUT 

ROtOISENO 

•2>NaTaK 

PCINBERT 
CKEOt 



ANY BUFrtR YETt 

PUT SOINT INTO »» 

IN8ERT AT END OF OPY FILE 

FOLtOHED BY A 

•AVE OIBENO AND UBE IT TOO 

"HERE TO PUT IT 



TOO MANY Esuaa IF ■ 

INSERT INTO OPY FILE/ NEH SON 



STORE OISENO 

DROP CALL PTR BY 2 



CAN INSERT NOH 
EXIT TO USER 



I THE STACK DEPTH OP SUSP IS AN ASSEMBLY 

I PARAHETER INSTEAD OF OEFAULTINO TO A VALUE OF 10 

I ••• IT IS THE PARAMETER, SDEPTH 

t aOEPTH INCLUDES CALLS TO 2 PARAMETER SUBP 



I 



000000 
001362' 

000000 
000000 

00iai2' 

888088 NSTSKI 



I STORASE FOR POINTERS IN SUBP AND EBUB 

I "ORD TO DETECT BOTTOM OF OPY 8TK 



ADSTKl 
NSBASi 



iKORD 

.••«aDEPTH«SOEPTH 

(MORD 

.NORD 

,>,*aDEPTH*aDEPTH 

.IIORD 

,IFOF SDISK 



I POINTER TO OPY STACK 

I NORD TO DETECT BOTTOM OF NEST 



t POINTER TO NEST STACK 



y 
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iSBTTL 
• ENDC 



MISCELLANEOUS ROUTINES 



I ROUTINE TO FIND A GIVEN TAG (PASSED IN R2) 

I ON EXIT R8 • IF TAG NOT FOUND 

I ELSE 

I 118 POINTS TO THE PTR F0LL0NIN6 THE TAG 

I R3 POINT TO THE PTR POINTING TO THE TAG 

I CALLED BY JSR PCTAGBRH 

I Re AND R3 ARE CHANGEDt R2 NOT CHANGED 



0iaia 
aiaia 

0ia28 
8ia22 
8ia2a 
8ia26 
8ia38 
8la32 

8ia3a 
8ia]6 



TAGSRHI 
816780 

Boeata 

822802 TGLOOPi 

001103 

810803 

811808 

881373 

808207 TAGXITi 

aiesia'TAGHEDi 

808808 TAGENDl 



MOV 

CHP 
BEO 
MOV 
HOV 
BNE 
RETURN 



TAGHED.RB 

(R0)»,R2 

TAGXIT 

RB,R3 

(R0),Ra 

TGLOOP 



aiaae 

aiaaa 828827 
888188 

aiuaa 882a82 

8tua6 88S267 
8883S6 

ei«52 

8la52 8188a6 
aiaStt 888136 



TST6ai 



.KORD TAGl 
.'ORD a 



I GET START ADR OF TAG LIST 

I DO TAOS MATCHt 

t YES- EXIT 

I Rl POINTS TO PTR POINTING TO TAG 

I GET ADR OF NEXT PTR 

t LOOP IF NOT AT END OF LIST 



I POINTER TO FIRST TAG 

I POINTER TO PTR AFTER LAST TAG 



I POLISH ROUTINE TO TEST IF R8 « 6a 
I XYBIG IS INCREMENTED IF IT IS >• 66 
I USED IN ARGGET AND OTHER PLACES 
I SAVE IT ON THE STACK 



8LT 

INC 



Ra,«i00 



SAVER8 
XVBIG 



MOV Ra.-(SP) 

POLRET 

,IFDF SDISK 

.EOT 



) COMPARE WITH 66 

I BR IF < 66 

I INCREHENT COUNTER OF BIG VALUE3 



I SAVE R0 ON THE STACK 
I RETURN IN POLISH 



^^ 



/ • 



',\ 
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2 

] 

t 

s 

i 
7 

9 

to 

11 
12 
|] 

14 
IS 
16 
IT 

la 

19 
20 
21 
22 
23 
2« 
2S 
26 
2T 
20 
29 
}0 
31 
32 
33 
31 



DEC • 11 • L0P68 • t 
6T0,H«e TtPE 2 OF a 



L« 



BtSie KERNEL V02-01 



THE INFORMtTION IN THt3 LUTtNC IS SU0JECT TO CHtN6E HITHOUT NOTICE 
AND SHOULD NOT BE CONSTRUED «8 « COMHITHENT BV OIStTAL EOUIPHENT 
CORPORtTION, DIGITtt EQUIPMENT CORPORtTION ASSUMES NO RESPONSIBILITV 
FOR ANy ERRORS THAT MAT APPEAR IN THIS lISTINGi 

THIS SOFTWARE IS FURNISHED TO THE PURCHASER UNDER A LICENSE 
FOR USE ON A SINGLE COHPUTER STSTEM AND CAN BE COPIED (NITH 
INCLUSION OF DIGITAL'S COPYRIGHT NOTICE) ONLT FOR USE IN 
SUCH srSTEH, EXCEPT AS HAY OTHERWISE BE PROVIDED IN WRITING BV 

DIGITAL. 

DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITV FOR THE 
USE OR RELIABILITY OF ITS SOFTWARE ON ESUIPHENT THAT IS NOT 
SUPPLIED BY DIGITAL, 

COPYRIGHT (C) 1973, 19T«, BV DIGITAL EOUIPHENT CORPORATION. 

AUTHORl DR, STEPHEN R, ALPERT AUGUST I9TS 

,SOTTL "ERAS" ROUTINE 

,ENOC 



Blast 
0U56 



0ia66 
0ta70 



0ia76 
01502 

0i;06 

01510 
01512 
015111 

01520 
01522 



a6 01526 



01532 

01534 
01536 



ERASi 

00IIT67 

176526 

121127 

000000G 

001005 

012767 

160000 

007010 

000167 

176622 

004767 ERAS0I 

176562 

000136' 

000006' 

001514* 

016502 

000042 

003002 

000167 ERAStI 

0000001 

004767 ERAS2I 

177662 

005700 

001772 

012760 



I ROUTINE TO HANDLE 

I CALL "ERAS" [( T 

I IF T IS NOT SPECIFIED, 



JSR 

CMPB 



BNE 

MOV 



JMP 
JSR 



B6T 

JHP 



TST 
BES 

MOV 



PCBUFTST 
(R1),',E0L 



ERAS0 

•DJMP,BEG 



CKEOL 

PCPOLENT 

*GETONE 
♦INTEGR 
.♦« 
FAC2(R5),R2 

ERAS2 

ERRARG 

PCTAGSRH 

R0 

ERAS! 

•OJHP,>10(R0) 



THEN ERASE TRAK 

ANY BUFFER VETt 

END OF THE LINE? 

NO • GET T 
OJMP OVER TRAK 

EXIT TO USER 

ENTER POLISH MODE AND CHECK 

GET T 

INTEGERIZE TO 32767 OR LESS 

EXIT POLISH 

GET T AS AN INTEGER 

BR IF T LEGAL 
ARGUMENT ERROR IF T<>0 

FIND THE TAG IN DPY FILE 

DID WE SUCCEED? 

ARG. ERROR IF CAN'T FIND IT 

REPLACE SDINT BY DJMP 



/:■.: 



,-4- 
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177770 








50 


01544 


005060 
177776 




CLR 


-2(R0) 


51 


01550 


016002 
177772 




MOV 


•6(R0),R2 


52 


01554 


011013 


ERAS5I 


MOV 


(R0),(R3) 


53 


01556 


001405 




BED 


ERAS3 


54 


01560 


021002 




CMP 


(R0),R2 


55 


01562 


101005 




BHI 


ERAS4 


56 


01564 


011000 




MOV 


(R0),R0 


57 


01566 


005020 




CLR 


CRB)» 


58 


01570 


000771 




BR 


ERASS 


59 


01572 


010367 

177640 


eRAS3l 


MOV 


R3.TAGEND 


60 


01576 


000167 
176514 


eRAS4i 


JMP 


CKRPAR 


61 








.IFOF 


SDISK 



\ MAKE THE TAG ZERO - FOR "SAVE" 

) GET ADR OF REST OF FILE 

I MOVE LINK 

I BRANCH IF END 

I NEXT 8U8P IN REST OF FILE? 

t YES« BRANCH 

I GET NEXT LINK 

I ZERO TAG FOR "SAVE" 

I LOOP 

I ADJUST END OF LINK 

I CK ")" AND EXIT 



Gl 



\^ 
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I 
2 
} 

a 
s 

6 
7 
8 

9 801612 

10 81682 

It 01686 
12 81610 

|] 0)614 
14 81616 

tS 01622 

16 81626 

17 816)8 

10 01634 
t« 01636 

20 01642 

21 01646 

22 0U52 

23 016S6 

24 81662 

2S 

26 81666 

27 81678 
81672 

2) 81674 
01676 
24 01700 
)0 



,S8TTL "LPCM" ROUTINC (NOT INTERRUPT) 
,CNOC 



LPENI 
884767 
176576 
081618' 
804767 
080222 
88S822 
816712 
0888S6 

884767 LPEN8I 
176330 
081782' 
884767 
880282 
08S022 
016712 
008024 
012708 
801678* 
804767 
004444 
004767 
004440 
80S867 
088816 
000167 
176410 

808000 LPENTt 
088088 LPCNXI 



I ROUTINE TO HANDLE 

I CAUL "LPEN" (H, 

I DOESN'T CHECK REST OP 



JSR 

JSR 

CLR 
HOV 

JSR 

JSR 

CLR 
HOV 

HOV 

JSR 

JSR 

CLR 

JHP 



PC.BUPPOL 

1*2 

PCCETtDR 

(R2)« 
LPEN,P,(R2) 

PC>ENTERP 

tCKOPCH 
PC.SETiOR 

(R2)« 

LPENT,(R2) 

«LPEN>,R« 

PCOPTSTR 

PC.OPTSTR 

LPEN.P 

CKRPAR 



888088 LPENTl 
888888 

888880 LPEN.Ft 



,HORD 
,HORD 0,0 



,HORO 0,0 



,HORD 
,IPOP SOISK 



AS t,X, T]) 
RSS IP H40 



ENTER POLISH NODE AND CK •(• 

EXIT POLISH POP NON 
SET ADR OP H INTO R2 

CLEAR HI«ORDER HORD 
STORE HIT VARIABLE 

IHNED. POLISH 

JUHP BY THE COHNA 

SET ADR OP TAS INTO R2 

CLEAR HI«ORDER HORD 
STORE THE TAS 

PUT ADDRESS OP SOURCE 

STORE OPTIONAL ARSUHENT X 

STORE OPTIONAL ARSUMENT T 

CLEAR LPEN HIT PLAS 

CHECK •)» AND RETURN 



LPEN TAS STORASE 
X COORD, OP LP HIT 



V COORD, OP LP HIT 

LPEN HIT PLAS ( HIT • 1) 
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,SBTTL 


HISCELLANEOUS ROUTINES 




1 


,ENDC 






1 ROUTINE TO CHECK (POSSIBLY) OPTIONAL COHHA 


S 081782 






1 USES 


R2 


CKOPCHI 








9 801702 


112146 


MOVB 


(Rt)»,-(8P) 


) SET THE TOKEN IN SUESTION 


18 81704 


800241 


CLC 




1 ASSUHE POUND 


It 01706 


121627 
008800G 


CHPB 


(SP),«, COHHA 


1 COHPARE MITH COHHA 


12 91712 


081418 


SES 


CKOPCS 


1 BR IF A HATCH 


13 91714 


885767 
176154 
881487 


I8T 


OPAROP 


1 NOT A HATCH, OPTIONAL? 


14 81728 


BES 


CKOSYN 


) NOT OPTIONAL, ERROR 


IS 81722 


121627 

9888890 


CHPB 


(SP),«,RPAR 


» IS IT A «)• T 


16 81726 


991984 


BNE 


CKOSYN 


1 N0» ERROR 


17 81738 


995381 


DEC 


Rl 


1 POINT AT •)" 


It 81732 


899261 


SEC 




1 PLAS COHHA NOT POUND 


19 91734 


995726 CKOPC0I 


T5T 


(SP)* 


1 CLEAN STACK 


28 91716 


999134 


POLRET 




t AND EXIT 


21 81740 


900167 CKOSYNi 
888880C 


JHP 


ERR8YN 


1 SYNTAX ERROR 
















) ROUTINE TO SET«SRAPHI{ 


•NODE PROM R0 


26 91744 




1 CHECKS TO SEE IF SAHE 


AS PREVIOUS MODE 


PUTSSHi 








27 91744 


028867 
999814 


CMP 


II0,OLOHOD 


( DIFFERENT HODET 


28 81758 


881484 


BEO 


PUTS0 


t N0> BRANCH 


29 81752 


884767 
176672 


JSR 


PCPUTND 


1 YES- INSERT IT 


39 01756 


019867 
999882 


NOV 


R0,OLDHOD 


1 SET 'NE"" OLOHOD 


31 81762 
33 81764 


999287 PUTS0I 


RETURN 




1 EXIT 


888888 OLOHODI 


,>0R0 




t VALUE OF PREVIOUS OLD SET-S-H 






,IPOP 


(DISK 





^^ 
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) 


•JBTTL 
,CNOC 


tRSUHENT GET FOR t^NTiROOT «N0 VECT 


1 »OUTlNe 70 SUPPLY 


ALL 


ARGUMENTS FOR "VECT", 






1 "APNT' 


■ *N0 'ROOT" 










) ON EXITi 










1 


R0I BITS 1010 OF 


8ET-6RAPHIC.MO0E 






1 


(SP)| V«LUE 


OF Y 




10 




1 


2(SP)I VtLUC 


; OF 


X 


11 




» 


XTBIGI NO, OP tPGS, (X.V) EXCEEDING 63 


12 




1 


XSIGNI BIT 13 ON 


IF X NEGATIVE 


13 




1 


rSIGNI BIT « 


. ON 


IF Y NEGATIVE 


11 
IS 
16 01766 




1 CILLEO Vltl JSR 


PC, 


GETARG 


ARGSCTl 










17 01766 


012667 

00003« 


MOV 


(SP)«,GETSAV 




1 SAVE RETURN AOR OFF STK 


la 01772 


00S067 
000032 


CLR 


xreiG 




1 ASSUME X,Y < 64 


H 01776 


00a767 
176266 


JSH 


PC.POLENT 




1 ENTER POLISH AND CK •(• 


20 02002 


000136* 




♦OETONC 




1 GET X OR DX 


21 0200* 


00«770» 




tSCAUEX 




t SCALE IT 


22 02006 


00|iia0> 




♦T8T6« 




) CHECK IF < 6a AND ONTO STK 


23 02010 


000076' 




♦GETNUH 




1 CK «,» AND GET Y 


21 02012 


00S0a2' 




♦SC»LEY 




1 SCALE IT 


25 02011 


001040' 




♦TST6« 




1 TST IF < 6a ANO ONTO STK 


26 02016 


003050' 




♦ LIFT 




1 GET L, t, F, T 


27 02020 


002022' 




• *2 




1 EXIT FROM POLISH 


20 02022 


000177 
000000 


JtIP 


•6ETSAV 




1 RETURN TO CALLER 


29 












30 02026 


000000 GETSiVl 


.aQRD 






1 RETURN ADDRESS 


31 02030 


000000 XYBIQI 


.Mono 






1 VALUES > 63 


32 02032 


000000 XSIGNI 


.KORD 






1 BIT 13 ON IF X NEG 


33 020311 


000000 YSIGNt 


,HORO 






1 BIT 6 ON IF Y NEG 


3tt 




.IPOF 


IDISK 
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1 




.S8TTL 


ADDRESS CALCULATION ROUTINE 


2 
3 

4 


1 


,ENDC 




i«* 




5 
6 




I ROUTINE TO FETCH 


ADDRESS FOR STORING VARIABLES 


7 




1 IN ARRAYS, IF SS2<- 


1 (I.E. XGRA,YGRA, OR FIGR ) 


8 




1 THEN 


ONLY ONE KORD 


ENTRIES ARE ASSUMED, 


9 




1 USES 


Rt, R2, R3, 




SAVES R0 


10 




1 CRASHES IF CALLED 


HMEN Rl POINTS TO CONSTANT 


It 
12 
13 02036 




1 DESTROYS THE FAC 


IF 


SUBSCRIPTS INVOLVED 


GETAORl 










10 02036 


010046 . 


MOV 


R0,-(8P) 




1 SAVE R0 


15 02040 


112102 


MOVB 


(R1)*,R2 




( BUILD "ORO OFFSET 


16 02042 


100535 


SMI 


GETA03 




1 CK IF OPTIONAL ARGUMENT 


17 02044 


000302 


SHA8 


R2 






18 02046 


152102 


BISB 


(R1)«,R2 




1 GET SECOND HALF 


19 02050 


061502 


ADD 


(RS),R2 




1 ADD PTR TO USER AREA 


20 02052 


021227 
177776 
003070 


CMP 


(R2),«>2 




1 IS IT A SCALAR OR ARRAY? 


21 02056 


BGT 


ADRARG 




t ARGUMENT ERROR IF STRING 


22 02060 


010246 


MOV 


R2,.(SP) 




1 SAVE R2 


23 02062 


004767 
000000G 


JSR 


PCGETVAR 




1 GET ADR AND SUBSCRIPTS 


24 02066 


012602 


HOV 


(SP)*,R2 




( RESTORE R2 


25 02070 


022227 
177775 


CMP 


(R2)*,>-3 




( HAS IT A SCALART , 


26 02074 


001457 


BEG 


GETAD0 




1 YES- BRANCH 


27 02076 


026227 

000004 
177776 


CMP 


4(R2),P-2 




1 IS S82 FLAGGED FOR XGRA ETC, 


28 02104 


003461 


BLE 


GETADl 




) YES- BRANCH 


29 02106 


005742 


TST 


•(R2) 




1 FIX UP R2 


30 02110 


016500 
000024 


MOV 


5S1SAV(R5), 


RO 


1 SET UP SSI 


31 02114 


016503 

000026 


MOV 


SS2SAV(R5), 


R3 


1 SET UP 882 


32 02120 


020062 
000004 


CMP 


R0,4(R2) 




I 881 > SSlMAXt 


33 02124 


003040 


BGT 


ERS83 




1 YE8> ERROR 


34 02126 


005703 


TST 


R3 




1 2 DIHENSI0NAL7 


35 02130 


100427 


BHI 


L0CN02 




1 N0> BRANCH 


36 02132 


005762 

000006 
100433 


TST 


6(R2) 




) YES- IS IT DIMENSIONED OKAY? 


37 02136 


SMI 


ER8S3 




( NO- ERROR 


38 02140 


020362 

000006 


CMP 


R3,6(R2) 




1 SS2 > S82HAX? 


39 02144 


101030 


BHI 


ERSS3 




1 YES- ERROR 


40 02146 


EI16246 
000004 


HOV 


4(R2),-(SP) 




) PUT 8S2MAX ON STK 


41 02152 


005216 


INC 


(SP) 






42 02154 


010346 


MOV 


R3,-(SP) 






43 02156 


012746 
000020 


MOV 


«20,>(SP) 






44 02162 


006303 LCLOOPi 


• SL 


R3 






45 02164 


806366 


ASL 


2(3P) 







^3 
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BBBBBZ 

«6 BilTB tB}BB2 BCC 

47 »2t72 et66B) *0D 

BBeeaa 

«B BilTt BBS316 OEC 

>« B22B« eBIJTB BCT 

SB 022B2 e»27B6 *00 

BB0BB6 

St B22B6 Bk83BB *00 
S2 82210 0BS200 LaCN02l INC 

SI B2212 B063BB '>L 

Sa 022ta 0Bt3e0 *9L 

SB 022t« 016202 '•OV 

000B02 

56 02222 060002 >00 

57 0222a 0001103 BR 
SB 0222* ERSS3I 

59 02226 10«l(00 TR«P 

60 ,IFNDF 

61 02230 123 , ASCII 
B223I 117 

02232 102 

62 'ENOC 

63 .If or 

6a .ASCII 

65 .(NOC 

66 02233 000 .SVTE 

67 .EVEN 
60 B223a 012600 eETtO0l MOV 

64 02236 000207 RETURN 

70 02240 000167 tORARGl JMP 

000000G 

71 022aa 000167 tORSYNI JMP 

000000G 

72 022S0 012203 GETtOll NOV 

73 e22S2 022323 CNR 
7a 022Sa B0S712 TBT 

75 02256 0010ta BNE 

76 02260 010302 NOy 

77 02262 022227 CHP 

160000 

70 02266 00137S BNE 

7» 02270 011202 KOV 

SB 02272 00S7a2 TBT 

St .I'or 

52 0227a 002005 BGE 

53 02276 011267 NOV 

0Ba012 

ta 02302 012702 NOV 

00631a' 

BS 02306 00Sai2 NE6 
B6 02310 GETA07I ,ENOC 
S7 02310 026512 SET>06I CHR 

00002U 
SB 023ia 0033aa BGT 
64 02316 016502 NOV 

000026 



.♦6 

•(SR),RI 

(SR) 
LCLOOR 
• 6>SR 

93, R0 

R0 

R0 

R0 

2CR2),R2 

Ra,R2 
GETtOB 



BtONGER 
/BOB/ 



I NULTIRkV SB2 BV SBIMtX 

t tNO ADD SB I 

I CLEAN STK 



t 2 BYTES/MORO 
I 2 H0RD8/ENTRT 



I AND GO TO EXIT 



SkONGER 

/SUBSCRIPT OUT OP BOUNDS/ 





(SP)*|R0 

ERRAR6 

ERRSVN 

(R2)«,R3 

(R3).,(R5)» 

(R2) 

GETAD6 

R3.R2 

(R2)*,»0JNP 

.•a 

(R2),R2 
•(R2) 
SkPB 

GETAOT 
(R2),SCLSAV 

•SCLBAV,R2 

(R2) 
SS1SAV(RS),(R2) 

ERSS3 

SS1SAV(RS).R2 



RESTORE RB 
EXIT 

ARGUMENT ERROR 



I SYNTAX ERROR 

I PUT BABE ADR INTO R3 

I POINT R3 AT A(0) 

I SB1HAXI0T 

I N0« BRANCH AND USE IT 

I POINT AT ARRAY 

I A DJNP AT ENDt 

I N0> LOOP 'TIU POUND 

I POINT AT ADR IN DPY PILE 

( POINT AT SSI IN DPY PILE 



t SSI > SSIHAXT 



YES« ERROR 
GET SSI 
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40 02322 I00a03 


BMt 


GETAD2 


41 0232a 006302 


ASL 


R2 


42 02326 060302 


ADO 


»3,R2 


43 02330 0007al 


BR 


GETADB 


4a 02332 010302 GETAD2I 


MOV 


R3,R2 


45 02336 000737 


BR 


GETAD0 


96 02336 00S767 CETAD3I 


TST 


OPASGP 


175532 






47 02342 0017a0 


BEG 


AORSYN 


40 023aa 120227 GETAOSt 


CMPB 


R2,«,RPAR 


000000G 






44 02350 001335 


BNE 


ADRSYN 


100 2352 005301 


DEC 


Rl 


101 235a 005002 


CLR 


R2 


102 2356 000726 


BR 


GETAO0 


103 


,IPOF 


SOISK 



I BR IF NO SUBSCRIPTS 

I ADOOUNT FOR HORDB NOT BYTES 

I GET ADDRESS 

I EXIT 

t IF NO SUBSCRIPTS GET JUST A 

I EXIT 

I SEE IF ARG IS OPTIONAL 

I N0> SYNTAX ERROR 
I IS IT A ")" T 

I NO- ERROR 
I YES. POINT AT IT 
I MAKE ADR ■ B 
I EXIT 



^f 



\ I 
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I 
i 

3 I 

« 

5 

6 

7 082S60 DSTPl 
s ge2>60 0t27a« 
000320' 

4 002364 STOPII 

10 023611 eie667 

0000511 

11 02370 005737 

0000006 

12 02J7a 00la20 

13 02376 00S767 



.JBTTL •OSTP", "CONT", »N0 "INIT" ROUTINM 
,ENDC 

I ROUTINt TO H4N0LE "OSTP". "CONT", INO "INIT" 



la 02402 
IS 02«0il 



16 02410 

17 02412 



14 02424 
20 02426 



21 02434 

22 02436 

23 02442 
24 

25 02444 

26 02446 
27 

20 02450 
il 02450 

30 02454 

31 02454 

32 02460 

33 02462 

34 02466 

35 02470 
36 

37 02472 

38 02476 
3» 

40 02500 

41 02500 



001415 

005767 

000036 

001414 

012767 

173400 

006166 

005767 STOPCI 

000000G 

002375 

022767 

160000 

006152 

001371 

005067 STOPBl 

000004 

000207 

000000 STOP.Fl 

000000 RUN.Fl 

CONT I 
012746 
000324' 

CONT»l 
005767 
177764 
001403 
005067 
177756 
000500 
000207 CONT0I 

004767 RESTRl 

000172 

000002 



012746 
000324' 



NOV 
TST 



BES 

TJT 



SEQ 

TST 



SEQ 

MOV 



SSE 

CHP 



8NE 

CtR 



•CKEOLc(SP) 

SP.STOP.F 

»«87VECT 

STOPB 
OPC 

STOPB 

RUN.F 

8T0Pe«4 
ll8DtNT,08T0P-2 

OSR 

>Djnp,DST0P>2 



JTOPC 

RUN.F 



.NQRO 
.HORO 



«CKE0l,-(8P) 



STOP.F 



8E0 
CLP 



CONTa 
STOP.F 



8R INIT3 
RETURN 



JSR 
RTI 



PC.INITS 



• CKEOLcCiP) 



NORHtl. PROGRiN EXIT 

SET STOP FLIC 

VECTORS SEEN SETT 

NO* EXIT NOH 
DPC CLEARED? 

YES 

CURRENTLY RUNNING? 

NO 

LOAD STOP 

STOPPED YETT 

NO- LOOP SOKE MORE 
SACK TO REGULAR? 



NO* HAIT SOME MORE 
SIGNAL STOPPED 



STOP FLAG (•! FOR STOP) 
FLAG TO INDICATE RUNNING 



EXIT FOR CALLER 



MERE ME STOPPED? 



NO" THEN DON'T START IT 
CLEAR STOP FLAG 



CLEAN SUSP STK AND START UP 
FIX STACK AND START DPU 



NORMAL ENTRY 
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42 


02504 




43 


02504 


004767 
177654 


44 






45 


02510 


012700 


46 


02514 


0000001 
062700 
000012 


47 


02520 


012702 

000200 


48 


02524 


010210 


44 


02526 


012740 
002472' 


50 


02532 


010240 


51 


02534 


012740 
003240' 


52 


02540 


010240 


53 


02542 


012740 
000466 


54 


02546 


005067 
177212 


55 


02552 


005067 
176056 


56 


02556 


005067 
000130 


57 


02562 


005067 
177112 


58 


02566 


005067 
177652 


54 






60 


02572 


012767 

160000 
005706 


61 






62 


02600 


005767 
006006 


63 


02604 


001004 


64 


02606 




65 


02606 


010446 


66 






67 






68 






64 


02610 


004767 


70 


02614 


000000 
012604 


71 


02616 


016700 
176020 


72 


02622 


010067 
005762 


73 


02626 


010067 
176004 


74 


02632 


012720 

160000 


75 


02636 


012710 
010506 


76 


02642 


010067 
175772 



JSR 



) ENTRY FROM BUFTST 

I MAKE SURE DISPLAY MAS STOPPED 



SET UP INTERRUPT VECTORS 
MOV >CTVECT,R0 



HERE 

I SET UP DESTINATION 



ADO 

MOV 

MOV 
MOV 

MOV 
MOV 

MOV 
MOV 

CLR 

CLR 

CLR 

CLR 

CLR 



•12. R0 

•PR4,R2 

R2,(R0) 
«RESTR,-(R0) 

R2.-(R0) 
»LPNINTc(R8) 

R2<-(R0) 
•DISINT,-(R0) 

OLOMOD 

INSRTF 

SCAL.F 

LPCN.F 

STOP.F 



•*• MAKE SURE TRAK IS OFF 
MOV «DJMP,BEG 



I ••• HAKE SURE END OF DRY FILE 
TST DCRASH 



INITl 



INITli 



MOV 

,IFDF 
JSR 
,ENDC 
JSR 


"4,.(SP) 

SDISK 

PCCLOSALL 

PC,FIX0 


MOV 
MOV 


(SP)»,R4 
iCT5T,R0 


NOV 


R0,O3TOP 


MOV 


RB.DISEND 


MOV 


•DJMP,(Ra)* 


MOV 


•BEG,(R8) 


MOV 


R0.ACTEND 



I OFFSET TO TOP 

I AND PRIORITY 

I PR4 FOR RESTR 
I RESTART 

I PR4 FOR LP INTERRUPT 
( LP INTERRUPT 

I PR4 FOR STOP DISPLAY 
( STOP DISPLAY INTERRUPT 

I MAKE SURE MODE CHANGES 

I CLEAR INSERT PENDING FLAG 

I CLEAR SCALE FLAG 

( CLEAR LP HIT FLAG 

I CLEAR THE STOP FLAG 

) MAKE SURE TRAK IS OFF 

IS AFTER PERMANENT STUFF 
I "FIX" BEEN CALLED? 

I 8R IF "FIX" ALREADY CALLED 

I CLOSE ALL FILE I/O 
I GET SPACE 



I SET LO>END FOR DJHP 

I IT IS A NEH OISENO 

I PUT « OJMP THERE 

I FOLLONED BY LOOP AOR 

t ACTEND POINTS TO MORD AFTER DISEND 



^5" 
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77 

70 02646 

7* 026S2 
•0 0265a 

at 02660 

02 

•3 02662 



05 02676 
•6 02702 



67 027)0 

S0 

a« 02712 

90 

01 

92 

41 

9« 

95 

96 

97 

90 

99 

100 

101 

102 

103 

10a 



016700 
176562 
005720 
010067 
176556 
005010 

I ••• 
012767 
00136a' 
176522 

012767 INtT3t 
00133a' 
176a6a 
010667 
1775aa 
012767 
010506' 
000000S 
000207 



FIX U» T«G POINTER 
HOV TlGHESiRl 



T»T 
MOV 



(R0)« 
R0>T<SENO 



I SET riRSr TtS tOORESS 



I iuMP IT sr 2 

I lt«KE THtT TtSENO 



CLR (R0) I <N0 CLEAR L*3T POINTER 

PtrCH UP tOSTK tNO N0T3K HERE 
NOV •NSBiStNSTSK I tOJU3T SUIUOINC STICK 



NOV 
NOV 



«t0e>3,«0STK 

SP,RUN,P 
•BEG.OPC 



000000 SML.Fl .NORO 



t ADJUST RUNNING STACK 

I SIGNAL RUNNING 

I START UP DPU 

I RETURN TO USER 

I SCALE HAS BEEN DONE FLAG 



ROUTINE TO HANDLE LINKING FOR SAVE AND RESTORE 
,IFDF SDISK 



t SET STRING (BASICX) 

I FOUND A STRING? 

I NO* ERROR 

I A NULL STRING? 

I TES- ERROR 

I FOLLONEO BY »)• T 

I N0> ERROR 

I RETURN TO OVERLAY 



JSR 


PC.EVAL 


BCS 


■ «6 


JHP 


ERRSYN 


CMP 


(SP),».I 


BEG 


.-10 


CHPB 


(Rl)*(«.RPAR 


BNE 


■ •16 


JHP 


SAV2a 


.ENOC 




.IFDF 


SDISK 
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1 




.S8ITL 


»N08C"."0N", • 


OFF" ROUTINES 


2 

3 
a 
5 
6 0027ia 


1 


,ENOC 






1 TURN 


OFF SCALE 




NOSCI 








7 002710 


005067 
177772 


CLR 


SCAL.F 


) NO NORE SCALE 


8 002720 


000167 


JHP 


CKEOL 


1 AND EXIT 


9 
10 


175000 








11 
12 

13 0272a 


1 


1 rout:ne"to"turh'su8p 


ON AND OFF 


ONI 








la 0272a 


012706 
173000 


HOV 


•SOINT,-(SP) 


1 A SDINT 


IS 02730 


000767 ONH 
175330 


JSR 


PC.POLENT 


1 ENTER POLISH HODE, CK "(■ 


16 0273a 


000136' 




♦GETONE 


1 GET SUSP TAG 


17 02736 


000006' 




♦INTEGR 


1 INTEGERIZE 


la 02700 


002702' 




.•2 


1 EXIT POLISH MODE 


19 02702 


016502 

000002 


HOV 


FAC2(R5),»2 


I SET TAG 


20 02706 


003002 


BGT 


.♦6 


1 LEGITIMATE- BRANCH 


21 02750 


000167 ONBI 
000000G 


JHP 


ERRARG 


1 NO- ERROR 


22 02750 


000767 
176050 


JSR 


PC.TAGSRH 


1 FIND TAG 


23 02760 


005700 


TST 


R0 


1 DID HE SUCCEEDS 


20 02762 


001772 


SEQ 


ON0 


1 NO- BRANCH 


25 02760 


162700 

000010 


SUB 


•10, R0 


1 POINT AT SDINT/DJHP 


26 02770 


005767 
175600 


TST 


INSRTF 


1 AN INSERT PENDING? 


27 02770 


001375 


BNE 


."« 


) YES- LOOP TIL FREE 


2S 02776 


016703 
175636 


HOV 


ACTEND,R3 


1 GET END OF DPY FILE 


29 03002 


005703 


TST 


-(93) 


t POINT TO PREVIOUS HORO 


30 03000 


020093 


CHP 


Re,R3 


1 NHERE DOES RB POINT? 


31 03006 


001003 


SEQ 


0N2 


1 TO HDl 


32 03010 


012610 


MOV 


(SP)«,«RB 


1 STORE HORD 


33 03012 


000167 0N3I 
175300 


JHP 


CKRPAR 


1 AND RETURN TO USER 


30 03016 


012667 0N2I 
175716 


HOV 


tSP)»,K01 


1 STORE NORO 


35 01022 

36 

37 03020 


000773 


BR 


0N3 


1 AND EXIT 


OFFI 








3S 03020 


012706 
160001 


HOV 


•DJHP*1,.(SP) 


r A DJHP*| 


39 03030 


000737 


BR 


ONI 


1 AND CONTINUE 


00 




.IFDF 


(DISK 





a 
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,99TTL 



■FIX' ROUTINE CtLlCR 
• ENDC 



5 

t 
? 

» eajesi Fixi 

4 903012 eei7b7 

10 03036 000136' 

11 03040 000006* 

12 030112 003e<ia' 
13 

la 
15 

16 030011 000167 

000000G 
17 
16 

1» FREEl 

21 
21 



t ROUTtNC TO HtNDLEl 
I C»LL "FIX'CN) 



FC.POLENT 

«OETONE 
tINTEGR 
.♦J 
iOISK 

PC.CLOSAUU 



,1F0F 
JSR 
,ENOC 
JHP 



JSR 

JMR 



FIX9R 



iIFDF IDI$K 



FC.CUO$»I.L 

FReE0 



I ENTER POLISH BOOE, CK "(" 

I SET N 

I INTEGERIZE IT 

I EXIT POLISH MODE 

I CLOSE ILL FILE I/O 

I JUHP TO OVERLtT 



I CLOSE tLL FILE I/O 
t 60 TO OVERLtV 
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I 

2 
3 
a 
s 


1 


.SBTTL 
,ENDC 


ROUTINE TO 


FETCH 


L. I. F, T 


1 ROUTINE TO HtNOLE 


L. I. 


F. T 


6 




1 UPO» 


ENTRY Rl POINTS TO 


COMMA PRECEDING L 


7 




1 UPOK 


EXIT R0 CONTAINS BITS 0110 OF SGN WORD 


B 
9 




I L ■ 


LP INTERRUPT 


ENABLE 




10 




1 t ■ 


INTENSITY OF 


LINE 




11 




1 F ■ 


FLASH (BLINK) 






12 
13 
la 030S0 




1 T • 


TYPE OF LINE 


(SOLID 


. ETC,) 


LlFTl 










IS 030S0 


012767 


NOV 


*10000,INVtS 1 


ASSUME VISIBLE 




010000 












000160 










16 030S6 


010116 


MOV 


R1.-(8P) 




SAVE R4 FOR RETURN 


17 03060 


001767 
175226 


JSR 


PCOIKPOL 




ENTER POLISH MODE 


19 0306a 


000066' 




tSETOPT 




SET OPTIONAL NODE 


19 03066 


000026' 




♦PLOOP 




POLISH LOOP 


20 03070 


000001 




+1 




1 TINES 


21 03072 


000076' 




tSETNUH 




GET ",L,I,F,T» 


22 030711 


000006' 




♦INTEGR 




INTEGERIZE EACH IN TURN 


23 03076 


000000' 




♦SAVINT 




SAVE ON THE STACK 


2a 03100 


000010' 




*ELOOP 




END OF POLISH LOOP 


2S 03102 


003101' 




• *2 




EXIT FROM POLISH MODE 


26 0310' 


005000 


CLR 


R0 




CLEAR DESTINATION UORO 


27 03106 


012602 


NOV 


tSP)»,R2 




GET TYPE OF LINE 


28 03110 


003106 


BLE 


LIFT0 




BRANCH IF MO CHANGE 


29 03112 


020227 

000001 


CNP 


R2i*1 




CONPARE R2 TO 1 


30 03116 


003003 


BGT 


LIFT0 




IGNORE IF T>1 


31 03120 


062702 
000003 


too 


• 3.R2 




ADO TO GET SET'BIT 


52 03121 


050200 


BIS 


R2>R0 




SET T INTO R0 


33 03126 


012602 LIFT0I 


HOV 


(SP)*,R2 




GET F 


3U 03130 


001767 
000060 


JSR 


PCBITGET 




Fa0l 


3S 03131 


050300 


BIS 


R3,R0 




F>0t 30. F<0l 20 


36 03136 


012602 


NOV 


C8P)»,R2 




GET I 


37 03110 


001115 


BES 


LlFTl 




BRANCH IF NO CHANGE 


38 03112 


100003 


BPL 


LIFT2 




BRANCH IF. VISIBLE 


39 03111 


005067 
000066 


CLR 


INVIS 




HAKE INVISIBLE 


10 031S0 


005102 


NEG 


R2 




MAKE R2 POSITIVE 


11 03IS2 


005302 LIFT2I 


DEC 


R2 






12 03151 


020227 
000010 


CMP 


R2,P10 




COMPARE R2 HITH 8 


13 03160 


002005 


8GE 


LIFT! 




IGNORE IF TOO BIG 


11 03162 


052702 
000010 


3IS 


•19. R2 




1 ADO IN 6 


15 03166 


000302 


$H«8 


R2 






16 03170 


006202 


tSR 


R2 




1 PUT BITS IN CORRECT POSITION 


17 03172 


050200 


BIS 


R2,R0 




1 I IS SET INTO R0 


18 03171 


el260J LIFTtt 


MOV 


(5P)»,R2 




1 GET L 



^7 



n"V' 



STB V81-8I BiSIC • GT ROOT NOD RT-U MtCIIO yH(i>l4 U*0CT-7< liietDT PAGE 19* 



«9 M17» 


0«a767 
00(012 




JSR 


PCBITGET 


1 L>«l 


SB B32B2 


006)0] 




>Bk 


R) 


1 LXi ta* 


51 B32Ba 


006)0] 




>Sk 


R) 


1 k«l IM 


52 B12Bt 


050)00 




BIS 


RS.RI 


1 I IS SET IN RB 


5] 0)210 


0t260« 




MOV 


(SP)t,Ra 


1 RESORE Ra 


5a 05212 
55 

5* 0121« 


0001]a 




POtRET 




> tNO EXIT 




BITGtTl 








57 0]2ia 


00500) 




CLR 


R) 


t CLEAR DESTINATION 


SS 012U 


005702 




TST 


R2 


1 CHECK SIGN OF R2 


5« 0}220 


00U05 




BEG 


BITZER 


t BRANCH IF R2 • 


t0 0)222 


002102 




9LT 


BITNES 


1 BRANCH IF R2 < 


»1 i)22a 


05270] 
000010 




BIS 


«10>R) 


1 POSi )B 


62 0)2)0 


05270) 

000020 


BITNECI 


BIS 


*2I.R) 


1 NEGl 2« 


t) 032]« 

6a 

65 0)216 


000207 


BITZERl 


RETURN 




1 2ER0I B 


000000 


INVISl 


.>ORD a 




I VISIBILITY FLAG (BIT »a» 


66 






,IPDP 


IDISK 
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I 
2 
] 
a 
5 

6 

7 00)2a0 

s 00]2ae 

4 00]2a2 

10 0]2tta 

11 0)246 

12 0)252 

13 03256 

la 03262 

15 0)26a 

16 0)266 

17 0)270 
IB 0)272 

14 0)276 

20 0))00 

21 0))0a 

22 0})10 

23 0)314 

24 03)20 

25 03)24 

26 0)330 

27 0)))4 
2B 03)40 
24 0))4a 

)0 03)50 

31 03352 

32 03)56 

33 03360 

34 0)362 

35 03366 



36 03374 

37 03402 



iSBTTk LP INTERRUPT HANDLER 
,ENDC 



I ROUTINE TO HANDLE LIGHT PEN INTERRUPT 



LPNINTi 
010046 
010246 
010546 
016705 
00000BG 
016746 
00000SG 
017700 
176100 
001403 
005720 
011000 
002407 

005767 LP1NT0I 
176402 
001150 
005367 
176374 
010067 
176)56 

016546 LPINTU 
000042 
016S46 
000040 
016746 
000)14 
005065 
000040 
016700 
0000006 
042700 
176000 
010065 
000042 
005767 
176])0 
002420 
166700 
005146 
006200 
006200 
060067 
0051)6 
016765 
0051)2 
000042 
0)2767 
000040 
0000006 
00140) 



MOV 
MOV 
MOV 
MOV 

MOV 

HQV 

BEQ 
TST 
MOV 
BLT 
TST 

BNE 
DEC 

MOV 

MOV 

MOV 
MOV 

CLR 

MOV 
BIC 
MOV 
TST 

BLT 

SUB 

ASR 

ASR 
ADO 



BIT 

BEQ 



RB.-(SP) 
R2#-(SP) 
RS.-(SP) 
USRAREA,RS 

SERVEC><(SP) 

PAOSTKiRB 

LPINT0 

(R»)t 

(Re),R0 

LPINTl 
LPEN.F 

LPEXl 
LPEN.F 

RB.LPENT 

FAC2(RS)>>(SP) 

FAC1(R5),-(SP) 

ABS,F,«(SP) 

FACl(R5) 

DISX.RB 

•176000, RB 

RB,FAC2(R5) 

LPEN.F 

LPINT2 
XT.RB 

RB 
RB 
R0.XT 

XT.FAC2(RS) 
•aO.DSR 



I SAVE REGISTERS 

I SAVE RS 

I SET UP R5 TO USER AREA 

I SAVE ERRDR VECTOR IN FPHP 

( GET PTR TO TAG (IF ANT) 

I NO TAG- BRANCH 

I POINT RB AT TAG 

t PUT TAG INTO RB 

I HIT MUST BE IN TRAK 

I ANOTHER HIT PENDING? 

I »tS. EXIT 

I NO- HAKE FLAG • -1 

I STORE TA6 

I SAVE FAC 

I AND FLA6 TOO 

I GET X POSITION 

( ONLY FIRST 10 BITS 

I PUT IN FAC 

I IN TRAKt 

I NO- BRANCH 



I DIV BY 2 

I DIV BY 2 

t OLD * (NEN-0L0)/4 

) PUT IN SMOOTHED VALUE 



^/ 



I ON THE EDGE? 



I NO 



\- 



GTB vg|>0t BiStC • GT ROOT 



]S 03a»« 012767 

Mlttt 

085112 
34 0>ai2 010tt7 LP1NT2I 

000222 
ao 03ai6 012700 

0063ft2' 
41 031122 0011767 

000672 

112 031126 016S1I6 

0000112 

113 031132 0165116 



an 03a36 

«5 0311112 

a6 03iia6 

47 034S2 

48 03456 

4« 03462 

50 03464 

51 03470 

52 03472 

53 03474 



55 03506 



56 03514 

57 03516 



Sa 03524 
5« 03530 

60 03534 

61 03540 

62 03542 

63 03546 

64 03552 

65 03554 

66 03560 

67 03564 



005065 

000040 

016700 

0000000 

042700 

176000 

010065 

000042 

005767 

176216 

002420 

166700 

005036 

006200 

006200 

060067 

005026 

016765 

005022 

000042 

032767 



NOV 

HOV 
HOV 
J3R 

HOV 
HOV 

CLR 
NOV 

9:c 

M0» 
T»T 

SLT 

SUB 

t9R 
>SR 

>00 



MOO RT.ll HtCRO VH02.09 16.0CT.74 )2tt6ig7 R»SE 2>« 

•taea.xT , store center in »t 



BIT 



000000G 

001403 

012767 

000600 

005002 

012700 LPINT3t 

006352' 

004767 

000564 

005767 

176140 

002405 

016700 

001216 

016702 

011214 

000406 

005467 LI'INT4I 

176120 

012700 

001670* 

012702 



BEO 
HOV 



HOV 
JSR 
TST 

BIT 

HOV 



BR 

NES 



MOV 
MOV 



SP,»BS,F 

•USCt.X.RB 

RCSC.USC 

F»C2(R5),.(8P) 

riCt(R5),'(SP) 

F«C1IR5) 

OI8Y,R0 

•176000, R0 

RB.F1C2(RS) 

LPEN.F 

I.PINT3 
rT,R0 

R0 
R0 
Ra.YT 

yT,FAC2(R5) 
•40,OSR 



UPINTJ 
4600. VT 



•USCL,r,R0 

PCSC.USC 

LPEN.F 

LP1NT4 
TRAKX.Rg 

TRlKy,R2 

I.PINT5 
tPEN.F 

•LPENX.RB 

«LPENr,R2 



I SCtLE ABSOLUTE 

I UNSCiLE MODE 

I 00 IT NOH 

I SAVE UNSCtLED X ON STACK 

I SET r POSITION 

I ONLY FIRST 10 BITS 

I PUT INTO FAC 

I IN TRAKT 

I NO- BRANCH 



I OIV sr 2 

I OIV BY 2 

I OLD • (NEH.0L0)/4 

I PUT IN SMOOTHED VALUE 



I ON THE EDGEt 



I NO 

I STORE CENTER IN YT 



I UNSCALE Y MODE 

I DO IT NOD 

I IN TRAK7 

I NO- BRANCH 

t FROM STK 

I FROM FAC 

I STORE IT 

I MAKE FLAG < 1 

) FROM STK 

I FROM FAC 
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68 03570 


012620 


LPINT5I 


MOV 


(SP)»,(R0)t 




69 03572 


012610 




HOV 


(SP)»,(Ra) 


1 STORE X 


70 03574 


016522 

000040 




HOV 


FAC1(R5),(R2)> 




71 03600 


016512 
000042 




MOV 


FAC2(R5),(R2) 


1 STORE Y 


72 03604 


012667 
000030 




MOV 


(SP)*,A6S.F 


1 RESTORE FLAG 


73 03610 


012665 

000040 




HOV 


(SP)*,FACUR5) 




74 03614 


012665 

000042 




HOV 


(5P)«,FAC2(R5) 


1 RESTORE FAC 


75 03620 


012667 
000000G 


LPEXll 


HOV 


(SP)«,SERVEe 


I RESTORE SERVEC 


76 0J624 


012605 




HOV 


tSP)»,R5 


1 RESTORE R5 


77 03626 


012602 




HOV 


($P)*,R2 




79 03630 


012600 




HOV 


(SP)«,R0 


t RESTORE REGISTERS 


7<> 03632 


005267 
000000C 




INC 


DPC 


1 RESTART OPU 


S0 03636 

81 

82 03640 


000002 




RTt 




t ANO EXIT 


000000 


ABS.FI 


.MORO 





1 ABSOLUTE SCALE FLAG 


83 






■ IFOF 


SDISK 




84 






.EOT 







^? 



^X-^ 



GTB 


V»t- 


61 ataic 


2 




1 


} 




1 


• 




t 


5 




1 


6 




1 


T 




1 


a 




1 


9 




1 


te 




t 


It 




1 


1! 




1 


13 




1 


I* 




» 


15 




1 


Ik 




1 


17 




1 


la 




> 


l» 




1 


20 




( 


it 




1 


22 




1 


2S 




1 


2« 




1 


25 






26 






27 




1 


2a 






2« 






3S 






31 






32 






33 






3« 






35 


63642 


a 


36 


93602 


660767 
17«336 


17 


93616 


666136* 


36 


13656 


666666> 


3» 


63652 


666666' 


•e 


63656 


660666' 


m 


03656 


666676' 


«2 


63666 


666666' 


113 


63662 


663666' 


a« 


63666 


616562 
666662 


«5 


63676 


605662 


«6 


63672 


806767 
177316 


•7 


63676 


006303 


iia 


63766 


666363 


a« 


61762 


606163 


5a 


6376a 


616366 


51 


63766 


612662 


52 


63716 


665a62 


53 


61712 


66UT67 
177276 


5« 


63716 


666163 



ST ROOT HOO IIT>lt MtCRO VMa2-09 16-aCT>76 *2|06|67 P«6E 21 



DEC - 11 • IB^Sa - » 

STB, MAC T6'E 3 OF 4 



BtaXC KEANEt V02-01 
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AUTHORl DR. BTEPHEN R, ALPERT 
.SBTTL "8TAT" ROUTINE 
,ENDC 



AUGUBT 1673 



BTATl 



I ROUTINE TO HANDLE 

I CALL "BTAT't FONT (, INT) ) 

I FONT >0I NORMAL, pBI NO CHANGE, <0I ITALIC8 

t INT >0I LP INTENalFIED, 'ai NO CHANBE, <ai HIT NOT INTEN. 



I ENTER POLIBH NODE AND CK •)• 

I GET FONT 

t MAKE aURE AN INTEGER 

I BAVE ON STACK 

I INT IS OPTIONAL 

I CK "," AND GET INT 

I MAKE SURE AN INTEGER 

I EXIT FROM POLISH . 

I GET INT 

t NEGATE 80 BITGET RETURNS VALUEa 

I POBl 2B,NEGI 30, ZERO! 



J8R 


PCBUFPDL 




tSETONE 




tINTEGR 




tSAVINT 




♦SETOPT 




»GETNUM 




tINTEGR 




.*2 


NOV 


FAC2(R5),R2 


NEG 


R2 


JBR 


PCBITSET 


ABL 


R3 


ASL 


R3 


ASL 


R3 


NOV 


R3,R0 


MOV 


(BP)«,R2 


NEG 


R2 


JSR 


PC, BITGET 



t POBl 200, NEGl 300, ZEROl 

I BAVE IN RB 

I GET FONT 

I NEGATE SO SITGET RETURNS VALUES 



I POSi 60, NEGl 60, ZEROl 



r\ 
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55 03726 056306 


BIS 


R3,R0 


56 63722 652760 


BIS 


•176000,60 


170660 






57 03726 606167 


JMP 


SDXI7 


606266 






58 


.IFDF 


SOISK 



I SET FONT INTO R6 

I SET UP LOAD STAT. REG. 



I INSERT TO DPY/ CK •)•/ RETURN 



7^ 



GTB vei-ei e<9ic - er root hod rt-u micro vNai>0« tf0CT-7« gziotieT pasc a 







.SBTTl 


•ROOT" ROUTINE 






1 


.ENDC 








1 ROUTINE TO HANDLE 










C*LL 'ROOT'e OX, 


or t,L,I,P,T)) 


S 883732 


ROOTi 








1 883732 


084767 
174252 


JSR 


PC.euFTST 


«NY BUFFER? 


18 8373« 


005067 

177676 




tei.F 


RELATIVE aCAUE 


tl 83792 


084767 
176828 




PC.tRGGET 


GET ARGUHENTS 


12 837a6 


005767 
176056 




xrsie 


ROOT OR VECTT 


13 83752 


081424 




RDOTl 


ROOT- BRANCH 


l« 83754 


052788 
110000 




• 118880,1)0 


LONG VECTOR 


IS 83768 


004767 
175760 




RCRUTSSM 


SET«GRAPHIC>HODE 


16 8376a 


016680 
000002 




2(SP),Ra 


GET X 


IT 83778 


056700 
176036 




xsteN,Ra 


JET SIGN (INVtBIBLE) 


la 8}7Ta 


004767 
174658 




PCPUTHO 


INBERT IT 


14 8a888 


816708 
176838 




YSIGN,R8 


GET SIGN OF Y 


28 8<l8e« 


888308 


9II«B 


Ra 




21 811886 


006208 




Ra 


PUT IN BIT IJ 


22 811818 


862608 




(SP)*,Ra 


ADO IN Y 


23 84812 


084T6T 
1T46S2 




PC.PUTHO 


INBERT IT 


211 011816 


005016 




(SP) 


MAKE X a a 


25 ea820 


005046 




•(SP) 


M«KE V • a 


26 84822 


805008 




R8 


CLEAN BITS 18 - a 


2T 84824 


a52T0B RDOTll 
138008 




«1 38880, Ra 


ROOT MODE 


28 84838 


004767 
175718 




PCPUTSGH 


SET-GRAPHIC>MOOE 


24 84834 


885716 




(SP) 


Y • at 


30 84836 


801813 




RDOTa 


N0> BRANCH 


31 84848 


885766 

008802 




2(SP) 


YES- X 1 at 


32 04844 


081810 




RDOTB 


N0« BRANCH 


33 04846 


085867 

175762 




rSIGN 


HAKE Y POSITIVE 


34 04052 


012716 
088881 




*1,(9P) 


HAKE Y • *1 


35 04056 


812788 
808181 




•181, Ra 


HAKE (a,«t) ROOT 


36 04062 


884767 
174562 




PCPUTND 


INSERT IT 


3T 84866 


816608 R00T8I 
000002 




2(SP),Re 


GET X 


38 04872 


000300 


5>l'a 


Ra 


SHIFT TO LEFT 



r. \^' 
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39 04874 886288 


ASR 


Ra 


1 MOVE TO BITS 7.12 


48 04876 056708 


BIS 


INVIS,R8 


I SET VISIBILITY 


177134 








41 84182 056780 


BIS 


XSIGN,R8 


( SET SIGN OF X 


175724 








42 04186 062680 


ADD 


(SP)«,R8 


1 ADD IN Y 


43 04110 005726 


TST 


(SP)t 


t CLEAN STACK 


44 04112 056788 


BIS 


YSIGN,R8 


1 SET SIGN OF Y 


175716 








45 04116 080430 


BR 


SDXIT 


1 TAKE 'STANOARO" EXI 


46 


,IFOF 


SDISK 





7/ 



.\/ 



^- 
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1 
2 

I 

« 
S 

6 

7 

> 80at20 

4 0011120 

18 0*1211 

It 8«130 

12 0ai)a 

13 0iita0 

\t 0aiu4 

IS 04150 

U SaiSi 
17 84156 

IS 04162 

14 04166 
28 04170 

21 04172 

22 04176 

23 84200 

24 04204 

25 04210 
26 



,5BTTL •«(>NT» ROUTINE 
iCNOC 



I ROUTINE TO HtNDLE 

I CALL "«PNT" ( X, 



»PNT| 
084767 
174064 
010667 
177510 
004767 
175632 
852780 
114000 
904767 
175600 
016600 
009002 
904767 
174002 
004514* 
056700 
177054 
904767 
174462 
012698 
995726 
994T67 
17J760 
004522' 
004767 9DIIITI 
174444 

904767 90>IT8I 
174534 
009167 
174102 



JSR 
NOV 
JSR 
SIS 

JSR 
MOV 
JSR 

BIS 

JSR 

MOV 
TST 
JSR 

JSR 
JSR 

JMR 

,iroF 



PCSUFTSr 

sp,«es,p 

PCtRCSET 

4114888, R8 

PCPUTSSM 

2(SP),R8 

PC>ENTERP 

tPOSK 
INVIS,Ra 

PC.PUTHO 

tSP)«,R8 

(SP)* 

PCENTERP 

♦POSY 
PCPUTMO 

PC#INSERT 

CKRP4R 

SDISK 



T t.L.I.F.T) ) 

ANT 6UPPERT 

PL«C ABSOLUTE MODE 

SET AROUMENTS 

SET UP MODE UORO 

SET>CRAPNIC«MaDE 

PUT n IN R0 

IHHED POLISH 

MAKE « >a8 
SET VISIBILITY 

INSERT X 

PUT Y INTO R8 
CLEAN STACK 
IMMED POLISH 

HAKE Y *mt 

INSERT IT 

FLA« INSERT READY 

CK ■)■ AND EXIT TO USER 
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.aSTTL 


•VCCT* ROUTINE 






• 


• ENDC 






1 ROUTINE TO HANDLE 




a 884214 




1 


CALL "VECT" (OX. 


DY C,L,1,P,T1 ) 


VECTI 








4 884214 


084767 
173778 


JSR 


PCBUPTST 


ANY SUPFERT 


18 04220 


005867 
177414 


CLR 


ABS.P 


RELATIVE SCALE NODE 


11 04224 


004767 
17S536 


JSR 


PC.ARGCET 


GET ARSUMENTS 


12 04239 


005767 
175574 


TST 


XTBIG 


SHORT OR LONG MODC? 


13 04234 


901906 


BNE 


VECTa 


LONG NODE- BRANCH 


14 04236 


052700 
104008 


BIS 


•184a88,R8 


SET SHORT VECTOR HODE 


15 04242 


004767 
175476 


JSR 


PCPUTSSM 


SET-GRAPHIC-MOOE 


16 04246 


000167 
177614 


JMP 


ROOTS 


FINISH UP IN ROOT ROUTINE 


17 04252 


052700 VECT0t 
110090 


BIS 


•118888, R8 


SET LONG VECTOR MODE 


10 04256 


004767 
175462 


JSR 


PC, PUTSCH 


SET>GRAPHIC>HOOE 


14 04262 


916609 

900002 


MOV 


2(3P),R0 


GET X 


20 04266 


056708 
176744 


BIS 


INVIS,R0 


FLAG VISIBILITY 


21 04272 


056700 

175534 


BIS 


XSIGN,R0 


FLAG SIGN 


22 94276 


084767 
174346 


JSR 


PCPUTHO 


INSERT X 


23 04382 


016700 
175526 


NOV 


rsiCNiRa 


GET SIGN OF Y 


24 94386 


000388 


SHta 


1)8 




25 04310 


006200 


ASR 


R8 


MOVE BIT 6 TO BIT 13 


26 94312 


062688 


ADO 


(SP)*,R8 


GET VALUE OF Y 


27 04314 


005726 


TST 


(SP)* 


FIX STACK 


28 04316 


000730 


BR 


SOXIT 


EXIT THROUGH APNT ROUTINE 






,IFOP 


SDISK 





7A 



\ 
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I 






,58TTL 


SENERAL 9C«IE-UN9C«LE ROUTINE 


2 

3 




1 


.ENOC 








II 

5 


1 ROUTINE TO DO SCtLING <N0 UN9C<LING 


i 






1 VtLUE 


TO BE SCHLED/UNSCiCED <ND RESULT tRE IN FtC 


7 






I BE CAREFUL ON REGISTERS 


SAVED ETC, 


a 




1 THIS 


ROUTINE 


IS RtlSEO TO 


LEVEL 


a SO A LPEN INTERRUPT 


10 




1 KON'T 


OUSE 1 


STACK OVERFLOK 




It 

12 0IIS20 




SC.USCI 










13 011320 


00S767 
176366 




TST 


BCiL.P 


1 


IS THERE ANV SCALING? 


in 0II321I 


00iaa2 




BEO 


scusct 


1 


NO- EXIT 


IS 011326 


0167116 
177776' 




H0» 


P8N,.(SP) 


1 


SAVE PSH 


16 011332 


052767 
000200 
177776* 




BIS 


•200, PSH 


1 


RAISE TO PRa 


17 043110 


010ia6 




HOV 


R1.-(»P) 


1 


SAVE Rl 


10 0a3a2 


0l02a6 




HOV 


R2.-<8P) 


1 


SAVE R2 


14 0«3(lll 


0103a6 




HOV 


R3,-(SP) 


f 


SAVE R3 


20 0«3ll* 


0l0aa6 




H0» 


Ra,.(8P) 


f 


SAVE R< 


21 0II3S0 


0l05a6 




HOV 


R5,-(SP) 


1 


SAVE RS 


22 011352 


012702 
00000a 




HOV 


iia.R2 


1 


SET UP COUNT FOR HORD TRANSFER 


23 0a35t 


005720 




TST 


(R0)« 


I 


ADJUST POINTER 


2a 011360 


0ia0a6 


SCUSC0I 


HOV 


•(R0),-(SP) 


1 


TRANSFER 1 HI-ORDERaaLO-AODRESS 


2S 0a362 


005302 




DEC 


R2 




OECREHENT LOOP COUNT 


26 0a36ll 


001375 




BNE 


SCUSC0 


1 


BRANCH IF NOT DONE 


27 011366 


012767 




MOV 


•ERSTtR.SERVEC | 


ERROR VECTOR FOR HULT, 




00aa3a' 














000000G 












20 0I137II 


00a767 
173712 




JSR 


PCOIKPOL 


1 


ENTER POLISH HODE 


29 0ail00 


00a57a' 






♦PUSHf 


1 


FLOAT FAC TO STACK 


30 011002 


000000G 






tSHLR 


1 


HULTIPLY 


31 01III0I1 


00aoS6' 






«RELiBS 


1 


RELATIVE OR ABSOLUTE 3CALET 


32 0ail06 


000000G 






*S*DR 


1 


00 ADDITION IF ABSOLUTE 


33 0II1I10 


000256' 






»POP 


r 


PUT RESULT IN FAC 


3a 0aai2 


00aaia' 






,*i 


1 


EXIT POLISH 


35 0aaia 


012605 




HOV 


(3P)«,R5 


1 


GET BACK R5 


36 0aai6 


01260a 




HOV 


(SP)*,R« 






37 0aa20 


012603 




HOV 


(BP)«.R3 






30 0aa22 


012602 




HOV 


tSP)*,R2 


1 


RESTORE REGISTERS 


39 0aa2a 


012601 




HOV 


(SP)*,R1 






a0 0aa26 


012667 
177776' 




HOV 


(3P)«,PS« 


1 


RESTORE PSN 


at 0aa]2 

a2 
a3 
aa 
as 0aa3a 


000207 


SCUSCIt 


RETURN 










1 


••• GOES QUITE DEEP 


IN STACK —12 K0RDS7 




IRSTlRl 










a6 0aa3ii 


10aa00 




TR»P 









a7 0aa36 


117 




.iSCII 


/OVF/ 






0aa37 


126 













^ // 



l\ 
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0aaa0 


106 






as eaaai 


000 


.BYTE 





a9 




.EVEN 




50 0aaa2 


020027 ERRDIVl 
000000 


CHP 


R0.«a000 


51 0aaa6 


103772 


SLO 


ERSTAR 


52 0aa50 


10OU00 


TRAP 





53 00052 


100 


.ASCII 


/DV0/ 


00053 


126 






00050 


060 






50 00055 


000 


.BYTE 





55 




.EVEN 




56 








57 




.IFOF 


SOISK 



73 



\' 



6/ 
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it eintii 

It tUDli 
12 0111176 

t} gasse 
IS sasaa 



t6 0«SI2 
IT 

la 

19 
21 

21 

22 aajia 

21 045ia 

2a 0a520 

25 0aS22 

26 eas22 

27 0aS26 
20 

2« 

30 
>l 

32 04530 
33 

3« 0«S32 
3S 

36 0aS3a 
3T 0«S3a 
3» 

34 0a536 
0aS3T 

0«sa0 
a0 
at 

42 

43 

44 04541 

45 



.SBTTL 
,ENOC 



MISCELkANEOUS ROUTINES 



005767 REL>0S| 

177156 

001401 

000134 

012665 RELtBSI 

000040 

01266S 

1)00042 

022626 

000164 

000006 

012767 OIVVECl 
004442' 
000000G 
000134 



I SOME 
TST 

SEO 

POLRET 

>tov 



JHR 



HOV 

POLRET 



lUXILItRV ROUTINES NEEDED 



tSS.F 

RELAB0 

($P)*,F1C1(RS) 

(9P)*,r«C2(R5) 

<SP)»,(SP>« 
6(R«) 



t RELATIVE OR ABSOLUTE SCALE? 



I BRANCH IF RELATIVE 

I 00 ADDITION STEP IF ABSOLUTE 



I STORE RESULT IN FAC 



I CLEAR STACK OF ADO CONSTANT 
I EXIT- PAST ADD AND POP 



(ERROIVtSERVEC I ERROR VECTOR FOR DIVISION 



t 



POSXl 
005767 
175312 
000402 

POSY I 
005767 
175306 
001401 POS0I 



005000 

000134 POSH 

ERRAORl 
104400 

101 
117 
122 



t SONE POLISH ROUTINES (ASAIN) 



000 

47 04542 010146 SAVERll 



46 



TST 

BEQ 

,IFDF 

JHP 

lENDC 

.IFNOF 

CLR 

.ENOC 

POLRET 



TRAP 

.IFNOF 

.ASCII 



iCNDC 

,IFDF 

.ASCII 

.ENOC 

.BYTE 

.EVEN 

HOV 



XSISN 

POSS 

rSIBN 

POSl 

SCRASH 

ERRAOR 

SCRASH 
Rl 





SLONGER 
/ADR/ 



t CK SIGN OF X 

I BR NITH CONDX CODES SET 

I CK SIGN OF Y 

I BR IF RB >a0 

t ARGUMENT OUT OF RANGE 

t MAKE RB • 



SLONGER 

/ARGUMENT OUT OF RANGE/ 



z:.^ 



Rl.-(8P) 



t SAVE ONLY Rl ON STACK 
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40 04544 


000134 




POLRET 




49 










50 04546 


012602 


REVRSEl 


HOV 


(SP)»,R2 


51 04550 


012603 




HOV 


(SP)t,R3 


52 04552 


016646 
000002 




HOV 


2(SP),-{SP) 


53 04556 


016646 
000002 




HOV 


2(SP),.(SP) 


54 04562 


010366 
000006 




HOV 


R3,6(SP) 


55 04566 


010266 
000004 




HOV 


R2.a(SP) 


56 04572 


000134 




POLRET 




57 










50 04574 


016546 

000042 


PUSMFI 


HOV 


F4C2(R5),-(8P) 


54 04600 


016546 
000040 




HOV 


FAC1(R5),-(SP) 


60 04604 


001015 




SNE 


PSHKIT 


61 04606 


005726 




TST 


(SP)« 


62 04610 


010167 
000026 




HOV 


Rl.Ml 


63 04614 


010467 
000024 




HOV 


Ra,H2 


64 04620 


004767 
173466 




JSR 


PCQIKPOL 


65 04624 


000000C 






♦SIR 


66 00626 


004630' 






.«2 


67 04630 


016701 
000006 




HOV 


Hl.Rl 


60 04634 


016704 
000004 




HOV 


H2.i)a 


64 04640 


000134 


PSHXITI 


POLRET 




70 










71 04642 


000000 


HU 


.HORD e 


1 


72 0U644 


000000 


M2I 


,HORO I 


1 


73 






iIFOF 


SDISK 



I EXIT IF REAL ALREADY 



7V 



\ \ 
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I 
2 

} 

« 
S 

6 
7 

e 

4 

10 

11 

12 

II 

I« 
IS 
It 
17 
It 
H 
20 
21 
22 
23 



•SBTTU 
,ENOC 



■TR«K" ROUTINe 






0«6St 

011662 
04661 
01666 
04670 
04672 
04674 
04676 
04700 
04702 
04704 



04712 
04716 



04722 
04724 



004767 

171316 

010667 

176762 

004767 

171406 

004542' 

000116' 

004770' 

004S14' 

001452' 



005042' 
004522' 

004704' 

012767 

160000 

001574 

010067 

001610 

012667 

001602 

012601 

004767 

175106 

010267 



20 04730 



29 04714 004767 

171216 

30 04740 001702' 

11 04742 004767 

175070 

12 04746 010267 

000014 
33 
34 04752 012767 

173400 

001526 
IS 04760 000t67 

171112 
36 

37 04764 000009 TRtKXl 

38 04766 000000 TRIKYI 
39 



) ROUTINE TO HtNOLE 

I C*LL "TRiK" (X,Y) 

I BECAUSE OF 'GETAOR*, X AND 7 MUST BE 

) VARIABLES, NOT CONSTANTS! 



JSR 
NOV 
JSR 



NOV 
MOV 



NOV 

JSR 



NOV 



PCBUFTST 

SP,ABS,F 

PC.POLENT 

tSAVERl 

•GETONE 

«SCALEX 

«POSX 

«SAVER0 

tCETNUN 

*SCA|.Er 

♦POSY 

.♦2 

*DJNP,BCG 

R0.YT 

(8P)«,XT 

(SP)»,Rl 
PCiGETADR 

R2,TRAKX 

PC.ENTERP 

tCKOPCN 
PCGETADR 

R2,TRAKY 



I ••• START TRAK AND EXIT 
NOV 'SDINTtBEG 



CKRPAR 



.KORO-S, 
,NORD 
.IFOF . 



I ANY BUFFER? 

I FLAG ABSOLUTE HOOE 

I ENTER POLISH NODE, CK •(" 

I SAVE PTR TO X 

I GET X 

I SCALE IT 

I NAKE SURE >a0 

I SAVE X ON STACK 

I GET Y 

I SCALE IT 

I NAKE SURE >a0 

) EXIT POLISH "ITH Y IN R« 

I TURN OFF TRAK IF IT HAS ON 



I STORE Y IN TRAK 

I STORE X IN TRAK 

( RESET TOKEN PTR TO X 
I GET ITS ADDRESS IN R2 

t STORE THE ADDRESS 

I IMHED POLISH 

I CK COMHA 

) GET ADDRESS OF Y 

I STORE ADDRESS OF Y 

( START TRAK 

I CK ")" AND EXIT TO USER 



I ADDRESS OF CURRENT X VARIABLE 
I ADDRESS OF CURRENT Y VARIABLE 



(-r^y 
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,SBTTL POLISH SCALEX AND SCALEY 
.ENDC 



I ROUTINES (POLISH) TO SCALE X OR Y 

I SCALES FAC. SETS SIGN SIT, NAKE VALUE POS., CK IF > 1023 



a 004770 

I 004770 

10 04774 

II 05000 
12 05004 

11 05010 

14 05014 

15 05016 

16 05022 

17 05026 
IS 0S030 

I'' 05036 

20 05040 

21 05042 

22 05042 

23 05046 

24 05052 

25 05056 

26 95062 

27 05066 

28 05070 

29 05072 

30 05076 

31 0S100 



32 05106 

33 05110 

34 05114 
35 

36 
37 
38 
39 05116 



005067 

175036 

012700 

006402' 

004767 

177314 

004767 



005765 

000040 

001402 

000167 >SCL2t 

177512 

016500 XSCL0I 

000042 

002030 

0U767 

220000 

174774 

005400 

000423 XSCLlt 

SCALCYl 
005067 
174766 
012700 
006172' 
004767 
177242 
004767 
0000i9eG 

005765 

000040 

001401 

000752 

016500 VSCL0I 

000042 

002004 

012767 

300100 

174726 

005400 

020027 YSCLII 

002000 

002402 



CLR 

NOV 

JSR 

JSR 

TST 

9EQ 
JMP 



BGE 
NOV 



NEC 
6R 

CLR 

MOV 

JSR 

JSR 

TST 

BED 

BR 

MOV 

8GE 
HOV 



NEG 
CMP 

8LT 
.IFOF 
8R 
,ENDC 

.IFNOF 
NOV 



XSIGN 

*SCL,X,R0 

PCSC.USC 

PC, INT 

FACKRS) 

XSCL0 
ERRAOR 

FAC2(R5),R0 

Y8CL1 
•20000, XSIGN 

R0 
YSCLl 

YSIGN 

•SCL.Y,Re 

PC,3C,USC 

PC, INT 

FACKRS) 

YSCL0- 
XSCL2 
FAC2(R5),R0 

YSCLl 
4100, YSIGN 



R0 

00, 42000 

YSCL2 

SCRASH 

XSCL2 

SCRASH 
•1777, R0 



I ASSUME X >• 

) SET UP FOR SCALE X 

I SCALE AS REQUIRED 

I INTEGERIZE 

I DID -WE SUCCEED? 

I YES* BRANCH 

I NO- CRASH 

I MOVE RESULT TO R0 

I BRANCH IF >40 

I MAKE BIT 13 ON IF NEGATIVE 

I MAKE no > 

I CHECK R0 < 1024 

I ASSUME Y >• 

I SET UP FOR SCALE Y 

I SCALE IT 

I INTEGERIZE IT < 32767? 



( YES- BRANCH 

I NO- CRASH 

I NOVE RESULT TO R0 

I BRANCH IF >iO 

I SET BIT 6 IF NEGATIVE 



I NAKE R0 > 

I CONPARE HITH 1024 



I BRANCH IF LESS THAN 
I CRASH 



7^ 



I HAKE > 1023 



S7B V«|-01 etSIC • 61 R007 HOO RT-ll RtCKO VHe2>a4 u>acT>7a *ii(*ia7 rtGE 2S* 

e»l777 
•I lENOC 

• 1 )SI22 MeiJa V9CL2I rOlRET 

a2 ,iror IDISK 
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.SBTTL "xeHA" AND "YGRA" ROUTINES 
,ENOC 



I ROUTINE TO HANDLE 

I CAUL "XSRA" (DY, A C.L,I,F,T1 ) 

I CALL "YSRA« (OX, A t,L.I,f,T] ) 

I ARRAY A HUST HAVE AT LEAST 2 ENTRIES 

I IF AN ARRAY IS USED »ITH XGRA OR YSRA, THEN 

I THE SS2 ENTRY IN SYMTAB BECONES -2, 'i RESP, 

I .«NOT£ THAT THIS HEANS THAT 

I I) ONLY DIMENSIONED ARRAYS HAY BE USED HITH 

I THESE ROUTINES, ANO 

I 2) THEY HUST HAVE ONLY ONE SUBSCRIPT 

I •• AT PRESENT, SINCE THE PLOTTED DATA 19 ABSOLUTE, 

I AN ARRAY MAY BE USED IN ONLY ONE CALL 

I (THIS CAN BE CHANCED HITHOUT TOO MUCH TROUBLE) 



20 0St2a 


XGRAi 








21 9512' 


012767 
120000 

000512 


MOV 


'120600, MODE 


1 NODE FOR GRAPH-S 


22 195132 


012767 
177776 
000536 


nov 


»-2,SS2TMP 


1 NEN VALUE OF 8S2 


23 B51«e 


000106 


BR 


CRA,0 


1 BRANCH AND CONTINUE 


2« 05ia2 


YGRAl 








25 e5ia2 


012767 
121000 
000521 


MOV 


•121000, MODE 


, MODE FOR GRAPH-Y 


26 B51SB 


012767 
177775 
000520 


HOV 


•-3,SS2TMP 


1 NEH SS2 FOR THIS MO 


27 95156 


001767 GRA.Bl 
173026 


JSR 


PC-,BUFTST 


1 ANY BUFFER? 


26 05162 


005067 
176152 


CLR 


ABS.F 


1 RELATIVE SCALE 


24 05166 


005067 
171636 


CLR 


XYBIG 


1 ASSUME <61 


30 05172 


001767 
173072 


JSR 


PCPOLENT 


I ENTER POLISH, CK «, 


31 05176 


000136* 




*GETONE 


1 GET DY OR OX RESP, 


32 05200 


005202' 




.•2 


1 EXIT POLISH 


33 05202 


026727 

000170 
177776 


CMP 


S82THP,».2 


1 XGRA OR YGRA? 


311 05210 


001110 


SEQ 


GRA.l 


1 BRANCH IF XGRA 


35 05212 


001767 
173071 


JSR 


PC.OIKPOL 


1 ENTER POLISH 


36 05216 


001770' 




tSCALEX 


1 SCALE OX IN YGRA 


37 05220 


001511' 




«POSX 


1 HAKE SURE »0 


30 05222 


005221' 




• *2 


1 EXIT POLISH 


39 05221 


012701 
005212' 


MOV 


•GRA,3,R« 


I NEH POLISH PC 


U0 05230 


000134 


POLRET 




1 AND CONTINUE THERE 


01 05232 


001767 CRA.ll 


JSR 


PCOIKPOL 


1 ENTER POLISH 



7^ 



/■■ 
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02 052}6 
an 0S2«2 

45 gS2iia 

46 05246 

47 05250 

48 0S252 

49 05254 

50 05256 

51 05262 



173054 
005042' 

00t440'CRl,3l 

001702' 

004542' 

000340' 

003050' 

005256' 

056700 

000412 

010167 



54 
55 
56 

57 
58 

59 
60 
61 

62 

63 

64 
65 
66 
67 

68 
69 

70 

71 



05266 004767 

173352 
05272 016600 

000002 
05276 001001 
05300 GRt0l 



05300 005200 

05302 005767 GR41I 

1T4522 
05306 001402 



05310 012700 

200077 



05314 
05320 
05324 



72 05330 



73 
74 
75 
76 
77 
78 
79 
80 

81 
82 



05334 
05336 
05340 
05342 
05344 
05346 
05350 
05352 

05356 

05360 



052700 GR12I 

174100 

004767 

173524 

012700 

160000 

004767 

173314 

012601 

005726 

112102 

100411 

000302 

152102 

061502 

121127 

000000C 

001407 

121127 



MOV 
BNE 

,ifor 

JHP 

.ENOC 

.IFNOr 

INC 

.ENOC 

TST 

SC9 

,IFOF 

9R 

.ENOC 

.IFNOF 

MOV 

.ENOC 

6:8 



83 05364 001404 

84 05366 000167 GRtSVNl 



J9R 

MOV 

TST 

MOVB 

BHt 

SII4B 

BISB 

100 

CMPB 

BEG 
CMPB 

BEQ 
JMP 



♦SCiLEY 

tPOSV 

tTST64 

«CKOPCN 

»S«VER1 

tSKPtRS 

♦LIFT 

tt2 

MOOE,R0 

Rl.MOOE 

PCtNENPUT 

2C8P),RB 

SRtl 

SCRiSH 
ERRtOR 

(CRASH 
RB 



GR12 
SCRASH 

GRAB 

SCRASH 
•77, RB 



•174100, R0 

pc,PUT»e 

•OJMP.RB 

PC.PUTMO 

(SP)t,Rl 

(SP)t 

(R1)«>R2 

SRASVN 

R2 

(R1)*,R2 

(R5),R2 

(R|)>«. COMMA 

6RA3 

(RD.i.RPAR 

SRA3 

ERRSYN 



SCAUE or FOR XGRA 

MAKE »a 

CHECK IF < 64 ANO ONTO BTK 

CHECK OPTIONAL COMMA 

SAVE PTR TO ARRAY 

TO GET BY ARRAY 

GET L,I,F,T 

EXIT POLISH 

AOD MODE TO B6M 

TEMP, SAVE PTR TO ")" 

INSERT IT/ FORCE NEM SGM 

GET SCALED INCREMENT 

BR IF R0>B 

ARGUMENT OUT OF RANGE 

MAKE RB a 1 
EXCEED 63T 

NO- BRANCH 
CRASH 

MAKE • 63 

LOAD STAT, REG, B 

INSERT IT 

FOLLOHEO BY OJMP 

INSERT IT 

POINT AT ARRAY 
CLEAN STK 

SHOULD NOT FIND A TOKEN 



ADR IN SYMTAB OF ARRAY 
BETTER BE FOLLOMED BY A •,' 



YES- BRANCH 
OR MAYBE A •)• 



YES- BRANCH 
SYNTAX ERROR 



/-. 



\ 
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85 05372 


000167 
e00000G 


GRAARGI 


JMP 


ERRARG 


ARGUMENT ERROR 


86 0SJ76 


022227 
177776 


GRA3I 


CMP 


tR2)»,«-2 


BETTER BE AN ARRAY 


87 05402 


001371 




BNE 


GRASYN 


NO- ERROR 


88 05404 


012200 




MOV 


CR2)»,RB 


GET AOR OF (SCALAR BEFORE) ARRAY 


89 05406 


022020 




CMP 


tRB)»,(RB)» 


POINT TO A(B) 


90 05410 


004767 
173234 




JSR 


PCPUTMO 


INSERT AFTER DJHP 


91 05414 


011201 




MOV 


(R2),R1 


IS SSI >0T 


92 05416 


003765 




BLE 


GRAARG 


NO- ERROR 


93 05420 


010046 




MOV 


R0,-(SP) 


SAVE ADR 


94 05422 


010200 




MOV 


R2,R0 




95 05424 


B04767 
173220 




JSR 


PC.PUTHO 


SAVE ADR OF SSI 


96 05430 


012600 




MOV 


(SP).,R0 


RESTORE RS 


97 05432 


005022 




CLR 


(R2)* 


MAKE $St>« IN SYMTAB 


98 05434 


021227 
177777 




CMP 


(R2),»-l 


CHECK SS2 • -1? 


99 05440 


001354 




BNE 


GRAARG 


NO- ERROR 


100 5442 


016712 
000230 




MOV 


5S2TMP,(R2) 


STORE NE" SS2 


101 5446 


010002 




MOV 


R0,R2 


STORE START OF SCALED ARRAY 


102 5450 


010667 
176164 




MOV 


SP,ABS,F 


ABSOLUTE MODE 


103 






,IFOF 


JLPS 




104 5454 


805067 
000114 




CLR 


LPS.F 


ASSUME NOT AN LPS ARRAY 


105 5460 


012704 
tS00e00G 




MOV 


l>NARRAY,R4 


NO, OF ENTRIES IN BUFFER TABLE 


106 5464 


»0I4I3 




BEQ 


GRA7 


NOTHING THERE 


107 5466 


012703 
00tl0e0G 




MOV 


•TABLE, R3 


AOR OF FIRST 6-HORO BLOCK 


108 5472 


021300 


G«>6I 


CMP 


(R3),RB 


AOR, MATCHT 


109 5474 


001003 




8NE 


GRA10 


NO- BRANCH 


110 5476 


010667 
000072 




MOV 


8P,LPS,F 


SET LPS FLAG 


111 5502 


000404 




BR 


SRA7 


EXIT 


112 5504 


062703 

000014 


GRA10I 


ADO 


•12. ,R] 


GO TO NEXT BLOCK 


113 5510 


005304 




DEC 


R4 


ANY ENTRIES LEFT? 


114 5512 


003367 




BGT 


GRA6 


YES- BRANCH 


115 






,ENOC 






116 5514 


010003 


GRA7I 


MOV 


R0,R3 


GET START OF UN8CALED DATA 


117 






,IFOF 


SLPS 




118 5516 


005767 
000052 




TST 


LPS,F 


AN LPS ARRAY? 


119 5522 


001403 




BEQ 


GRA7A 


NO- BRANCH 


120 5524 


006301 




ASL 


Rl 


YES- DOUBLE ARRAY ENTRIES 


121 5526 


005401 




NEG 


Rl 




122 5530 


005201 




INC 


Rl 


HAKE -DIM*! 


123 5532 




GRA7AI 


,ENOC 






124 5532 


010100 




MOV 


R1,RB 




125 5534 


004767 
173110 




JSR 


PC.PUTMD 


STORE SSI IN OPY FILE 


126 






,IFDF 


SLPS 




127 5540 


005767 




TST 


LPS.F 


AN LPS ARRAY? 



77 



-::, 



\u 



YX- 
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~N 





000030 








121 ssaa 


001616 


SES 


GR6LP 


t NO- OON'T NEGtTE 


12» 5546 


005601 


NCG 


Rl 


t USED >0 HERE 


130 S5S0 


005767 GR64I 
000028 


TST 


LP8.F 


t 6N LP9 tRRir? 


IJl 5556 


001610 


SEQ 


GR6LP 


1 N0« BR6NCH 


132 SSS6 


012300 


M0» 


(R3)«>R8 


1 SET 0676 


133 5560 


010366 


HOV 


R3,-(9P) 


t 96VE R) 


13* 5562 


010003 


MOV 


R0.R3 


1 8ET UP FOR tP8 "FLOAT" 


135 556* 


006767 
000000C 


J9R 


PC.Fl.067 


1 FLOAT INTO FAC 


1)6 5570 


01260) 


NOV 


t9P)«,R3 


1 RE9T0RE R3 


137 5572 


000605 


SR 


GRALPl 


1 ANO CONTINUE 


130 55711 


000000 LP9.Fl 


.HORD 





1 NON-ZERO IF LP9 ARRAV 


139 




.ENOC 






l«a 5576 


012365 CRtUPl 

000060 


NOV 


(R))»,F«CUR5) 


t GET OATA 


1«1 5602 


012365 

000062 


MOV 


(R3)«,F>C2(R5) 


t ANO aECONO HORD 


1112 




,IFOP 


9LP8 




lO 5606 


GRtLPII 


.ENOC 






1«« 5606 


026727 
000066 
17777* 


CMP 


S82TNP,»2 


1 XGRA OR TGRAT 


l«S 5616 


00U0S 


8E0 


GRt6 


1 8R IF XGRA 


1«6 5616 


006767 
172679 


JSR 


PC.OIKPOl. 


( ENTER POLISH 


167 5622 


005062' 




*«CtLEY 


I 9CALB IT TO R8 


Ilia 56211 


006522' 




♦P08V 


t MAKE 9URE >* 


H6 5626 


005662' 




*GR<5 


) CONTINUE THERE 


150 5630 


0067*7 6R66I 
172656 


JSR 


PCaiKPOL 


t ENTER P0LI9H 


151 56311 


006770' 




69C6LEX 


t 9CALE X TO R8 


152 5636 


000516' 




• P09X 


1 MAKE SURE » 


153 56110 


005662' 




.*2 


1 EXIT POLISH MOOE 


ISa 56112 


052700 GR65I 
060000 


819 


•60000.R0 


1 MAKE VISIBLE 


155 56a6 


010022 


MOV 


R0<(R2)* 


1 9T0RE 9CALED VALUE 


156 5650 


005301 


OEC 


Rl 


t OECREHENT COUNT 


157 




.IPDP 


•1.P8 




150 5652 


002336 


8GE 


GR69 


1 LOOP 


156 




.ENOC 






160 




.IPNOF 


9LP9 




161 




8GE 


GR6LP 


1 LOOP 


162 




.ENOC 






163 5656 


016701 

000016 


NOV 


MOOE.RI 


1 RESTORE Rl 


166 5660 


012722 SQXntl 
160000 


MOV 


60JMP.(R2)6 


1 INSERT DJMP 


165 5666 


016712 
172706 


MOV 


0I9EN0>(R2) 


t AND ADDRESS 


166 5670 


0001*7 
17*310 


JMP 


80X:79 


1 CK ")■ ANO EXIT TO USER 


167 










160 5676 


000000 MOOEl 


,NORO 





1 SRAPH.X OR GRAPH-r MODE 


169 5676 


000000 »32THP| 


.HORD 





1 NEH VALUE OF SS2MAX 


170 




• IFOF 


t0I9K 





l\ 
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1 




.SBTTL 


■SCAL" ROUTINE 




2 

3 
6 

5 


1 


.ENDC 






1 ROUTINE TO HANDLE 




* 
7 
» 005700 




1 


CALL "SCAL'CLLX, 


.LLY.URX.URY t.INX.INYl) 


SCALI 








9 005700 


0007*7 
172300 


JSR 


PCBUFPOL 


I ENTER POLISH AND CK •(" 


10 05706 


00013*' 




*GETONE 


1 GET LLX 


11 05706 


000576' 




♦PUSHF 


1 FLOAT TO STK 


12 05710 


00002*' 




♦PLOOP 


1 POLISH LOOP 


13 05712 


090002 




♦ 2 


) TWICE 


16 05716 


00007*' 




*GETNUH 


1 GET ".LLY.URX" 


15 0571* 


006576' 




«PU9HF 


t FLOAT TO STK 


16 05720 


1100000' 




♦ELOOP 


) END POLISH LOOP 


17 05722 


080566' 




♦REVRSE 


1 REVERSE LLU ANO URX 


18 05720 


000076' 




♦GETNUH 


) GET URY 


19 05726 


000576' 




•PUSHF 


( FLOAT TO STK 


20 05730 


005732' 




.•2 


1 EXIT POLISH, CK INX, INY LATER 


21 05732 


016667 

000006 
000610 


HOV 


a(SP),LLY 


1 


22 05760 


016667 
000006 
000406 


HOV 


*(SP),LL»*2 


1 SAVE LLY 


23 05766 


016667 
000010 
000006 


HOV 


12.(9P),LLX 


1 


26 05756 


016667 
000016 

000000 


HOV 


16,CSP),LLX*2 


1 SAVE LLX 


25 05762 


000667 
172030 


JSR 




1 ENTER POLISH AND SAVE REGISTER 


26 057*6 


006236' 




♦MULVEC 


1 LOAD ERROR VECTOR FOR SUBTRACT 


27 05770 


000000G 




• SSBR 


) LLY-URY 


28 05772 


000176' 




«NEGSTK 


( URY-LLY 


29 05770 


000256' 




♦POP 


1 SAVE IN FAC 


30 05776 


0002006 




♦SSBR 


t LLX-URX 


31 06000 


00017*' 




•NEGSTK 


1 URX-LLX 


32 06002 


000002' 




♦FPPRES 


1 RESTORE REGS, AND EXIT POLISH 


33 06000 


012**7 

0003*6 


MOV 


(SP)»,FX 




36 06010 


0126*7 
0003*2 


MOV 


(SP)«,FX*2 


1 SAVE URX-LLX TEMPORARILY 


35 0*010 


0127*7 
006352' 


HOV 


6USCL.T>9CPTR 


) POINTER 6 LLY»2 


36 06022 


0067*7 
09021* 


JSR 


PC.9CL6EN 


t GENERATE SCALE IN Y 


37 06026 


012*67 
00033* 


MOV 


(SPJt.FYL 




38 060)2 


012**7 
000336 


HOV 


(SP)»,8CL.Y 


) STORE FYL * •FY6LLY 


39 06036 


012*67 
000302 


HOV 


(SPJt.IFY 





7/ 



\; 
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HZ 06042 012667 
Ui 060U6 016S67 



HOV 

HOV 



42 060511 
as 06062 
(til 06070 
as 86076 

116 06104 

117 06110 

as 06iia 

a9 06120 

50 0612a 

51 06130 

52 06136 

53 06iua 
5a 06150 

55 0615a 

56 06162 

57 06170 
SS 0617a 

59 06200 

60 06200 

61 

62 06210 

63 

64 



000310 

^16567 
000042 
000304 
016765 
000306 



016765 

000302 

000042 

012767 

006362' 

oooioa 

004767 

1100134 

012667 

000264 

012667 

000262 

012667 

000230 

012667 

000226 

016567 

000040 

000236 

016567 

000042 

000232 

012700 

006374' 

004767 

000142 

016765 

000204 

000040 

016765 

000200 

000042 

012700 

006364* 

004767 

000116 

010667 SClLOt 

170506 

000167 

172106 

000000 SCPTRl 



MOV 

JSR 
HOV 
MOV 
MOV 
MOV 
MOV 

MOV 

MOV 
JSR 
MOV 



MOV 
JSR 
MOV 

JHP 



(SP)«,1PY»2 
r«Cl(R5),FT 

PiC2(R5),FYt2 

FX,F*Cl(R5) 

ni«2.F>C2(R5) 

•USCL,X,SCPTR 

PCSCLGEN 

(SP).,PXI. 

(SP)»,SCL,X 

(SPUiIFX 

(SP)t,IFX*2 

F»C1(R5),FX 

FiC2(R5)>FX*2 

•FX,RO 

PCOPTSTR 

FY,FACltR5) 



I STORE IFY • l/FY 

I STORE FY 

1 PUT URX-kLX IN F«C 

I POINTER • ILX*2 

I GENERATE SCALE IN X 

I STORE FXt • •FXttLX 

I STORE IFX • l/FX 

I STORE FX 



I SET UP SOURCE VARIABLE A00RES3 
) STORE INX > FX IF USER MANTS IT 



.NORO 
.IFOF 
.EOT 



FY»2,FAC2(R5) I MOVE FY TO FAC 

•FY,RO I SET UP SOURCE VARIABLE ADDRESS 

PCOPTSTR I STORE INY • FY IF USER HANTS IT 

SPtSCAL.F I SCALING HAS BEEN DONE 

CKRPAR ( CK ")" AND EXIT TO USER 

I PTR FOR A POLISH ROUTINE 



c-'' 
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2 

3 

a 
5 

6 

7 

S 

1 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 
35 
36 
37 
38 
39 



DEC • 11 • LSPGB • A - LA 
GTB.HAC TAPE 4 OF 4 



BASIC KERNEL V02-01 



THE INFORMATION IN THIS LISTING IS SUBJECT TO CHANGE MITHOUT NOTICE 
AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EOUIPMENT 
CORPORATION. DIGITAL EOUIPHENT CORPORATION ASSUMES NO RESPONSIBILITY 
FOR ANY ERRORS THAT MAY APPEAR IN THIS LISTING, 

THIS SOFTWARE IS FURNISHED TO THE PURCHASER UNDER A LICENSE 
FOR USE ON A SINGLE COMPUTER SYSTEM AND CAN BE COPIED (KITH 
INCLUSION OF DIGITAL'S COPYRIGHT NOTICE) ONLY FOR USE IN 
SUCH SYSTEM, EXCEPT AS MAY OTHERKISE BE PROVIDED IN HRITING BY 
DIGITAL, 

DIGITAL EOUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY FOR THE 
USE OR RELIABILITY OF ITS SOFTHARE ON EOUIPMENT THAT IS NOT 
SUPPLIED BY DIGITAL, 

COPYRIGHT (C) 1973,1974, BY DIGITAL EOUIPHENT CORPORATION, 

AUTHOR I OR, STEPHEN R, ALPERT AUGUST 1973 
,SBTTL ROUTINES AUXILIARY TO "SCAL" 
,ENOC 

I SOHE NECESSARY ROUTINES TO ACCOMPLISH SCALING 



06212 
06212 

06216 
06220 
06222 

06224 
06224 
06226 



06234 
06234 



016700 
177772 
011046 
014046 
000134 



005046 
012746 
042600 
000134 



MOV 
MOV 
POLRET 



CLR 
MOV 



POLRET 



3CPTR,R0 



J(R0).-(SP) 
-(RO),-(SP) 



•(5P) 
•42600, -(SP) 



I R0 HAS ADDRESS OF LO-ORDER HORO 
( MOVE TO STK 



I PUT 1024, ON STK 



45 
46 
47 
49 
49 
50 
51 
52 
53 
54 



012767 

004434' 

000000G 

0110134 

J 



HULVECl 



«ER8TAR,»ERVEC ) MULT, ERROR VECTOR 



POLRET 



I SCALE GENERATOR ROUTINE 

I ON EXITi 

I FX IN FAC 

I FXL AT (SP), 2(SP) 

I IFX AT a(SP), 6(5P) 



7? 



■-■V \ 



SCLGENI 
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S5 ttl»» 

sr a»25a 

S> et25i 

S4 96269 

60 06262 

61 062611 

62 06266 

63 06270 
61 06272 

65 0627a 

66 06276 

67 06300 

ta 0*302 

6« 063Ba 

70 06306 

71 063(0 

72 

73 063|il 

7« 



012667 

000ga<i 

0061167 
1721112 

000266' 
0062211' 
0011S0II' 
000231' 
0000000 
0002S6' 
000236' 
000e00(; 
0002311' 
000176' 
006212' 
0062311' 



000462' 

000177 

000000 

00000* SCISIVI 



NOV 


(9P)».9CLa«y 


1 S6VC RETURN tODRCSS 


OFF STK 


J»» 


R«(FRPS>V 


) S<VE REGS «N0 ENTER 


POLISH 




«PU)Ht 


* PUT 1,0 ON STK 






«TCN2a 


1 PUT 10211, ON STK 






♦Divvec 


1 OIVIOC ERROR VECTOR 






♦PUSH 


t PUT FAC ON STK 






tSOVR 


1 1026, /D!PP, • FX 






♦POP 


1 PUT FX IN FtC 






♦PUSH 


1 PUT B6CK ON STK 






♦ SDVR 


1 1,/FX • IFX 






♦PUSH 


t FX ONTO STK iSilN 






♦NCCSTK 


1 HON .FX 






♦P8HPTR 


1 PUT tLX ON STK 






♦HULvec 


1 HULT. ERROR VECTOR 






♦ SHLR 


1 FXl • •FX«LL> 






♦FPPRES 


1 EXIT POLISH tNO RESTORE REGS 


JMR 


•sctstv 


1 RETURN TO CALLER 




.NORO 





1 RETURN ADDRESS 




,trtr 


SOISK 







STB V01.0t BASIC • CT ROOT HOO RT-U NACRO yN«2««« 16-0CT.7« S2ia6t0T PAGE 



32 



1 
2 

3 

« 

5 
6 
7 

a 

4 

10 06316 

11 06316 

12 06322 

13 0632a 
la 06326 

15 06330 

16 06332 

17 06336 
IS 06360 

14 06342 
20 

21 
22 
23 
24 

25 06344 
06346 

26 063S0 

27 06352 

2a 

24 06354 
06356 

30 06360 

31 06362 
32 

33 06364 
06366 

34 06370 

35 06372 
36 

37 06376 
06376 

38 06400 
34 06a02 
40 



.aSTTL OPTIONAL STORE ROUTINE AND DATA LAYOUT FOR SCAL 



) ROUTINE TO OPTIONALLY STORE (R0),2(R0) IN NEXT PARAH 

I IF THERE IS ONE, 

I Rl POINTS TO COHHA BEFORE PARAMETER 

I R0 POINTS TO ENTRY TO BE MOVED 



OPTSTRl 
004767 
171779 
000066' 
001702' 
006338' 
193404 
004767 
173500 
012022 
012022 
900207 OPTST0I 



000000 LLYI 

000000 uscL.ri 



900000 FYLI 
000000 SCL,Y| 

000009 FXl 

990090 
000900 FXLi 
000009 SCL.XI 



BCS 

JSR 



PCOIKPOL 

♦8ET0PT 
♦CKOPCH 
.♦2 

OPTSTB 
PCGETAOR 



MOV (Re)^,(R2)^ 
MOV (RB)+,(R2)^ 

RETURN 



I ENTER POLISH 

t SET OPTIONAL FLAG 

I CK OPTIONAL "," 

I EXIT POLISH 

I N0« A RIGHT PAREN 

I GET AOR IN R2 



I STORE RESULT 



t DATA STORAGE FOR SCALING 
,HORO 0,0 



.lORO 9 
,UORO 9 



009000 IFXI 



000000 LLXI 
000009 USCL.Xl 



,«ORD 9,0 

,HORO 9 
,llOnD 

,NORO 9,0 

,aORO 
,aORO 

,'ORD 0,0 

,HORD 
,MORD 9 
,:FDF (DISK 



1 IFY 


■ 


1/FY 


1 LLY 






1 IFX 


a 


1/IFY 


1 LLX 












1 FYL 


■ 


•FY«LLY 








1 F«L 


s 


IFX.LLX 



?0 
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1 
2 

] 
« 
5 

i 
7 
S 

9 

le 
11 

12 

ID 86ae« 

15 g6«i« 

16 96II11I 

17 06420 
It 061122 
14 06112a 

20 061130 

21 061132 

22 061136 

23 06aa0 

211 06lia2 

25 06111111 

26 06au6 

27 061150 

28 06115U 

2« 06U56 



.SBTTL POLISH ROUTINE TO SORT V«RI»B|,e TYPES 
.ENOC 



I ROUTINE (POLISH) TO RETURN IN R0 

I -1 IF JRSUHENT IS SC«L»R OR REGULAR »RR*T 

t IP XGRi 1RR«V 

I 2 IF rGR« iRRtY 

I a IF FIGR tRRtr 

I •• CRASH IF * STRING ARGUMENT 

I Rl POINTS TO PARAMETER IN TOKEN FORM 



0011767 
1731126 
016500 
000022 
021027 
177776 
00ta01l 
003015 
012700 
177777 
00013a 
016000 
000006 
005200 
002371 
005200 
005a00 
'006300 
020027 
0000011 
003765 
000167 



ADRCHKt 



JSR 

"OV 

CMP 

SEO 

BGT 

ADRCHll MOV 

A0RCH2I POLRET 
AORCH0I MOV 

INC 
BSE 

INC 
NEG 
ASL 
CMP 

BLE 
A0RCM3I JMP 



PCGETAOR 

VARSAV(R5),R0 

(R0),>-2 

AORCHB 
AORCH) 

•-i,Re 



6(RB),RB 

R0 

AORCHl 

R0 

R0 

R0 

R0i«a 

A0RCH2 

ERRARG 



,IFOF tOISK 



t GET THE AOOREBS 

I GET POINTER TO SYMTA8 ENTRY 

I ARRAY OR SCALAR? 

I BRANCH IF ARRAY 

) BRANCH IF SCALAR 

I FLAG AS •! 

I AND EXIT 

t GET SS2HAX 

I BRANCH IF SS2MAX >a-l 



I R0 <•- -2 • (RB ♦ 1) 

I BETTER NOT BE >a 



I IT ISN'T, EXIT 
I IT IS, FAIL 
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1 
2 

3 

a 
5 

6 
7 
9 
9 

10 061162 

11 06062 

12 06a66 

13 06a70 
U 06a72 

15 06a7a 

16 06a76 

17 06500 
19 06502 

19 06506 

20 06512 

21 065111 

22 06516 

23 06520 

2a 06522 

25 0652a 

26 06530 



2B 065a0 

29 065aa 

30 065a6 

31 06550 
52 06552 

33 06556 

3a 06S60 

35 06562 

36 0656a 

37 06570 
39 06572 
39 065711 
a0 06576 

ai 06602 

a2 06606 

a3 06610 

aa 066111 

a5 e66i6 



, SBTTL "APUT" ROUTINE 
,ENOC 



APUTi 
004767 
171516 
00a5a2' 
000340' 
000076' 
004502' 
000234' 
006502' 
016601 
000006 
004767 
171600 
006400' 
000256' 
006520' 
005700 
002002 
000167 
000000G 
010266 APUTll 
000002 
010667 
175100 
016007 
006544' 
006552'Tll 
006564' 
006576' 
004767 APUTXl 
171534 
004770' 
004514' 
006606' 
004767 APUTYl 
171522 
005002' 
000522' 
006646' 
005067 APUTFl 
175036 
006065 
000024 
103012 
000767 
171342 
005042' 
000367 



I ROUTINE TO HANOLE 

I CALL "APUT" t A(n> Z) 

I »A" MUST BE XGRA, YORA OR FIGR ARRAY 

, "Z" CANNOT BE ANY OF THE ABOVE 



JSR 



MOV 
J9R 



.*2 

TST 
8GE 

JHP 



CLR 
ROR 



9CC 

JSR 



PCBUFPOL 

tSAVERl 

♦SKPARG 

tGETNUM 

tSAVERl 

♦PUSH 

■ •2 

6(SP),Rt 

PC.QIKPOL 

•AORCHK 
♦POP 



APUTI 
ERRARG 

R2,2(SP) 

SP,A8S,F 

Tl(Ra),PC 

♦APUTX 
♦APUTY 
♦APUTF 

pcaiKPOL 

♦SCALEX 
♦POSX 
♦APUT2 
PCOIKPOL 

♦SCAUEY 
♦POSY 
♦APUT2 
ASS.F 



APUTF9 
PCENTERP 



♦SCALEY 

YSIGN 



) ENTER POLISH ANO CK •(" 

I Rl TO STK (PTR TO A(I) ) 

I SKIP OVER Ad) 

( CK ",» ANO GET VALUE OF Z 

I SAVE PTR TO ")" ON STK 

I SAVE Z ON STK 

) END POLISH HODE 

I POINT AT A(l) AGAIN 

I IMMED, POLISH 

( CHECK ITS TYPE 

I PUT Z BACK IN FAC 

I EXIT POLISH 

I XGRA, YGRA, OR FIGRT 

I VES« BRANCH 

I NO- CRASH 

t SAVE AOR OF A(I) OVER PTR TO A(I) 

I ABSOLUTE MODE (XGRA, YGRA) 

I DISPATCH 

I XGRA 

I YGRA 

I FIGR 

I ENTER POLISH 

I SCALE IT 

) MAKE SURE »8 

t CONTINUE AT APUT2 

) ENTER POLISH 

I SCALE IT 

t MAKE SURE »e 

I CONTINUE AT APUT2 

I FLAG RELATIVE MODE 

I X OR Y ENTRYt 

I X- BRANCH 

I IMHEO, POLISH 

I SCALE Y 



?/ 
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47 S»t26 

Hi 16632 
«4 06*31 

se e66iie 

51 06612 

52 06616 

53 06616 
SI 06650 

55 06651 

56 06660 
ST B6662 
S0 06661 
5* 



173212 

006267 
173206 
056700 
173202 

000105 

001767 >RUTF0l 

171316 

001770' 

056700 

173161 



tSR 
SIS 



BR 
JSR 



012601 
017616 
000000 

012716 
137777 
050016 
012636 

000161 



APUT2I 



MOV 
HOV 



SIC 



SIS 

nov 

BR 

.IFDP 



rSIGN 
TSIGN.RS 



«RUT2 
RC.ENTERR 



«SC«LEX 
XSIGN.RB 



(8P)«,Rl 
• (SP)f(SP) 

•137777, (SPJ 

RO.tSP) 
(8P)»,»tSP)t 
AGETl 
(DISK 



I HOVE SIGN TO SIT 13 
I SET SIGN SIT IN 1NSNER 



I CONTINUE AT APUT2 
I INMED. POLISH 



I SCALE X 

I SET SIGN BIT 



I POINT TO •)• 
I GET VALUE 



I CLEA ALL BUT VISIBILITY 

I SET IN VALUE 

I STORE A(I) 

I EXIT THRU CKRPAR 
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1 
2 

3 

1 
5 

6 
7 
S 

9 

10 06666 

11 06666 

12 06672 

13 06671 
H 06676 

15 06700 

16 06702 

17 06701 

la 06710 



21 06721 



22 06732 

23 06736 
21 06710 

25 06712 

26 06711 

27 06750 
2S 06752 

24 06756 
30 06760 



32 06772 

33 06776 



31 07002 

35 07001 



36 07010 

37 07011 



39 07020 
39 07022 



.SBTTL "AGET" ROUTINE 
,ENDC 



AGETl 
001767 
171312 

006101' 

001702' 

006700' 

005700 

002802 

000167 ASET3I 

0000000 

018667 «GET0l 

171721 

011265 

000012 

005065 

000010 

012765 

010000 

000012 

016007 

006736' 

006711'T0t 

007001' 

006752' 

012700 AGETXI 

006362' 

000117 

032712 AGETFl 

020000 

001105 

005165 

000012 

052765 

176000 

000012 

005067 1SET2I 

171612 

006065 

000021 

103360 

012700 AGETYl 

006352' 

001767 ASETll 

175301 

001767 

171272 

000231' 

006101' 



I ROUTINE TO HANOLEl 

I CALL 'AGET' ( A(I), Z) 

I "AK MUST BE XGRA, VGRA, OR FI6R ARRAY 

I "2» MUST NOT BE ANY OF THE ABOVE 



TST 
BGE 

J MP 

MOV 
MOV 
CLR 
BIC 



BR 
BIT 



BEO 

NEG 



CLR 

DOR 



6CC 
MOV 



JSR 
JSR 



PC.BUFPOL 

tAORCHK 

♦CKOPCM 

• *2 

RS 

AGEfe 

ERRAR6 

SP.ABS.F 

tR2),F<C2(RS) 
FACKRS) 



I ENTER POLISH ANO CK •(• 

I CK AOR OF A(I) 

I CK "," 

t EXIT POLISH 

) XGRA. YGRA, OR FIGRT 

t YES- BRANCH ANO CONTINUE 

) N0> CRASH 

I ABSOLUTE MODE 

I SET VALUE FROM ARRAY 

I INTO FAC 



«1BB0B,FAC2(R5) | CLEAR INTENSITY BIT 



T0(R0),PC 

«AGETX 
♦AGETY 
♦AGETF 
•USCL.X.RS 

ASETl 
•20000. (R2) 

ASET2 
FAC2<R5) 



I DISPATCH 

I XSRA 

I YSRA 

I FISR 

I UNSCALE XGRA 

t AND CONTINUE 

I LONG VECTOR <«T 

t N0> BRANCH 

I YES> NEGATE IT 



•t76etS.FAC2(R5) t HAKE IT TRUE NEGATIVE 



ABS.F 

SSISAV(RS) 



ASETX 
•USCL.Y.RB 



PC.SC.USC 
PC.QIKPOL 



♦PUSH 
4A0RCHK 



t FISR IS RELATIVE 
I X OR Y ENTRY? 



I X- BRANCH 
I UNSCALE YSRA 



I DO IT NOW 
I ENTER POLISH 



( PUSH FAC ON STK 
I CK ADR OF Z 



9^ 
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na 078211 eereib' 






>*i 


m e7e26 ee^Tse 




T$T 


R0 


«i 07010 002325 




BGE 


tGETI 


'I 070J2 012622 




HOV 


(SPU,(R2)« 


aa 070}a 212622 




MOV 


(SP)«,CR2)» 


«5 07036 000167 


tSETIII 


J«P 


CKRPtR 


17125a 









I EXIT POLISH 

t tSKk, VSR«, OR FICR7 

I VE9- ERROR •> CRASH 

I STORE UN9C1I.ED RESULT 
I ANO REST or IT 

I CK »)" AND EXIT TO USER 



,IFDF SOtSK 
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.SSTTt 


"FISR" ROUTINE 






' 


• ENOC 








1 ROUTINE TO HANOLEI 








I 


CALL "FIGR" (A 


. L. I. F, T ] ) 


S 0070a2 


FIGRI 








9 007002 


000767 
171136 


JSR 


PCBUFPOL 


( ENTER P0L18H ANO CK "(• 


10 07006 


000502' 




♦SAVERI 


1 SAVE PTR TO A ON STK 


11 07050 


000300* 




tSKPARG 


) DON'T TRY TO EVALUATE IT 


12 07052 


003050' 




♦ LIFT 


) GET L, I. F, T 


13 0705" 


000502' 




tSAVERl 


1 SAVE PTR TO ")" 


1« 07056 


O07B6B' 




• »2 


1 EXIT POLiaM 


15 07060 


052700 
110000 


SIS 


•110800. RB 


) LONG VECTOR MODE 


16 07060 


000767 
171550 


JSR 


PCNEMPUT 


1 INSERT 8GM UORO 


17 07070 


016601 
000002 


MOV 


2(SP),Rl 


1 POINT AT A 


la 07070 


012616 


MOV 


(SP).,(SP) 


1 CLEAN STK A BIT 


19 07076 


112102 


MOVB 


(RU«.R2 




20 07100 


100SI2 


SMI 


FIGSYN 


1 ERROR IF TOKEN HERE 


21 07102 


000302 


S>>AB 


R2 




22 07100 


152102 


SISB 


(R1)>>R2 




23 07106 


061502 


ADD 


(R5),R2 


1 OFFSET TO SYHTAB 


20 07110 


022227 
177776 


CMP 


(R2)»,«.2 


1 BETTER BE AN ARRAY 


25 07110 


001100 


9NE 


FIGSVN 


I NO- ERROR 


26 07116 


012700 
160000 


MOV 


•DJHP,R0 




27 07122 


000767 
171522 


JSR 


PC,PUT"0 


1 INSERT DJHP 


28 07126 


al2200 


MOV 


(R2)*.R0 


1 GET ADDRESS OF ARRAY 


29 07130 


022020 


CHP 


CR9)»,(R9)* 


) POINT AT A(0) 


30 07132 


010003 


MOV 


R0,R3 


1 PUT IN Rl ALSO 


31 07130 


000767 
171510 


JSR 


PC.PUTMO 


1 INSERT IN DPY FILE 


32 07100 


011201 


MOV 


IR2),R1 


) IS SSt >«T 


33 07102 


003067 


BLE 


FIGARG 


1 N0> ERROR (NOT ENUF ROOH) 


30 07100 


0053ai 


DEC 


Rl 


1 TO ROUND CORRECTLY 


35 07106 


052701 

0110001 


SIS 


• l.Rl 


1 HAKE ODD 


36 07152 


0U200 


MOV 


R2,RB 




37 07150 


000767 
171070 


JSR 


PC.PUTMO 


1 ADR OF SSI 


38 07160 


010100 


MOV 


Rl.RB 




39 07162 


000767 
171062 


JSR 


PCPUTHO 


) SAVE SSI IN DPY FILE 


00 07166 


005022 


CLR 


(R2)« 


1 ZERO SSI IN SYHTAB 


01 07170 


005201 


INC 


Rl 


1 ONE HORE SINCE ZERO TOO 


02 07172 


021227 

177777 


CMP 


(R2),ll-1 


) CHECK SS2 • -17 


03 07176 


001051 


BNE 


FIGARG 


) NO. ERROR 


00 07200 


012712 

177770 


MOV 


«-0,(R2) 


t STORE -0 IN SS2HAX 



p 
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as 87201 

•* a72gk 

ar 87212 

»» 872tk 

«« 97222 

S8 0722t 

St 07232 
S2 872}a 



54 072ail 

55 872116 



S» 072S2 
57 072Sa 



S* 07264 

60 87266 

61 07272 

62 07276 

63 87)02 

64 87306 

65 073t0 

66 07312 

67 07314 
60 07316 

69 07322 

70 07326 
71 



018302 
005067 
174426 
085067 

176460 

012365 FIGRLPi 

800040 

012365 

080042 

00S767 

176444 

801018 

005267 

176436 

004767 

170712 

804770* 

056780 

172560 

080413 

00S067 FIGRlt 

176416 

004767 

178672 

005842* 

000367 

172S42 

806267 

172536 

056700 

172532 

056780 FIGR2I 

173730 

010022 

005301 

003341 

012601 

000167 

176336 

000167 FIGiRGI 

000000G 

000167 FIG9VNI 

080080G 



HOV 
CLR 

CLR 

MOV 
HOV 

T»7 

BNE 
INC 

J9R 

eis 

BR 
CLR 

JSR 

9W4B 

«9R 

BIS 

SIB 

MOV 
SEC 
BG7 
HOV 

JMP 

JMR 
JHF 
,IFOF 



R3.R2 
«B8.F 

9S2THP 

(R3)*.FtCt(R5) 

(R3)«iFtC2(R5) 

SS2TMP 

FIGRl 
SS2TMP 

PCCNTERP 

tactLEx 

X$IGN,R0 

FIGR2 

9S2TMP 

PCEnTERP 

tSCiLEV 
VBXGN 

r9IGN 

V9IGN,R0 

INVIB>R0 

R0i(R2)* 

Rl 

FIGRLP 

(9P)»,»1 

SDXI71 

ERR4RG 

ERRGVN 

90I9K 



I ALSO IN R2 
t RE117IVE MODE 

I BHITCN FOR TOGGLING 

t GET tRRtr ELEMENT 

I GET 9EC0N0 HtLF 

) X OR 7 ENTRYT 

I y« BR4NCH 

I MtKE V NEXT TINE 

I IHMED. P0LI9H 

) 9CtLE X RELATIVE 
t PUT IN 9IGN 

t IN9ERT IT IND CONTINUE 
I MtXE X NEXT TIME 

I IHMEO. POLIBH 

t 9C>LE r RELATIVE 

I 9ET SIGN BIT IN BIT 13 

I *LL BET 

I SET IN R8 

I PLAG VI9IBLE OR NOT 

I INSERT 9CALED HORO 

I LOOP IF NOT DONE 

I POINT Rt AT •)" 

( IN9ERT/ CK "JV EXIT TO U9ER 

I ARGUMENT ERROR 

I SYNTAX ERROR 
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1 

2 

3 1 

4 

5 


1 


.SBTTl 
,EN0C 


. "FPUT" ROUTINE 






} ROUTINE TO HANDLE) 






6 




1 


CALL "FPUT»(A(I), 


|2) 




7 




1 "A" 


MU9T BE A FI6R ARRAV 




B 

9 

18 07332 1 




1 "2" 


MUST NOT BE ANY OF 


FIGR,XGRA,YGRA 




'PUTi 










11 07332 804767 

1711646 

12 87336 004542' 




JSR 


PC.BUFPOL 


1 ENTER P0LI9H AND CK "(• 








tSAVERl 


t 9AVE PTR TO A(I) 




13 07348 088340' 






•SKPARG 


1 9KIP OVER Ad) 




14 07342 088076' 






•GETNUH 


t GET Z INTO FAC 




IS 07344 084542' 






tSAVERl 


1 9AVE PTR TO ")• 




16 07346 008234' 






*PU8M 


t 9AVE Z ON STK 




17 87350 807352' 






.*2 


1 EXIT P0LI9H 




It 07352 016681 




MOV 


6(SP),R1 


1 POINT Rl AT A(I) 




000006 












19 07356 004767 




J9R 


PCOIKPOL 


1 IMMED, P0LI9H 




178730 








^ 




20 07362 086404' 






tAORCHK 


1 CK ADR OF Ad) 




21 07364 000256' 






♦POP 


1 PUT Z INTO FAC 




22 07)66 007370' 






.t2 


1 EXIT POLISH 




23 07370 020027 




CMP 


R8i»4 


t R8 SHOULD BE 4 




000004 












24 07)74 081402 




BEQ 


FPUT8 


1 YES- BRANCH 




25 07)76 000167 

800000G 

26 07402 »102t>6 




JHP 


ERRARG 


1 NO- ERROR 




FPUT0I 


HOV 


R2.2(SP) 


1 REPLACE PTR TO Ad) BY IT9 


ADR 


000002 












27 07406 005067 




CL« 


ABS.F 


1 RELATIVE NODE 




174226 












29 07412 006065 




ROR 


SSISAVIRS) 


1 X OR Y ENTRY? 




000024 












29 07416 103013 




BCC 


FPUTl 


t X> BRANCH 




30 07420 004767 




JSR 


PCiENTERP 


1 IMMED, POLIBH 




170532 












31 07424 005042' 






•SCALEY 


1 9CALE Y TO R0 




32 07426 000367 




9HAB 


YSIGN 


1 MOVE 9tGN BIT 




172402 












33 07432 006267 




i9R 


YSION 


I TO 1) 




172376 












34 07436 016767 




HOV 


YSIGN, XYBIG 


1 9AVE SIGN 




172372 












172364 












35 07444 000406 




BR 


FPUT2 


) AND CONTINUE 




36 07446 004767 


FPUTll 


JSR 


PCENTERP 


) IHMEO, POLISH 




170S04 












37 07452 004778' 






♦SCALEX 


1 SCALE X TO RB 




18 07454 016767 




HOV 


XSIGN, XYBIG 


1 SAVE SIGN 




172352 












172346 












39 07462 01660) 


FPUT2I 


HOV 


2(9P),R) 


1 ADR OF Ad) 




000002 












40 87466 812616 




MOV 


t8P)*,(8P) 


1 CLEAN STtCK 





^V 



' / /• 
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«l 07470 


004767 
000)96 




JSR 


PC, UNDO 


GET ARC A(t) TO Ra 


112 07a7a 


010002 




MOV 


R0.R2 


SAVE Z 


«1 07476 


056700 
172326 




019 


xrsio.Ri 


SET SIGN 


aa 07502 


B115"6 




MOV 


(R3),-(SP) 


GET VALUE 


05 07S0« 


002716 
157777 




BIC 


•137777, (SP) 


CLEAR ALL BUT VISIBILITY 


116 07S10 


050016 




SIS 


R0,(SP) 


SET IN VALUE 


U7 07512 


012613 




MOV 


(SP)t,(R3) 


STORE IN A(I) 


aa 07S1II 


005767 
172310 




TJT 


XYBIG 


Z POS OR NEGt 


119 07520 


001401 




BEQ 


FPUTJ 


POS- BRANCH 


50 07522 


005402 




NEO 


R2 


MAKE CORRECT REPRESENTATION 


51 0752U 


160402 


FPUT3I 


SUB 


R4,R2 


Z-A(I) IN R2 


52 07526 


005723 




TST 


(R3)« 


LOOK AT NEXT HORD 


53 075S0 


022327 

160000 




CMP 


(R3)«,«DJMP 


END OF ARRAY? 


511 075J11 


001417 




BEQ 


FPUTa 


YES 


55 07536 


021327 

160000 




CMP 


(R3),»DJMP 


END OF ARRAY HERE7 


56 075112 


001414 




BEQ 


FPUT4 


YES 


57 075«a 


004767 
000032 




JSR 


PC, UNDO 


GET A(It2) INTO R« 


50 07550 


160204 




SUB 


R2,Ra 


Ra<>iA(I«2)-<Z-A(I)) 


59 07552 


002003 




BGE 


FPUT5 


BRANCH IF POSITIVE 


60 075511 


005000 




NES 


RO 


ABS, VAL OF Ra 


61 07556 


052704 
020000 




BIS 


«20e00,Ra 


SET SIGN NCG. 


62 07562 




FPUT5I 








63 07562 


011306 




MOV 


(R3),-(SP) 


GET VALUE 


611 0756a 


002716 
U7777 




BIC 


•137777, (SP) 


CLEAR ALL BUT VISIBILITY 


65 07570 


050016 




BIS 


Ra,(SP) 


SET NEH VALUE 


66 0757Z 


012613 




MOV 


(SP)«,(R3) 


STORE NEH A(I«2) 


67 075711 


012601 


FPUT4I 


MOV 


tSP)»,Rl 


POINT AT ")• 


68 07576 


000167 
170514 




JMP 


CKRPAR 


CK •)• AND EXIT TO USER 


69 
70 
71 




I 














72 






1 ROUTINE UNDO 




73 






1 T»KE 


LONG VECTOR HORD 


•DINTED TO BY R3 


7a 






1 AND 


»UT IT INTO R4 




75 
76 
77 07602 






1 CALLED VI*| JSR PC.UND 


9 


011304 


UNDOl 


MOV 


(R3),Ra 


1 GET ARGUMENT 


7S 0760a 


002700 
000000 




aic 




1 CLEAR VISIBILITY 


79 07610 


832704 
020000 




BIT 


•20000, R4 


1 POS, OR NEG. T 


00 076ia 


001003 




BEQ 


UNDOB 


t POS,- BRANCH 


01 07616 


002700 
020000 




BIC 


•20000, R4 


1 CLEAR SIGN BIT 


02 07622 


005404 




NEG 


R4 


1 MAKE CORRECT 


33 0762a 


008207 


UNDQ0I 


RETURN 




1 ANO EXIT 


aa 






.IFOF 


SDISK 
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.SBTTl 


"TEXT" ROUTINE 








1 


,EN0C 












1 ROUTINE TO MANOLEl 










1 


CALL "TEXT"! « 


ARG, LIST>) 








1 "HEREl 










1 


♦Nl <CR> ANO N 


<LF> 








1 


01 <CR> AND 


NO <LF> 


10 






1 


•N| SMIFT.OUT 


STRING FOLLOHS 








I 


RS OR "STRING" 


1 STRING DATA 








1 IF 


SHIFT-OUT, ONLY 


RIGHTH08T 5 BITS 








1 IF 


SHIFT-IN, IGNORE 


ALL NON-PRINTABLES 


07626 


TEXTl 










07626 


005067 
008326 


CUR 


SHIFT 


I DEFAULT TO SHIFT IN 




07632 


800767 
170346 


JSR 


PC.flUFPOL 


1 ENTER POLISH, CK"(" 




07636 


007640' 




,*t 


1 EXIT POLISH 




07600 


012700 

100000 


MOV 


•100000, R0 


t SET CHARACTER MODE 




07644 


00O767 
172070 


JSR 


PCPUTSGM 


1 INSERT IT 




07650 


012702 
010162' 


MOV 


•CBUFF,R2 


1 R2 POINTS TO RB 




07650 


000010 


8R 


TEXTl 


1 GET FIRST ARC, 




07656 


122127 TEXT0I 
8000000 


CHPB 


(RDt.^.COHHA 


1 DO HE HAVE A COMHA? 




07662 


001005 


BEQ 


TEXTl 


1 YES- GET ARG, 




07660 


120127 
0000000 


CHPB 


-(Rt),**RPAR 


1 NO- NO MORE ARGST 




07670 


001521 


BEQ 


TEXTll 


1 YES- EXIT 




07672 


800167 
800000G 


JMP 


ERRSYN 


1 NO- ERROR 




07676 


018006 TEXTll 


MOV 


R0,-(SP) 


1 SAVE CHAR, BUFFER 




07700 


010246 


MOV 


R2,-(SP) 


1 AND PTR 




07702 


004767 
808080G 


JSR 


PCEVAL 


1 GET ARG, 




07706 


1831127 


8CS 


TEXT2 


1 BRANCH IF STRING 




07710 


804767 
178202 


JSR 


PC.ENTERP 


1 IHMEO, POLISH 




07714 


008086' 




♦INTEGR 


1 INTEGERIZE IT 




87716 


812602 


MOV 


(SP).,R2 


1 RESTORE PTR 




87729 


012600 


HOV 


(SPU.RO 


1 RESTORE BUFFER 




07722 


016503 

000042 


MOV 


FAC2(R5),R3 


1 COUNT INTO R3 




07726 


002003 


BSE 


TEXTJ 


1 BRANCH IF CARRIAGE 




87730 


010667 
000224 


MOV 


SP, SHIFT 


1 FLAG FOR SHIPT-OUT 




07730 


000750 


BR 


TEXTB 


1 GET NEXT ARG, 




07736 


012794 TEXT3I 
000015 


HOV 


•15, R4 


1 INSERT aCRp 




07702 


804767 
800216 


JSR 


PCLDCHAR 


1 INSERT IT 


42 


07746 


012704 
008012 


MOV 


•12, RO 


1 INSERT <LF> 



?i" 
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63 07752 


005703 




737 


R3 


»NY TO OOT 


66 07756 


001740 


TtXT5l 


BES 


7EXT0 


N0< EXIT 


65 07756 


004767 
000202 




JSR 


PC,LOCH»R 


YES. INSERT IT 


46 07762 


005303 




DEC 


R3 


DECREMENT COUNTER 


67 07766 


000773 




BR 


TEXTS 


CONTINUE IN LOOP 


40 07766 


012603 


TexT21 


NOV 


(SP)»,R3 


SET PTR TO 8TRIN8 


66 07770 


012602 




HOV 


(»P)«,R2 




50 07772 


012600 




HOV 


(SP)»,RB 


RESTORE BUFFER tNO PTR 


51 07774 


020327 
177777 




CUP 


R3>6-l 


NUUL STRINGt 


52 10000 


001437 




BEO 


TEXTS 


YES. CLEAR SHIFT IF SET 


SI 10002 


010146 




MOV 


Rl.-(SP) 


StVE Rl 


56 10004 


111301 




HOVB 


(R3),R1 


SET LENSTH OF STRINC 


55 10006 


062703 
000003 




too 


• 3,R3 


POINT AT STRING 


56 10012 


005767 
000142 




7sr 


SHIFT 


SHIFT OUT? 


57 10016 


001436 




BEO 


TEXT6 


N0> BRANCH 


5« 10020 


012706 
000016 




MOV 


«16,R4 


SHIFT-OUT 


54 10024 


042706 
177740 


TEXT7I 


BIC 


6|777«e,R4 


CLEAR ALL BUT 5 LO-ORDER 


60 10030 


020627 
000017 




CMP 


R4,»17 


BETTER NOT BE SHIFT-IN 


61 10034 


001010 




BNE 


TEXT13 


NO- CONTINUE 


62 10036 


004767 
000122 




JSR 


PC,LBCH»R 


PUT IN SHIFT IN 


63 10062 


012704 
000040 




MOV 


•41, Ra 


AND SPACE 


64 10066 


004767 
000112 




JSR 


PCLOCHAR 


PUT IT IN 


65 10052 


012704 
000016 




MOV 


•16,R6 


AND SHIFT OUT 


66 10056 


004767 
000102 


TEX713I 


JSR 


PC.LDCHtR 


INSERT IT 


67 10062 


112306 




M0V8 


(R3)«,R6 


LOAD UP NEXT BYTE 


66 10066 


005301 




OEC 


Rl 


OECREHENT LENGTH61 


66 10066 


002356 




BSE 


TEXT7 


STORE BYTE IF NOT AT END 


70 10070 


012704 
000017 




MOV 


•17, R4 


INSERT SHIFT-IN 


71 10074 


004767 
000064 




JSR 


PC,LOCH«R 


INSERT IT 


72 10100 


005067 
000056 


TEXT0I 


CLR 


SHIFT 


CLEAR SHIFT-OUT FLAG 


73 10104 


012601 


TEXT10I 


MOV 


(SP)6,Rt 


RESTORE Rt 


76 10106 


000663 




BR 


TEXTB 


GET NEXT ARG, 


75 10110 


112304 


TEX76I 


HOVB 


(R3)6,R4 


GET CHAR. 


76 10112 


001403 




BEO 


TEXT«« 


LET NULLS SLIP THROUGH 


77 10114 


120427 
000040 




CHPB 


R6,66a 


PRINTABLE 


78 10120 


002602 




BLT 


TEXT6 


NO- DON'T PRINT IT 


76 10122 


004767 
000036 


7EX766I 


JSR 


PC.LOCHtR 


YES- INSERT IT 


00 10126 


005301 


TEX79I 


OEC 


Rt 


DECREMENT BYTE COUNT 


01 10130 


001367 




BNE 


TEXT6 


CONTINUE IF MORE LEFT 


62 10132 


000764 




BR 


TEXTIB 


RESTORE Rl AND GET NEXT 






-7^ 
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S3 10134 


032702 

000001 


TEXTllI 


BIT 


»t.R2 


64 10160 


001403 




BEO 


TEXT12 


65 10142 


005004 




CLR 


R4 


66 10146 


004767 
000016 




JSR 


PCLDCHAR 


67 10150 


004767 
170570 


TEXT12I 


JSR 


PC, INSERT 


86 10156 


000167 
170136 




JMP 


CKRPAR 


86 










90 10160 


000000 


SHIFTi 


,HOR0 





61 10162 


000000 


cauFFi 


.HORD 





92 
93 

94 












I LOAD 


CHARACTER routine" 


95 










96 10164 


110422 


LDCHARt 


MOVB 


R4,(R2)« 


97 10166 


032702 
000001 




SIT 


•I»R2 


98 10172 


001005 




BNE 


LDCHB 


99 10174 


016700 
177762 




MOV 


CBUFF.RB 


100 0200 


004767 
170444 




JSR 


PC.PUTNO 


101 0204 


005742 




tst 


-(R2) 


102 0206 


000207 


LOCH0I 


RETURN 




103 






.IFOF 


•CLOCK 


104 






,IFOF 


SDISK 



I FILLED EVEN NO, OF BYTEST 

\ YES- BRANCH 

I MiKE LAST BYTE • 

I LOAD UP DPY FILE NITH LAST NORO 

I INSERT INTO FILE 

I AND EXIT 



I SHIFT-OUT FLAG 
I CHARACTER BUFFER 



I PUT BYTE INTO RB 

I ODD OR EVEN BYTE NEXT? 



I ODD- DON'T INSERT YET 
I LOAD UP DPY HORD 



I EVEN- CAN INSERT NON 



I POINT BACK AT CBUFF 
I RETURN TO CALLER 



?^ 



^ 



7o 
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7 

a 

« 010211 

10 10210 

11 1021O 

12 10216 

13 10220 
1' 10222 

15 10226 

16 102}0 

17 1023a 



It I02a2 

19 10246 

20 102S2 

21 102S6 

22 10260 

23 1026a 
2a 10266 



25 10272 B10067 

000156 

26 10276 005067 

000156 

27 10302 012700 

000100 
20 10306 030067 
177506' 

29 10312 00|aia 

30 103ia 021027 

31 10)20 001000 

32 10322 005767 

000130 

33 10326 001006 

34 10330 000402 

35 10332 011067 TIHEll 

000120 

36 10336 012767 



,S8TTL 
,E*IOC 



"TIME- «N0 "TINR" HOUTINES 



010222' 

005767 

000152 

001055 

013746 

00000a 

012737 

010366' 

00000a 

005737 

177546 

012637 TIHMI 

000004 

005767 

000122 

001041 

016500 

000042 

003002 

000167 



000114 
37 10344 012760 TIHC0I 
000300 



I dOUTINE TO HtNDUEl 

I c«Lu "t:me«(») 

t HHERE t 19 THE NUMBER Or TICK3 HtNTEO 



JSR RCPOLENT ( ENTER POLISH, CK ■(• 

tGETONE I GET t 

♦INTEGR I INTEGERIZE IT 

t»2 ) EXIT FROM POLISH 

T8T OSPTCH ( GOT i CLOCK? 

BNE TIME2 I NO- EXIT 

MOV •»4,.(SP) ) SiVE LOC 4 

MOV (HERE.^^a I M«r iOR 



TST ••177546 I GOT ONE 

MOV (SP)«,««a I RESTORE LOC 4 

TST OSPTCH I BELL 

BNE TIME2 I NO CLOCKI EXIT 

MOV F*C2(R5),R0 | GET COUNT IN TICKS 

9GT ,«6 I CONTINUE IF POSITIVE 

JMP ERRARG I NO- ERROR IF MB 

MOV R0,TIMEC I 5«VE TIME COUNT 

CLR TMSW , ASSUME NO ONE ELSE USING CLOCK 

MOV «100,R0 I USE FOR LKV AND BIT 6 

BIT R0,LKS I CLOCK INTERRUPT ENABLED? 

SEQ TIME0 I NO- BRANCH 

CMP (R0),*TMR I MY OLD REOUEST? 

BNE TIHEt t NO- BRANCH 

TST TMRADR | ANY AOR FROM LAST TIME? 

BEQ TIMES I NO- BRANCH 

SR ,«6 ) YES- BRANCH 

MOV (R0), TMRADR | YES- GET LKV 

MOV P6,TMSH , SET UP PROPER EXIT 

MOV «300,2(R0) I PUT IN BR6 



,\l 



^^:^ 



GTB V01-01 BASIC - GT ROOT MOD RT-11 MACRO VM02-09 16-0CT-7a 02106107 PAGE 39* 



38 


10352 


012710 

010402' 


MOV 


•TMR,(Re) 


, PUT AOR AT LKV 


39 


10356 


010067 

177546' 


MOV 


R0.LKS 


1 ENABLE CLOCK 


40 


10362 


000167 TIME2I 
167730 


JMP 


CKRPAR 


) CK ■)" AND EXIT TO USER 


41 


10366 


012716 HEREI 
010246' 


MOV 


•TIHH,(SP) 


( RET AOR 


42 


10372 


010667 
000002 


MOV 


SP, OSPTCH 


1 SIGNAL NO CLOCK 


43 


10376 


000002 


RTI 






44 
45 
46 


10400 


000000 DSPTCHi 


.NORD 





1 NON-ZERO IF NO CLOCK 


10402 


005767 TMRi . 


TST 


TIMEC 


( TIME ELAPSED YET? 






000046 








47 


10406 


003410 


8LE 


TMRO 


( END OF LOOP? BRANCH 


48 


10410 


005367 

000040 


DEC 


TIHEC 


( DECREMENT THE COUNT 


«9 


10414 


005767 

000040 


TST 


TM8M 


t ANYBODY ELSE? 


50 


10420 


001001 


BNE 


.t4 


1 YES 


51 


10422 


000002 


«TI 




1 NO- CONTINUE 


52 


10424 


000177 
000026 


JMP 


•TMRtDR 


1 GO TO MIH 


53 


10430 


066707 IMR0I 
000024 


ADD 


TMSM.PC 


1 AND DISPATCH TO EXIT 


54 


10434 


005067 

177506' 


CLR 


LKS 


t CLEAR CLOCK STATUS REGI 


55 


10440 


000002 


RTI 






56 


10442 


016767 
000010 

000100' 


MOV 


TMRAOR>LKV 


1 GIVE BACK VECTOR 


57 


10450 


000177 
000100' 


JMP 


•LKV 


1 AND CONTINUE THERE 


58 












59 


10454 


000000 TIHECI 


,»0R0 





1 NUMBER OF TICKS 


60 


10456 


000000 TMRAORl 


.HORD 





1 OLD CONTENTS OF LKV 


61 
62 
63 
64 
65 
66 


10460 


000000 THSWi 


.MORD 





) ENDING TYPE ( OR 6) 




1 


1 ROUTINE TO HANDLEl 




67 






J 


CALL "TIMR"(E) 




68 
69 
70 






1 RETURNS THE CURRENT 


VALUE OF TIMER IN E 


10462 


000767 TIHRl 


JSR 


PC.POLENT 


1 ENTER POLISH, CK«(" 






167602 








71 


10466 


010070' 




.t2 


) EXIT POLISH 


72 


10470 


004767 
171342 


JSR 


PCGETADR 


1 GET AOR OF E IN R2 


73 


10474 


005022 


CLR 


(R2)« 


1 ZERO HI-OROER MORD 


74 


10476 


016722 

177752 


MOV 


TIHEC, (R2)« 


t SAVE CURRENT • OF TICKS 


75 


10502 


000167 
167610 


JMP 


CKRPAR 


1 CK •)• AND EXIT TO USER 



?7 



7t 
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7» 
77 



.[NOC 

,tFDF iOISK 
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t 

z 

i 
a 
s 

6 
7 

a 

9 01BSe6 
IB 105B6 
U IBSU 
12 lBSt2 
II IBStO 
la 1BS16 
15 1BS2B 
It 10522 
17 ie52il 
la U526 
14 10530 

20 10532 

21 1053a 

22 1053k 

23 105a0 
211 105a2 

25 I05aa 

26 105116 

27 10550 
29 10552 

29 1055a 

30 10556 

31 10560 

32 10562 

33 1056a 
3a 10566 

35 10570 

36 10572 

37 1057a 
3a 10576 
39 U600 

10602 
a0 106014 

ai 10606 
a2 10610 
a3 
aa 10612 

as 



iSBTTL 



010576' 
010520' 
177777 T»G1I 



OISPLir PILE BEGININ6 
,ENOC 



I TH:S portion must be kINKCD BOTH TO THE RT-lt 

I SCROLL BUFFER (IF THERE IS ONE) tND THE REST OF THE 

I USER'S DISPLAY FILE. 



170200 T«C2|. 

11712a 

000000 XT I 

000000 VTl 

10aia0 

057600 

077677 

0a0177 

Ba0177 

077677 

057600 

040077 

077777 

057777 

057677 

07a000 

0a00i7 

067400 

0a0i36 

0a7a00 

040017 
173400 



11712a RSTFILI ,1' 



1702a0 

160000 
010S06'DSTOP| 

000000 DCRtSHt 
000001' 



-I 

.MORD 
.HORD 
.HORO 
,»0R0 
,»0RD 
,MORO 
.HORD 
.WORD 
,HORO 
.HORD 
.HORD 
.HORO 
.WORD 
.HORO 
.HORD 
.MORO 
.HORD 
.HORD 
.HORO 
.HORD 
.HORD 
.HORD 
.HORD 
.HORO 
ORO 
HORD 



♦RSTFIL 



17B2B0 

117124 





104140 
57600 
77677 
40177 
40177 
77677 
57600 
40077 
77777 
57777 
57677 
74000 
40017 
67400 
40136 
47400 

a00i7 
SDINT 


117124 
0.0 



.HORD 170210 

OJHP 

.HORD BEG 

.HORD 
.END 



t THE START 

I REST OF. FILE IF TR»K OFF 

t ADR FOR TRtK SUSP 

I TAG FOR TRAK ROUTINE 

t NEXT TAG POINTER 

I LO, STATUS REG. A 

I APNT, I»a, T>0 

I X POSITION 

I 7 POSITION OF TRAK 
I SHORT VECTOR LP ENABLE 



I END OF^ TRAK SUBPICTURE 

I APNT L«OFF,I«a. F»OFP, T«0 
t AT (0,0) 

I LD STAT REG A, NORNAL FONT, LP INT 

) OJMP TO START OF FILE 

t INITIALLT TO TRAK OBJ 

I LAST HORD IN DPY FILE (EXCLUDING TEXT) 



?^ 



'/ 
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<BS,F 


iie}6iieRe 


ACTENO 


000bl|eR6 


ACTS? 


0ae*a2Rs 


IDBtS 


gg 133011 


AORARC 


00221I0R 


AORCHK 


BBtiieaR 


tDRCHe 


lebditu 


ADRCHl 


0061l2aR 


A0RCH2 


006SI0R 


IDRCH} 


BeaastR 


AORSYN 


0022«1IR 


A08TK 


e0i3k2Re 


• GET 


Be6666RG 


AGETF 


00t7S2R 


AGETX 


B0»7aaR 


AGETY 


ge7ee«R 


AGET0 


0067I0R 


AGETt 


007B10R 


IGETi 


Be6772R 


AGET3 


00670I1R 


AGETU 
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84 00214 

85 00216 

86 00220 

87 30222 

88 0022U 
89 

90 00226 
41 00230 

92 00232 

93 00236 

94 00240 

95 00244 

96 00246 



O00(((G 

1(3154 

012003 

100407 

012746 SAVCONI 

000074* 

005766 SAVSETl 

000002 



SHIS 
HOV 
BMI 
HOV 

TST 



SAVS 
tR()».R3 
SAV4 
»5AV3,-(SP) 

2(SP) 



001401 8E0 ,»a 
010324 HOV n3.(R4)* 
000207 RETURN 

PROCESS OPU INSTRUCTION 



020327 3AV4I CHP 

160000 

001406 BEG 

020327 CHP 

160001 

001403 BEG 

020327 CMP 

173400 

001077 9NE 

I HERE IF SDINT OR DJHP 

005720 SAV6I TST (RO* 

001467 BEG 9AV8 

021060 CHP (R0),6(R0) 



R3,«DJMP 



SAV6 
R3.PDJMP+I 



SAV6 
R3>«SDINT 



SAV7 



001023 
005716 
(101002 
012703 
1600(0 
010546 
010324 
010441 
022024 

010414 
062724 
000010 
011014 
022020 
010415 
005724 
010405 
805024 
012024 
000723 

005716 
00100} 

062700 
000006 
000716 
020327 
160000 
001(04 
021000 



9NE 
TST 
SNE 
HOV 

SAVI0I HOV 

HOV 

MOV 
CHP 
I INSERT AOR 
MOV 
ADD 



SAV9 
(8P) 
SAVI0 
«DJMP,R3 



I YES- BRANCH 

I GET HORD 

) DPU INST,- BRANCH 

I FAKE A JSR PC 

I HRITE ENABLED? 

t NO- BRANCH 
I YES- PUT MORO 
I EXIT 
(SOHE OF THEH) 

I A DISPLAY JUMP? 

I YES- BRANCH 

I A JUMP FROH SUBP (OFF)? 

I YES- CONTINUE 
I A STOP DISPLAY? 

I NO- BRANCH 

t NEXT MORO ZERO? 

) YES- (SOINT/0 CASE)- BRANCH 

I ACTIVE SUBP FOLLOMS? 

I NO- BRANCH 

I MRITE ENABLED? 

I YES- BRANCH 

) CHANGE SOINT TO OJMP 



SAV18I 
SAVIli 



HOV 
CMP 
HOV 
TST 
MOV 
CLR 
MOV 
8R 
I HERE IF AN 
SAV9I TST 



SAviat 
SAV12I 



BNE 
AOO 



BR 

CHP 



BNE 
CHP 



R5.-(SP) I NRITE ENABLE 

R3,(R»)» ) INSERT SOINT OR DJHP 

P«>-(Rl) f SAVE PTR To "REST OF FILE ADR" 

(R0)»,(R4)» I R0 TO TAG, R4 TO SUBP AOR 
OF SUBP IF FOLLOHING 

R4i(R4) I OFFSET FOR NEH ADDRESS 

«10,(R4)» , ADD TO POINT TO CORRECT NORO 

(R(),(R«) I HOVE TAG 

(R0)».(R0)« ( POINT "GET" AT SUBP-2 

""•(RS) I SET NEN LINK IN TAG CHAIN 

<R«)* » POINT TO "NEXT TAG PTR" 

"«<R5 I SAVE NEM BACK PTR 

(««)♦ I ZERO PTR TO STOP SEARCH 

(R()«,(R4)« I MOVE ADDRESS BEFORE SUBP 

SAV3 I AND CONTINUE 
ACTIVE SUBPICTURE DOESN'T FOLLON SOINT OR OJMP 

(SP) ( "RITE ENABLE? 

3AV12 I VES- BRANCH 

•»>RB ( HOVE RB 



SAVS 
R3.«0JMP 

SAV13 

(R(),R( 



) AND CONTINUE 
) A DISPLAY JUNPT 



I NO* BRANCH 
( SUBP POLLONS} 



9> 



1 1' 



7 ' 



STc vai-Di etsic • gt disk a rt-ii MtcRo vnaz^e* it«acr.7a aiiiuut ptcE t* 



47 00258 
9a 88252 

94 eg2sii 

lai 8256 

182 8260 

183 8262 

18a 8266 
185 8278 



187 8388 

188 8382 

189 8384 

118 8318 

111 8312 

112 83ia 
113 

Ua 8316 

US 8328 

116 8322 
117 
118 

119 e32« 

128 0326 
121 

122 8330 

123 8332 

12a 033a 

125 8336 

126 8348 

127 03a2 
128 

129 83aa 
138 8346 

131 8352 

132 8356 

133 0360 

134 0364 

135 8366 

136 8372 
137 

138 037a 

139 0376 
ia8 8488 
141 0482 
142 

143 8404 

144 0406 

145 0410 



183779 
805846 
800766 

I Hint 

810324 StV13l 

810414 

862724 

888018 

812814 

012782 

eee888(i 

816202 SAV15I 

808802 

801406 

814283 

826314 

177776 

801485 

005722 

800767 

I HERE 
824444 SAV16I 
805726 
080743 

I III I 

I HERE 
018324 9tV17l 
888727 

I HERE 
805726 Sivai 
801660 
818324 
885024 
810431 
888654 

I HERE 
810382 SAV7I 
842782 
003777 
020227 
118088 
801421 
828227 
128000 
103650 
020227 
124000 
101245 



8L0 9tn« 

CLR -(8P) 

SR atvta 

IF SDINT/ SUBP a<CK 

MOV R3i(R4)« 

MOV Ra,(R4) 

100 tia.cRa)* 



MOV 
MOV 



SES 

MOV 
CHR 



(R8)t,(Ra) 
•TiGl,R2 

2(R2).R2 

a«Vt6 

•(R2),R3 

-2(R3).(Ra) 



9Ea 9AV17 

TST (R2)» 

8R SAV15 

IF 9DIKT/ HENABL/ SUBR 

CMP -(R4),-(Ra) 

TST (SP)t 

aR SAV14 

OON'T THINK THAT SAV16 

IF FOUND SUBP 

MOV ' R3i(Ra)* 

BR SAVIS 

IF SOINT/0 CASE 

TST (SP)» 

BEQ SAV3 

MOV R3.(R4)« 

CLR (Ra)» 

MOV R4,»(R1)» 

BR 3AV3 

IF DPU INST. MOT SOINT 

MOV R3iR2 

3IC «3777iR2 



CMP 



BEQ 
CMP 



BtO 

CMP 



R2>«118888 



SAV19 

R2, 4128888 



SAVCON 
R2. •124088 



885720 

022020 3AV23At 

012083 SAV23I 

812823 

082083 
085343 
805413 



BHI SAVCON 
I HERE IF XGRA OR TGRA 



TST 

CMP 

MOV 

MOV 

,IFNOF 

BGE 

DEC 

NEG 



(Re)« 

CR8)»>(R0)« 

(R8)*,R3 

(R0)«,(R3)« 

SVTONLY 

,tt0 

•<R3) 

(R3) 



N0> BRANCH 

TES* DISABLE NRITE 

AND CONTINUE 

8ET SDINT 

PUT IN CURRENT POSITION 

OFFSET FOR ADDRESS 

MOVE OLD SUBP ADR 

GET ADR OF 1-ST POINTER 



BRANCH IF NOT ACTIVE 
GET NEH SUBP ADR 
A MATCH? 

TES- FOUND SUBP- BRANCH 
POINT R2 AT NEXT PTR 
NO- LOOP 
NOT ACTIVE 

POINT TO SDINT 
CLEAN STK AND ADR-STX 
AND CONTINUE 
LL BE REACHED 

SET NEW ADR 

SET TAG AND CONTINUE 

MRITE ENABLED? 
NO- CONTINUE 
INSERT SOINT 
FOLLOHED ay ZERO 
FIX ADR OF REST OF FILE 
AND CONTINUE 
OR OJMP 

GET WORD 

LEAVE BITS 15-11 

LONG VECTOR? 

TES- BRANCH 
XGRA? 

NO- BRANCH 
TGRA? 

NO- BRANCH 

ADD TWO TO R* 
ADD 4 TO R0 
GET ADR OF SSI 

STORE SSt IN STMTAB 
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1U6 0412 


806223 


ASR 


(R3)* 


147 




,EN0C 




148 04 14 


812713 
177777 


MOV 


»-l.(R3) 


149 0420 


808625 


BR 


SAV3 


158 


1 HERE 


IF LONG 


VECTOR (MAYB 


151 8422 


021027 $AV19| 
160088 


CMP 


(Ra),4DJMP 


152 0426 


001227 


6NE 


SAVCON 


153 0430 


888762 


BR 


SAV23A 


154 


, HERE 


IF ALL 


DONEl 


155 8432 


805726 SAV5I 


TST 


(SP)* 


156 8434 


818467 
808808G 


MOV 


R4iDISEND 


157 8448 


812824 


MOV 


(R0)*,(R4)* 


158 8442 


818467 
808008G 


MOV 


R4,ACTEN0 


159 8446 


012024 


MOV 


(R0)«,(R4)t 


160 0458 


812685 


MOV 


(8P)*,R5 


161 0452 


812601 


MOV 


(SP)*,R1 


162 0454 


816702 
800888G 


MOV 


ACTST,R2 


163 8460 


818284 


MOV 


R2.R4 


164 8462 


816703 
880882G 


MOV 


TAGU2.R3 


165 8466 


010342 


MOV 


R3,-(R2) 


166 8478 


881425 


BEQ 


SAV21 


167 8472 


084767 
080036 


JSR 


PCAORSET 


16S 8476 


810382 SAV20I 


MOV 


R3,R2 


169 0588 


801421 


BED 


SAV21 


178 0582 


8242a2 


CMP 


-<R2),-(R2) 


171 0504 


884767 
808024 


JSR 


PCAORSET 


172 8518 


eu2ee 


MOV 


(R2),R0 


173 8512 


085060 
177776 


CLR 


•2<R0) 


174 0516 


160408 


SUB 


R4,R0 


175 8528 


818022 


MOV 


R0> (R2)* 


176 0522 


005722 


TST 


(R2)« 


177 0524 


811203 


MOV 


(R2),R3 


178 8526 


881406 


SEQ 


SAV21 


179 BS30 


812746 
908476' 


MOV 


«5AV20,.(SP) 


168 8534 


011280 ADRSETl 


MOV 


(R2),R0 


191 8536 


168408 


SUB 


R4,R0 


1S2 8548 


818822 


MOV 


RB.(R2)t 


163 8542 


808207 


RETURN 




184 8544 


810488 SAV21I 


MOV 


R4,R8 


1S5 8546 


885748 


TST 


.(R0) 


166 8558 


816748 
888008G 


MOV 


ACTEN0.-(R8) 


187 8554 


168418 


SUB 


R4,(Ra) 


168 0556 


806210 


ASR 


(RB) 


169 0560 


805218 


INC 


(R0) 


190 


, ••••••«<««••••••••<••<»• 


191 




,IFOF 


SDISK 



RESTORE SS2 

AND CONTINUE 
I) 
NEXT WORD DJMP FOR FIGR 

NO- SAVE WORD AND CONTINUE 
AND CONTINUE 

CLEAN OFF OLD WRITE FLAG 
SET NEW OISENO 

PUT IN OLD DJMP 
SET NEW ACTEND 

PUT IN RETURN ADDRESS 

RESTORE RS 

RESTORE Rl 

GET START OF DRY FILE 

SAVE IN Ra ALSO 

GET ADR OF FIRST SUSP TAG 

PUT BEFORE DPT FILE 
NO SUBP- BRANCH 
OFFSET ADR 

GET NEXT POINTER 

NO MORE- BRANCH 

POINT AT REST OF FILE ADR 

OFFSET ADR 

GET ADR OF SUBP 

CLEAR WORD BEFORE SUBP 

MAKE OFFSET ADR 

STORE ADR 

BUMP BY TAG 

GET ADR OF NEXT TAG 

NO MORE- BRANCH 

FAKE JSR PC 

GET ADR 

SUBTRACT ACTST 
SAVE OFFSET ADR 

ACTST IN R« 

MOVE ONE WORD BACK 

PUT END IN PRECEDING WORD 

MINUS LO END 

CONVERT TO N0RD8 

GET CORRECT NO OF WORDS 



'=13 



\X^ 
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^ 



1*2 

14) 
l»« 
l»5 
l«t 
l»T 

><a 

194 
201 
201 
202 
203 
20« 
205 
20k 
20T 
200 
204 
210 
211 
212 
213 
2111 
21s 
21k 
217 
211 
214 
220 
221 
222 
223 
224 
22s 
22k 
227 
220 
224 
230 
231 
232 
233 
23* 
2 35 
23k 
237 
230 
234 
240 
2«1 
242 
243 
244 
245 
24k 
247 
248 



SES 
DEC 
NOV 
JMP 
9<V22l HOV 
MOV 

too 

HOV 
CLR 
JMP 
lllllllStVEIIT 
8tV24l NOV 
MOV 
CLR 
9IS9 

too 
too 

CtR0 

MOV 

SUB 



(Rn«.«,LP»R 
S4VJ2 

Rl 

R1>R10VE 

SiV24 

R0>l<DI 

(R0)>R0 

• 2,R0 

R0>NO2 

-(JP) 

SAVERT 



IS IN ROOT SO OVERUAV KORKS 



(SP)tiR0 
R1.R18VE 
Rl 
(R0)«,RI 

42. Rg 

Ri,Ra 
(R0) 

R0.-(SP) 
R|>R0 



StV41l 



iCSISPC 'PILE.4OErEXT,R0 
.♦k 

ERR4R6 
(SP)» 
.-k 

Rt,»(SP)« 
•FILE«30.,R0 
R0.R2 

•OSTAT 
OERR0 

•OSTAT*2>R0 
(R0)«iR3 
(R0) 
SAV2gA 
R3.Re 

PC.FREESET 
8AV41 
R0>-(8P) 
R2.RB 
343 
DERR0 
(SP)» 
SAV40 
RSTRl 
Rl.HSG 
15,12 
/tNER-C/ 
15,12,0 



BCC 

J HP 

T8T 

ONE 

MOVB 

HOV 

NOV 

.OSTATUS 

SCI 

HOV 

MOV 

TST 

SNE 

MOV 

JSR 

scs 

NOV 
NOV 
EMT 

scs 

TST 
BEO 

JMP 

JSR 

.BTTE 

.ASCII 

.BYTE 

.EVEN 

JNP 

.LOCK 

TST 

BPL 

.CLOSE 

.LOOKUP 7,R2 

SCS SAV25 



LEFT PARENT 

YES- 00 FILE I/O 

POINT AT TOKEN 

SAVE Rl 

YES- FINISH UP 

SAVE START ADR OF BUFFER 

SET HORO COUNT MINUS 2 

NAKE • N 

SAVE HORO COUNT 

SIGNIFY HRITE OPERATION 

IN ROOT SECTION 



POINTER TO STRINS 
SAVE Rl FOR EXIT 

SET LENCTH 

START OF ASCII STRING 
POINT AT ENO ♦! 
FOLLOHED BY BYTE 
SAVE PTR TO ENO 
POINT AT BEGINNING 

NO- ERROR 

ELSE ERROR 

BETTER NOT HAVE SNTICHES 

YES« ERROR 

RESTORE BYTE COUNT 

AOR OF RAO 50 NAHE 

SAVE IN R2 

RO "» OEVi 

INVALID DEVICE 

POINT AT DEVBLK»t NORD 

GET HANDLER LENGTH 

HANDLER LOADED? 

YES- BRANCH 

GET ITS LENGTH 

ASK FOR ROOM 

NOT ENOUGH AVAILABLE 

SAVE R0 AOR OF HANDLER 

R0 — > DEVI 

FETCH HANDLER 

SAO FETCH 

READ OR NRITET 

NRITE- BRANCH 

READ- BRANCH 



SAV2S 

D8TAT 
DERR0 

7 



I FINISH UP 

I LOCK USR IN CORE 

I FILE DEVICE? 

I NO- BRANCH 

t YES- CLOSE CHANNEL 

I LOOKUP THE FILE 

I NOT FOUND- BRANCH 
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244 






.UNLOCK 




1 RELEASE THE USR 


250 






JSR 


Rl.MSG 


I ASK IF REPLACE 


251 






.ASCII 


/FILE ALREADY 


EXISTS/ 


252 






.BYTE 







253 






.EVEN 






254 






.CLOSE 


7 


1 NO- CLOSE CHANNEL 7 


255 






.UNLOCK 




1 UNLOCK USR 


25k 




SAV31I 


BR 


9AV28 


1 RESTORE FILE AFTER CKING •)• 


257 




SAV25I 


BIT 


•40000, DSTAT 


) READ ONLY DEVICE? 


258 






8Ea 


SAV2t 


1 NO- BRANCH 


254 




OERR01 


JSR 


PCOERR 


1 TELL NEHS 


2k0 






BR 


SAV31 


1 AND FINISH 


261 




DERRI 


.CLOSE 


7 


1 CLOSE CHANNEL 7 


262 






.UNLOCK 




1 UNLOCK USR 


263 






JSR 


Rt,MSC 


1 TELL USER MENS 


264 






.BYTE 


15,12 


> CR-LF 


265 






.ASCII 


/?DEV ERR • C/ 




266 






.BYTE 


15,12,0 




267 






.EVEN 






268 






RETURN 




1 RETURN TO CALLER 


264 




SAV26t 


.ENTER 


7,R2 


I ENTER THE FILE 


270 






CLR 


R0 


1 BLOCK ZERO 


271 






."RITM 


7,U01,ND2 


1 URITE OUT DATA 


272 






BCS 


DERR0 


1 ERROR- EXIT THRU MESSAGE 


273 




SAV27I 


.CLOSE 


7 


1 RELEASE CHANNEL 7 


274 






.UNLOCK 




1 RELEASE USR 


275 






JSR 


R1,M8S 




276 






.ASCII 


/..SAVE COMPLETED../ 


277 






.BYTE 15,12,0 




278 






.EVEN 






274 






BR 


SAV31 


1 FIX STACK 


280 
281 
282 




$AV20I 


.ENDC 






0562 


016704 SAV24I 


MOV 


»CTST,R4 


t SET START ADR 






000000G 








263 


0566 


012700 

000002G 


MOV 


•TAG1«2,R0 


) AOR OF PTR TO FIRST TAG 


284 


0572 


011002 SAV30I 


MOV 


(R0),R2 


t GET AOR OF TAG 


2SS 


0570 


0014IS 


8EQ 


SAV32 


1 NO MORE SUBP- BRANCH 


286 


0576 


024242 


CMP 


-<R2),-(R2) 


1 POINT AT AOR OF REST OF FILE 


287 


ebee 


060422 


ADO 


R4,(R2)» 


) UPDATE AOR 


aea 


a6a; 


060422 


ADD 


R4,(R2)» 


1 UPDATE AOR OF SUBP 


280 


mn 


S12246 


MOV 


(R2)*,-(SP) 


1 PUT TAG ON STK- ZERO? 


2<(a 


ikib 


B05712 


TST 


(R2) 


1 ADR OF NEXT TAG ZERO? 


241 


0610 


001401 


9EQ 


.«4 


1 YES- BRANCH 


242 


0612 


060412 


ADO 


R4,(R2) 


1 UPDATE TAG PTR 


243 


0611 


005726 


TST 


{SP)« 


1 HAS TAG ZERO? 


244 


0616 


001002 


ONE 


.t6 


1 NO- BRANCH 


245 


0620 


011210 


MOV 


(Ri)>(Re) 


1 YES- EIININATE LINK 


246 


0622 


001763 


BEO 


SAV30 


) LOOP 


247 


0624 


010200 


MOV 


R2,R0 


1 UPDATE PTR R0 


248 


0626 


000761 


9R 


SAV30 


1 LOOP 


241) 


0630 


010067 SAV32I 

000000G 


MOV 


R0,TAGENO 


1 STORE ADR TO LAST TAG*2 


300 






,IFOF 


SOISK 




301 






MOV 


RlSVE.Rl 


I RESTORE Rl 


302 






.ENDC 







9V 



^ 
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JMP sDxiT I exiT 



10] S634 ttt[h1 
eeus2 
)«« 

395 RtaVEl 

306 DSTtTi 

507 DEFEXTl 
306 

309 FILEl 
310 



tDISK 




,ifor 

,HORO 
,»,H, 

.R«O50 'OPY« 
.MORO 0t0,0 
.•f*7a, 
,IFOF S0I9K 



I S«VE Rl HERE 
I OEVaUK 



t 39 MORD BLOCK 
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1 
2 

3 

« 
% 

6 
7 
S 

9 
10 

u 

12 
13 

la 
15 

16 
17 
IB 
19 
20 
21 
U 
23 

2a 

25 

26 
27 
28 
29 
30 
31 
32 
33 
in 
35 
36 
37 
38 
39 
110 
ui 
U2 
13 
au 
a5 
a6 
(tl 

48 
49 
50 
51 
52 
53 
54 
55 
56 
57 



.SBTTL "RESTORE" ROUTINE 
.ENDC 



RSTRl 



I ROUTINE TO HtNOLEl 

I C*LL "RSTR't <F1LE DESCRIPTOR> ) 





JSR 


PCBUFTST 


I ANY BUFFER? 




JS» 


PC.STOPA 


1 STOP THE DISPLAY 




CURB 


(R1)«,».LP»R 


1 A «(• T 




BEO 


RSTR0 


) YES- BRANCH 




J MP 


ERRSYN 


1 NO- ERROR 


RSTR0I 


MOV 


Rl,-(5P) 


SIGNAL READ OPERATION 




TST 


INSRTF 


) INSERT PENDING? 




SNE 


.•4 


YES- LOOP TIL FREE 




J MP 


SAVERT 


1 GET NAME IN ROOT 


RSTRll 


.LOOKUP 


7,R2 


LOOKUP THE FILE ON CHANNEL 7 




BCC 


RSTR2 


BRANCH IF FOUND 




.CLOSE 


7 


CLOSE CHANNEL 7 




.UNLOCK 




UNLOCK THE USR 




JSR 


R1.MS6 






.BYTE 


15,12 






.ASCII 


/SAVE FILE NOT FOUND/ 




.BYTE 


15.12.0 






.EVEN 






RSTR4I 


MOV 


RlSVE.Rl 


RESTORE Rl 




JMP 


SDXIT 




RSTB2I 


BIT 


•20000, OSTAT 


MRITE ONLY DEVICE? 




BEQ 


RSTR3 


NO- CONTINUE 


ROERRI 


JSR 


PCDERR 


DEVICE ERROR 




BR 


R5TR4 


AND EXIT 


BSTR3t 


,RE<DK 


7,»ttOOl,«2,»0 


READ ON 7- 2 NORDS 




MOV 


•ACTEN0,-(9P) 


SAVE END ADR 




MOV 


0ISCND,R4 


GET CURRENT LO 




MOV 


OCRASH.RB 


HI END 




SUB 


R«,R8 


GET SUE 




ISR 


RB 


CONVERT TO HOROS 




INC 


R0 


SIZE IN HORDS AVAILABLE 




CMP 


NOD1,R0 


ENOUGH ROOM? 




3LE 


RSTR5 


YES- BRANCH 




.CLOSE 


7 


CLOSE CHANNEL 7 




.UNLOCK 




RELEASE THE USR 




JSR 


Rl.MSG 






.BYTE 


15,12 






.ASCII 


/NOT ENOUGH DISPl 


AY BUFFER FOR RESTORE/ 




.BYTE 


15,12,0 






.EVEN 








TST 


(SP)» 


CLEAN STK 




BR 


RSTRa 


ANO EXIT 


1 GET 


REST OF 


DATA 




RSTRSI 


MOV 


(5P)»,R5 


SAVE END ADDRESS 




CLR 


R0 


BLOCK 




CLR 


-(SP) 


CLEAR STK FOR READN 




MOV 


><D01,.(8P) 


REST Of DATA 




ADD 


»2,tSP) 


ACTUAL END 




MOV 


-(Ra),R3 


SAVE IN R3 



75 



\-- 



-^ 



ETC V(|.e) BASIC • ST DISK RT>tt NtCRQ VH02.«9 tt*0CT.7ll «2lt«l]» P<«e i* 



s« 

5* 

«« 
tt 
62 

6} 

6a 

65 

66 
67 
6S 
69 
7« 
71 
72 
73 
7« 
75 
76 
77 
7S 
79 
S0 
SI 
S2 
SI 

s« 

S5 



NOV 


•("«), R2 


MOV 


"•.•(SR) 


EHT 


20a*7 


sec 


.♦« 


SR 


RDERR 


nov 


R2.(R«)» 


NOV 


R3,<R«)* 


.CLOSE 


T 


.UNLOCK 




ItlSHTEN our FILE 


MOV 


"001, RI 


»»L 


R3 


too 


RI.RI 


MOV 


RS,-(RJ) 


TST 


•NSTSK 


SHE 


.*6 


Hoy 


RJ,«eTEN0 


MOV 


•0JMP,.(R3) 


HOV 


RI.OISENO 


TST 


11002 


sea 


RSTRa 


MOV 


N002,Ri 


too 


Ra.RS 


KOV 


Rf.'TAGEND 


MOV 


TtSENOiRS 


JNP 


S«V3« 


,ENDC 




.tror 


SOISK 



I StVE IN R2 

I >0R TO PUT 0«T1 

I REtO IT IN 

t ILL OK<Y- BRtNCH 

I NOT OKtr- BRtNCH 

I RESTORE IT 

I RESTORE IT 

t CLOSE CHANNEL 7 

I UNLOCK USR 

I SET MORO COUNT 

I CONVERT TO BYTES 

I POINT AT END 

I StVE AOR or RETURN 

t IN t SUSP NONT 

t TES- DON'T UPDATE ACTEND 

I SHOULDN'T BE NECESSARY 

I NEM OISENO 

I ANY SUBP IN NEH PILEt 

I NO- EXIT 

I SET OFFSET OF FIRST TAG . 

; MAKE AN ADDRESS 

I LINK UP TAS CHAIN 

I FI« RB PTR 

I ANO FINISH UP 



STC VBl-Bl BASIC - ST DISK RT-ll MACRO VNe2.»» U-OCT-TH B2liai}6 PAGE « 



.SBTTL 
.ENOC 



•FIX" ANO "FREE" ROUTINES 



5 

6 
7 
B 

9 BBB64B 

10 B06Ue 

11 BB61III 

12 006a6 

13 0B6SB 
U 00650 

15 0B6S1I 

16 00660 
IT 00662 



I ROUTINE TO HANDLEl 



14 00672 
20 006711 



010667 

00106a 
005000 
000a22 

005067 

00lBSa 

122127 

000000G 

001902 

000167 

000000G 

016500 

000042 

003002 



FIXSPl 



CALL "FIXMN), OR 

IMPLICITLY ASK FOR HALF FREE SPACE 



CLR 
BR 



CLR 
CMPB 



BEG 

JMP 



BGT 



000167 FIXARGI JMP 
000000G 

21 00700 005767 TST 
000000G 
001001 
005200 



22 0070U 

23 00706 
in 

25 

26 

27 00710 

2S 00712 

ll 

30 007ia 



31 00722 

32 0e72a 

33 00726 
3a 00730 

35 00732 

36 0073a 

37 0B7a0 

36 007aa 

39 00750 
a0 00752 

ai 007Sa 

42 ?0756 

43 00762 
aa 0076a 



006300 FIX2I 
10377B 



BNE 

INC 

,IFOF 

INC 

,ENOC 

ASL 

BCS 



SP.IMP.F 

RB 
FIXl 

IMP.F 

(Rl)f,«.RPAR 

.t6 

ERRSYN 

FAC2(RS),R0 

.♦6 

ERRARG 

DCRASH 

FIX2 

R0 

SOISK 

R0 

R0 
FIXAR6 



I IMPLICIT ENTRY POINT 

( SIGNAL IMPLICIT ENTRY 

t SIGNAL KANT HALF 

I BRANCH 

( ENTRY FROM FIX IN ROOT SECTION 

( CLEAR IMPLICIT ENTRY FLAG 

I A •)" T 

I TES- BRANCH 

I NO- SYNTAX ERROR 

I GET N 

) ROSITIVE BRANCH 

I ERROR N <• 

I SPACE ALREADY ALLOCATED? 

I YES- BRANCH 

I NO ASK FOR 

I 1 OR 2 HORE HOROS 



t FIND AVAILABLE SPACE 



I CONVERT TO BYTES 
I TOO MANY- ERROR 



026565 FlXll 
000072 
000B7a 
00U76 

0l0ia6 

010246 
010346 

00S0a6 

016502 

000072 

016501 

000014 

010165 

000072 

005016 DNPLOOPI 

152216 BISB 

001012 BNE 

e20265 DXPBAOl CMP 

00il07U 

103772 BLO 

010165 MOV 



CMP 

BEG 
MOV 
MOV 
MOV 
CLR 
MOV 

MOV 

HOV 



L08TR(R5),HISTR(R5) 



FIX3 

R1,-(SP) 

R2.-(SP) 

R3,-(8P) 

-(SP) 

L0STR(R5),R2 

L0FREE(RS),R1 

Rl>L0SrR(R5) 

CLR (SP) 
(R2)»,(SP) 
ONPZRO 
R2,HISTR(R5) 

ONPLOOP 
R1.HISTR(R5) 



t STRINGS ARE LON 
I DO DNPACK HERE 
1 MAKE ROOM 



9^ 



I SAVE HI STRING ADDRESS 



GTC vei-si BASIC - ST DISK RT-11 MACRO VMii>a« i»>aCT>7a giiiai]6 Ptst a* 



as ^^n^ 

«» 0(772 
»? «077a 
as 00776 
a* 01000 

50 01002 

51 01004 

52 01006 
5J 01010 
5« 01012 

55 010ia 

56 01016 

57 01022 
SB 0102a 

SI 01026 

60 01030 

61 01034 

62 01036 

63 010a0 

64 01042 

65 01046 

66 01050 

67 01054 
6S 01056 

6« 01062 

70 01064 

71 01066 

72 01070 

73 01074 

74 01076 

75 01100 

76 01102 

77 01104 
7S 01106 
79 01110 
S0 01112 
St 01114 

82 01116 

83 01120 

84 01124 

85 01126 



8S 01144 
89 01146 



005726 
012603 
012602 
012601 

000447 



TST 
MOV 
MOV 
NOV 

sa 



005003 ONPZROI CLR 



eiSB 

SNiS 

SISB 

too 

INC 
BIT 



152203 

000303 

152203 

061602 

005202 

030327 

000001 

001402 

005303 

061503 

020365 

000004 

103350 

020306 

103013 

020365 

000010 

101343 

020365 

000012 

101005 

020365 

0000ta 

103335 

020315 

103733 

062716 DNPGOOO 

000004 

161602 

020213 

001005 

010113 

112221 

005316 

003375 

000721 

061602 DNRICNOI 

000717 BR 

016504 FIX3I MOV 

000012 



BEO 

DEC 

tOD 
CMP 

BHIS 
CMP 
BHIS 
CMP 

BHI 

CMP 

BHI 
CMP 

BHIS 
CMP 
BIO 
ADD 

SUB 

CMP 

BNE 

MOV 

MOVB 

DEC 

BGT 

BR 



010446 

166516 

000074 

062716 

000002 

016767 

0000006 

000570 

001405 

166567 



MOV 
SUB 



BEO 
SUB 



(SP)» 

tSP)»,R3 

(SP)«,R2 

tSP)«,Rl 

FIX3 

R3 

(R2)*,R3 

R3 

(R2)«,RJ 

(SP),R2 

R2 

RJ.Pl 

,** 

R3 

(R5),R3 

R3.PDL(R5) 

DNPBID 
R3,SP 
ONPSOOD 
R}iARRArS(RS) 

ONPBAD 
RS.MIFREEIRS) 

ONPSOOD 
R3>t.0FREE(RS) 

DNPBAD 
R3«(R5) 
DNPBAD 
•4,(SP) 

(8P),R2 

R2>IR3) 

DNPISNO 

RI.(R3) 

(R2)»,(R1)« 

(SP) 

1-4 

DNPBAD 

ADD 

DNPBAD 

HIFREE(R5>,R« 

Ra,-(SP) 
HISTR(RS),(8P) 

•2>(SP) 

DCRASH,ND02 



I a s PDU 



(SP),R2 



I SET HIFREE PTR 



I SAVE IT 
I FREE BYTES 



t ACTUAL 

I SAVE DCRASH 



FIX3A t NO BUFFER- BRANCH 

ARRAYS (R5).IIDD2 I SUBTRACT BOTTOM END 



Ci^. 



GTC V01-01 BASIC - ST DISK RT-11 MACRO VMa2-04 t6-0CT'74 02114136 PAGE a* 



000010 

000560 
40 01154 066716 

000554 
1160 005700 FIX3AI 
1162 001034 
1164 ^11600 
1166 006200 
1170 006200 
1172 010046 
1174 B053B0 



91 

92 

93 

94 

95 

96 

97 
96 
99 
100 

101 1 

102 1 

103 1 



104 1212 004167 



176 010065 
000042 

202 005065 
000040 

206 004767 



105 1216 
1217 
1220 
1221 
1222 
1223 
1224 
1225 
1226 
1227 
1230 
1231 
1232 
1233 
1234 
1235 
1236 
1257 
1240 
1241 
1242 
1243 
1244 

106 1245 
1246 



040 
127 
117 
122 
104 
123 

040 
106 
117 
122 

041) 
104 
111 
123 
120 
114 
101 
131 
040 
106 
111 
114 
105 
015 
012 



1247 
107 

108 1250 012600 

109 1252 006300 



ADO 

TST 

BNE 

MOV 

ASR 

A9R 

MOV 

DEC 

■ IFOF 

DEC 

.ENOC 

MOV 



.EVEN 
MOV 
A3L 
SHIFT ARRAYS 
1254 004767 F1X5I JSR 



MOV 



110 
111 



112 1260 016703 



tlDD2,(SP) 

R0 

FIX5 

(9P),RB 

R0 

R0 . 

R0,-(SP) 

R0 

SDISK 

R0 



R0>FAC2(R5) 

CLR FACKRS) 

JSR PCNUMOUT ; TELL USER 

JSR R1,HSG 

.ASCII / WORDS FOR DISPLAY FILE/ 



I GET TOTAL FREE 

t HAVE MO COUNTT 

I YES- BRANCH 

I GET MAX SPACE FREE 

I DIVIDE BY 2 

I CONVERT TO WORDS 

) SAVE R0 



t TWO WORDS FOR DISK VERSION 
I PUT INTO OUTPUT BUFFER 



.BYTE 15,12,0 



113 1264 010367 



(SP)«,RB 

Re 

PCSTOPA 
DCRASH, R3 
R3,NDDI 



I RESTORE Re 

I BACK TO BYTES 

( STOP DISPLAY 

I SET HI END 

I SAVE OLD DCRASH 



97 



\ 



/ - 



STC vei«ei BASIC • ST disk O RT.II NICRO yM«J.»» 16-0eT.7a «2lt«l]6 P»GE a* 



^ 





000442 








116 127a 


001004 


BNE 


.*12 


1 BRANCH IP C4LLE0 BEFORE 


IIS 1272 


016567 
000010 

000000G 


MOV 


*RR«rS<RS),OCR*SH , NEN DCR48H 










116 1308 


000412 


BR 


riX6 


t CONTINUE 


117 1322 


016702 
000000G 


MOV 


«CTST,R2 


1 GET to END 


lit 1306 


160203 


SUB 


R2.R3 


t GET lENSTN OF CURRENT SUFFER 


11« 131II 


062703 

000002 


too 


• 2,R3 


1 IN BYTES 


120 1314 


160300 


SUB 


R3,RB 


1 SHIFT FiCTOR 


121 








1 >0I NEED MORE// 4)1 FREE UP 


122 1316 


001003 


BNE 


FIX6 


1 MUST CHANGE- BRtNCH 


123 1320 


005726 


TST 


(SP)» 


1 NO CHANGE* CLEAN STK 


126 1322 


000167 
000364 


JMR 


FIXXIT 


1 AND EXIT 


I2S 1326 


016503 F1X6I 

000010 


MOV 


<RRtVS(R5),R3 


t SET TOP END 


126 1332 


005700 


TST 


Re 




127 133« 


002002 


BGE 


• *6 


1 CONTINUE IF >■ 


126 1336 


005726 


TST 


(SP)* 


1 CLEAN STK 


129 1340 


000442 


BR 


FIX? 


t BRANCH 


130 13<I2 


166716 
000366 


SUB 


ND02,(SP) 


1 BACK TO FREE BELON MIFREE 


131 1346 


020026 


CMR 


RB.{8P)* 


1 ENOUGH ROOKt 


132 1350 


101421 


BLOB 


riX25 


1 VES> BRANCH 


133 1352 


016767 FIXER* 

000354 

000000G 


MOV 


H001,0CR4BH 


1 RESTORE OLD OCRASH 










I3« 1360 


104400 


TRtR 







135 1362 
1363 
1364 


116 
US 
122 


.iSCII 


/NER • FOR OIBPlty BUFFER/ 








1365 


040 








1366 


055 








1367 


040 








1370 


106 








1371 


117 








1372 


122 








1373 


040 








1374 


104 








1375 


lit 








1376 


123 








13T7 


120 








1400 


114 








1401 


101 








1402 


131 








1403 


040 








1484 


102 








1405 


12S 








1406 


106 








1407 


106 








1410 


105 








1411 


122 








136 1412 


000 


.BTTE 







137 





.EVEN 






ore V01. 


•01 84SIC - G7 


DISK RT«11 MICRO VMe2 


■09 I6-0CT-74 02114136 PAGE II 


136 1414 


004767 FIX25I 

000402 


JSR 


PC, PRIOR 


1 FIX LEVEL AND LPS JUNK 


139 1420 


010402 


MOV 


R4.R2 


1 GET ARRAV PTR 


140 1422 


160002 


SUB 


R0,R2 


1 NEH ARRAY PTR 


141 1424 


010246 


MOV 


R2,.(SP) 


t SAVE ON STK 


142 1426 


022224 


CMP 


<R2)»,(R4)» 


1 POINT AT CORRECT NOROS 


143 1430 


020403 


CMP 


R4.R3 


t DONE? 


144 1432 


101002 


SHI 


.♦6 


t YES- BRANCH 


145 1434 


012422 


MOV 


(R4)t,(R2)« 


1 MOVE UORD 


146 1436 


000774 


BR 


■ -6 


1 LOOP 


147 1440 


005742 


rsT 


•(R2) 


1 NEH ARRAYS 


146 1442 


010246 


MOV 


R2,-(SP) 


1 SAVE ON STK 


149 1444 


000414 


BR 


Fixe 


1 BRANCH 


150 


1 5HIF7 


UP 






151 1446 


004767 FIX7I 

000350 

010302 


JSR 


PC, PRIOR 


1 FIX LEVEL AND LPS JUNK 


152 1452 


MOV 


R3,R2 


GET ARRAYS 


153 1454 


160002 


SUB 


R0,R2 


NEH ARRAYS 


154 1456 


005046 


CLR 


•tSP) 




155 1460 


010246 


MOV 


R2,-(5P) 


SAVE ON STK 


156 1462 


022223 


CMP 


(R2)».(R3)» 


FOR AUTO- DECREMENT 


157 1464 


014342 


MOV 


•(R3),-<R2) 


MOVE HORD 


ISa 1466 


020304 


CMP 


R3,R4 


DONE? 


159 1470 


101375 


BHI 


■ "4 


NO- LOOP 


160 1472 


010266 
000002 


MOV 


R2,2(SP) 


SAVE NEH ARRAY PTR 


161 


1 FIX sy«r»B 






162 1476 


011503 FIX8I 


MOV 


(R5),R3 


START OF TABLE 


163 1500 


020365 FIXSRHi 
000014 


CMP 


R3,L0FREE(R5) 


END? 


164 1504 


103070 


BHIS 


FIX9 


YES- BRANCH 


165 1506 


021327 

177775 


CMP 


tR5),».3 


ENTRY OR LINE NO, T 


166 1512 


103011 


BHIS 


FIX12 


ENTRY BRANCH 


167 1514 


022323 FIX17I 


CMP 


<R3)»,(R3)» 


GO PAST LIN NO, 


169 1516 


000770 


BR 


FIXSRH 


LOOP 


169 1520 


022327 FJX10I 

177776 

001001 


CHP 


(R3)«,«-2 


AN ARRAY? 


170 1524 


SNE 


FIXll 


NO- BRANCH 


171 1526 


160013 


SUB 


R0,(R3) 


NEH ADR OF ARRAY 


172 1530 


062703 FIXlli 
000010 


100 


•10, R3 


NEXT ENTRY 


173 1534 


000761 


BR 


FIXSRH 


LOOP 


174 1536 


021327 FIX12I 

177777 

001366 


CMP 


<R3),»-1 


A STRING? 


175 1542 


BNE 


FIX10 


NO- KEEP GOING 


176 1544 


005723 


TST 


(R3)« 


YES- BUMP R3 


177 1546 


010046 


MOV 


R0,.(8P) 


SAVE OFFSET 


17« 1559 


eujee 


MOV 


(R})6ffl0 


»0R Of JT«RT OF STRING 


179 1552 


012302 


MOV 


(R3)»,R2 


GET S31 


100 1554 


100442 


BMI 


FIX13 


NO- SS> BRANCH 


101 1556 


011304 


MOV 


(R3),R4 


GET SS2 


102 1560 


100420 


BMI 


FIXI4 


1 DIMENSIONAL- BRANCH 


103 1562 


005204 


INC 


R4 


MAKE SS2«| 


104 1564 


010246 


MOV 


R2,.(SP) 




U5 1566 


010446 


MOV 


R4,.(SP) 


SAVE HERE TOO 


186 1570 


012746 


MOV 


«2B,-(SP) 1 


16 BITS 



4-^ 



-7.:' 



9/ 



A- 



4«^ 



GTC vai-ei BiSIC - GT disk O RT-II macro VNBi>a9 16>0CT>7« eiitaii* PtSE •* 



1»7 I57a aSbieit fIXLPi •!!. 

isa 1S76 ee6]6t i9l 

199 1602 \tiieii ace 

198 l«0a 066601 100 



OCC 
SGT 

too 
too 

INC 

ill 

too 

STRINGS 

I CNP 
SHI 
CMP 

BCS 

Moy 

INC 
SHIS 

M0V8 
SHtB 
MOVB 
T8T 
BR 
I MOV 
BR 



191 1610 005316 

192 1612 003J70 

193 Ula 062706 



194 1620 

195 1622 

196 1621 

197 1626 
198 

199 1630 

200 1632 

201 16]lt 

202 |6a0 

203 1612 
2011 16«a 

205 16II6 

206 1650 

207 1652 
20S 16Sa 

209 1656 

210 1660 

211 1662 

212 16611 
213 

2111 1666 

215 

216 

217 

2ia 

219 

220 

221 

222 

223 

226 

225 

226 1666 

227 1672 
22B 16711 

229 1700 
230 
231 
232 

233 1702 

2311 1706 



060102 

005202 FIXia 

006302 

060002 

I FIX 

020002 FIXl! 

101013 

022027 

177777 

001773 

0110011 

005201 

000300 

110021 

000308 

110021 

005720 FIXt6 

000763 

012600 FUt3 

000713 

) FIX 
FIX9I 



BUFFER CHtIN 



R1 
2(!P) 

t»6 
1(SP),R1 

(8P) 

FIXLP 

'6>SP 

R1|R2 

R2 

R2 

R0,R2 

Re,R2 

FIX13 

(R0)*>l»>t 

FIXIS 

-(R0),R1 

Rl 

R0 

R0>(R1)« 

R0 

R0,(RI)* 

(R0)* 

FIX15 

(8P)«,R0 

FIX17 



011665 
000010 
012602 
012665 
000012 
022222 



010267 
000000G 
012667 
177776' 



.IFOF 
.SRESET 

"OV 

too 

TST 
BEO 

SUB 

xov 

BR 

■ ENOC 

MOV 



SOISK 

R5.R2 

•BUFCHN,R2 

(R2) 

FIX9» 

R0>(R2) 

(R2),R2 

FIX9B 



t SS2«2 



) FORM SS2*Sa2 

( TI07 STK 

I too SSI 

I SSUl 

I NOROS TO BYTES 

I HI tOR OF STRING LIST 

I DONE? 

I DONE COOP 

I t NULL STRING t 

t YES- LOOP 

I tOR OF STR 

I POINT tT FIRST BYTE OF PTR 



I RESTORE R0 

I SET IN SECOND BYTE 

I too 2 TO ARRtV tOR 

I RESTORE OFFSET 



I GIVE BtCK tLL DEVICE HtNOLERS 

I GET PTR TO BtSE OF USER tREt 

I OFFSET TO BUFFER CHtIN POINTER 

I ANY BUFFERS? 

I NO- aRtNCH 

I YES- CORRECT POINTER 

I POINT R2 tT NEXT BUFFER 

t CHECK IT 



MOV 
MOV 

CMP 

.IFOF 

1ST 

,ENOC 

MOV 

MOV 



(SP),tRRtYS(RS) I NEM PTR 



(SP)*,R2 
(SP)»,HIFREE(R5) 



I KEEP TO DETERMINE tCTST 

I NEW PTR 



(R2)t,(R2)* 

SOISK 

(R2)» 

R2,tCTST 

(SPJ«,PSH 



I NEW STtRT 



I STtRT OF FILE 
t RESTORE P8M 



:\-^ 



GTC V01-01 BASIC - ST DISK RT-ll MtCRO VM02-09 16-0CT-71 02111136 PtSE 1« 



235 1712 012767 fIXXITl MOV 

177777 
000000G 

236 1720 005767 TST 



• -UOISENO 



IHP.F 



BEQ 
RETURN 



237 1721 001131 

238 1726 000207 
239 

210 1730 000000 IMP, Ft .WORD 

211 1732 0000(10 hODII .WORD 

212 1731 000000 WDI>2l .'ORD 



SDXITl 



I FOR tUTO INIT 



t CtLLEO BY INITT 



I NO- EXIT 

I GO BtCK TO INIT 



9? 



^1 



T^' 



etc V0t>01 B«9IC - ST DISK RT-tl HtCRO VN(2««9 l»>0CT-7« «2|1«I16 P'SE S 



I 

2 
> 


) 


1 ROUTXNE TO HtNOLEl 


k***«*«******* 


< 
S 
6 




I 


e«UU "FREE" 






.IPNOF 


SDISK 




7 0017J6 


FACEl 








a 




,ENOC 






9 




,1FDF 


SDI9K 




10 


rREe0i 








It 




.ENOC 






12 01716 


0011767 

000000G 


JSR 


RCSTOP* 


1 STOP BISPt»r 


13 017112 


012767 
177777 
0000006 


H0» 


«-l,Ol«ENO 


1 FOR iUTO INXr 


l« 01750 


012767 

000000S 

000000G 


NOV 


•BEG.OBTOP 


1 LOOP OtSPLiY 


15 01756 


016700 
000000G 


HOV 


OCRtSH>RB 


) GET HI ENO 


16 01762 


001415 


BEG 


SOXITI 


( NOTHING THERE. EXIT 


17 0I76« 


005067 
000000G 


CLR 


OCRtSH 


) CLEtR OCRtSH 


IS 01770 


016503 

000010 


HOV 


»RR»t9<R5),Rl 


1 


1» 0t77a 


160301 


SUB 


R3.R0 


1 TO 6IVE IT <LL B«CK 


20 01776 


0051100 


NEG 


R0 




21 02000 


0165011 
000012 


HOV 


HIFREECR5),R« 


1 SET UP REGISTERS 


22 0200a 


005067 
177720 


CLR 


IMP.F 


1 FOR EXIT 


23 02010 
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GETBUF 


032064 


ERBUF 


032132 


GETOAT 


032140 






STOD»T 


032272 


GETAOO 


032400 


POLENT 


032506 






CKCONA 


032534 


STOHXT 


032544 


CKRPAR 


032550 






CONBCO 


032560 










0326114 


001244 


iOC 


032714 


RTS 


033022 


LEO 


033426 


0311110 


000716 


SETR 
W»II 


034124 
034552 


SETC 


034262 


HIST 


034476 


03502* 


000542 


DIR 
REL 


035032 

035400 


OOR 


035126 


ORS 


035214 


B35S70 


001462 


CLRO 


035656 


PUTD 


036302 


OIS 


036344 






FSN 


036420 


OXY 


036476 


OISPLY 


036744 


037252 


003544 


USR»Rt 


037252 











jl'i 



TRANSFER AOORESS ' 041476 
HIGH LIMIT • 043016 



